include file: wrf_histout.inc 1,249
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_histout.inc'
!
! WARNING This file is generated automatically by use_registry
! using the data base in the file named Registry.
! Do not edit. Your changes to this file will be lost.
!
IF ( in_use_for_config(grid%id,'lu_index') ) THEN
CALL wrf_ext_write_field
( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LU_INDEX' , & ! Data Name
grid%lu_index , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'LAND USE CATEGORY' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field LU_INDEX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'znu') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZNU' , & ! Data Name
grid%znu , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'bottom_top' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'eta values on half (mass) levels' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field ZNU memorder Z' , & ! Debug message
kds , (kde-1) , 1 , 1 , 1 , 1 , &
kms , kme , 1 , 1 , 1 , 1 , &
kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'znw') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZNW' , & ! Data Name
grid%znw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'Z' , & ! Stagger
'bottom_top_stag' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'eta values on full (w) levels' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field ZNW memorder Z' , & ! Debug message
kds , kde , 1 , 1 , 1 , 1 , &
kms , kme , 1 , 1 , 1 , 1 , &
kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'zs') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZS' , & ! Data Name
grid%zs , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'Z' , & ! Stagger
'soil_layers_stag' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'DEPTHS OF CENTERS OF SOIL LAYERS' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field ZS memorder Z' , & ! Debug message
1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'dzs') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DZS' , & ! Data Name
grid%dzs , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'Z' , & ! Stagger
'soil_layers_stag' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'THICKNESSES OF SOIL LAYERS' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field DZS memorder Z' , & ! Debug message
1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'u_2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U' , & ! Data Name
grid%u_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'X' , & ! Stagger
'west_east_stag' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'x-wind component' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field U memorder XZY' , & ! Debug message
ids , ide , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( ide, ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'z_force') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Z_FORCE' , & ! Data Name
grid%z_force , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'height of forcing input' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field Z_FORCE memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'u_g') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_G' , & ! Data Name
grid%u_g , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'x-direction geostrophic wind' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field U_G memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'u_g_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_G_TEND' , & ! Data Name
grid%u_g_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency x-direction geostrophic wind' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field U_G_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'v_2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V' , & ! Data Name
grid%v_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Y' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north_stag' , & ! Dimname 3
'y-wind component' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field V memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , jde , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( jde, jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'v_g') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_G' , & ! Data Name
grid%v_g , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'y-direction geostrophic wind' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field V_G memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'v_g_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_G_TEND' , & ! Data Name
grid%v_g_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency y-direction geostrophic wind' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field V_G_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'w_2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W' , & ! Data Name
grid%w_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'z-wind component' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field W memorder XZY' , & ! Debug message
ids , (ide-1) , kds , kde , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'w_subs') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W_SUBS' , & ! Data Name
grid%w_subs , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'large-scale vertical velocity' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field W_SUBS memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'w_subs_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W_SUBS_TEND' , & ! Data Name
grid%w_subs_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency large-scale vertical velocity' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field W_SUBS_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'ph_2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PH' , & ! Data Name
grid%ph_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'perturbation geopotential' , & ! Desc
'm2 s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field PH memorder XZY' , & ! Debug message
ids , (ide-1) , kds , kde , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'phb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PHB' , & ! Data Name
grid%phb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'base-state geopotential' , & ! Desc
'm2 s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field PHB memorder XZY' , & ! Debug message
ids , (ide-1) , kds , kde , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'t_2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T' , & ! Data Name
grid%t_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'perturbation potential temperature (theta-t0)' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field T memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'th_upstream_x') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH_UPSTREAM_X' , & ! Data Name
grid%th_upstream_x , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'upstream theta x-advection' , & ! Desc
'K s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field TH_UPSTREAM_X memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'th_upstream_x_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH_UPSTREAM_X_TEND' , & ! Data Name
grid%th_upstream_x_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency upstream theta x-advection' , & ! Desc
'K s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field TH_UPSTREAM_X_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'th_upstream_y') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH_UPSTREAM_Y' , & ! Data Name
grid%th_upstream_y , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'upstream theta y-advection' , & ! Desc
'K s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field TH_UPSTREAM_Y memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'th_upstream_y_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH_UPSTREAM_Y_TEND' , & ! Data Name
grid%th_upstream_y_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency upstream theta y-advection' , & ! Desc
'K s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field TH_UPSTREAM_Y_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'qv_upstream_x') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QV_UPSTREAM_X' , & ! Data Name
grid%qv_upstream_x , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'upstream qv x-advection' , & ! Desc
'kg kg-1 s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field QV_UPSTREAM_X memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'qv_upstream_x_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QV_UPSTREAM_X_TEND' , & ! Data Name
grid%qv_upstream_x_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency upstream qv x-advection' , & ! Desc
'kg kg-1 s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field QV_UPSTREAM_X_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'qv_upstream_y') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QV_UPSTREAM_Y' , & ! Data Name
grid%qv_upstream_y , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'upstream qv y-advection' , & ! Desc
'kg kg-1 s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field QV_UPSTREAM_Y memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'qv_upstream_y_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QV_UPSTREAM_Y_TEND' , & ! Data Name
grid%qv_upstream_y_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency upstream qv y-advection' , & ! Desc
'kg kg-1 s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field QV_UPSTREAM_Y_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'u_upstream_x') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_UPSTREAM_X' , & ! Data Name
grid%u_upstream_x , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'upstream u x-advection' , & ! Desc
'm s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field U_UPSTREAM_X memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'u_upstream_x_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_UPSTREAM_X_TEND' , & ! Data Name
grid%u_upstream_x_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency upstream u x-advection' , & ! Desc
'm s-3' , & ! Units
'inc/wrf_histout.inc ext_write_field U_UPSTREAM_X_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'u_upstream_y') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_UPSTREAM_Y' , & ! Data Name
grid%u_upstream_y , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'upstream u y-advection' , & ! Desc
'm s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field U_UPSTREAM_Y memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'u_upstream_y_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_UPSTREAM_Y_TEND' , & ! Data Name
grid%u_upstream_y_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency upstream u y-advection' , & ! Desc
'm s-3' , & ! Units
'inc/wrf_histout.inc ext_write_field U_UPSTREAM_Y_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'v_upstream_x') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_UPSTREAM_X' , & ! Data Name
grid%v_upstream_x , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'upstream v x-advection' , & ! Desc
'm s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field V_UPSTREAM_X memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'v_upstream_x_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_UPSTREAM_X_TEND' , & ! Data Name
grid%v_upstream_x_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency upstream v x-advection' , & ! Desc
'm s-3' , & ! Units
'inc/wrf_histout.inc ext_write_field V_UPSTREAM_X_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'v_upstream_y') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_UPSTREAM_Y' , & ! Data Name
grid%v_upstream_y , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'upstream v y-advection' , & ! Desc
'm s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field V_UPSTREAM_Y memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'v_upstream_y_tend') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_UPSTREAM_Y_TEND' , & ! Data Name
grid%v_upstream_y_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'force_layers' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'tendency upstream v y-advection' , & ! Desc
'm s-3' , & ! Units
'inc/wrf_histout.inc ext_write_field V_UPSTREAM_Y_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'mu_2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MU' , & ! Data Name
grid%mu_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'perturbation dry air mass in column' , & ! Desc
'Pa' , & ! Units
'inc/wrf_histout.inc ext_write_field MU memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'mub') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MUB' , & ! Data Name
grid%mub , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'base state dry air mass in column' , & ! Desc
'Pa' , & ! Units
'inc/wrf_histout.inc ext_write_field MUB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'nest_pos') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NEST_POS' , & ! Data Name
grid%nest_pos , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'-' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field NEST_POS memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'p') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'P' , & ! Data Name
grid%p , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'perturbation pressure' , & ! Desc
'Pa' , & ! Units
'inc/wrf_histout.inc ext_write_field P memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'pb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PB' , & ! Data Name
grid%pb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'BASE STATE PRESSURE ' , & ! Desc
'Pa' , & ! Units
'inc/wrf_histout.inc ext_write_field PB memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'sr') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SR' , & ! Data Name
grid%sr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'fraction of frozen precipitation' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field SR memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'potevp') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'POTEVP' , & ! Data Name
grid%potevp , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'accumulated potential evaporation' , & ! Desc
'W m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field POTEVP memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'snopcx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOPCX' , & ! Data Name
grid%snopcx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'snow phase change heat flux' , & ! Desc
'W m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SNOPCX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'soiltb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILTB' , & ! Data Name
grid%soiltb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'bottom soil temperature' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field SOILTB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fnm') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FNM' , & ! Data Name
grid%fnm , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'bottom_top' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'upper weight for vertical stretching' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field FNM memorder Z' , & ! Debug message
kds , (kde-1) , 1 , 1 , 1 , 1 , &
kms , kme , 1 , 1 , 1 , 1 , &
kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fnp') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FNP' , & ! Data Name
grid%fnp , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'bottom_top' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'lower weight for vertical stretching' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field FNP memorder Z' , & ! Debug message
kds , (kde-1) , 1 , 1 , 1 , 1 , &
kms , kme , 1 , 1 , 1 , 1 , &
kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'rdnw') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDNW' , & ! Data Name
grid%rdnw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'bottom_top' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'inverse d(eta) values between full (w) levels' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field RDNW memorder Z' , & ! Debug message
kds , (kde-1) , 1 , 1 , 1 , 1 , &
kms , kme , 1 , 1 , 1 , 1 , &
kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'rdn') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDN' , & ! Data Name
grid%rdn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'bottom_top' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'inverse d(eta) values between half (mass) levels' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field RDN memorder Z' , & ! Debug message
kds , (kde-1) , 1 , 1 , 1 , 1 , &
kms , kme , 1 , 1 , 1 , 1 , &
kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'dnw') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DNW' , & ! Data Name
grid%dnw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'bottom_top' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'd(eta) values between full (w) levels' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field DNW memorder Z' , & ! Debug message
kds , (kde-1) , 1 , 1 , 1 , 1 , &
kms , kme , 1 , 1 , 1 , 1 , &
kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'dn') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DN ' , & ! Data Name
grid%dn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'Z' , & ! MemoryOrder
'' , & ! Stagger
'bottom_top' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'd(eta) values between half (mass) levels' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field DN memorder Z' , & ! Debug message
kds , (kde-1) , 1 , 1 , 1 , 1 , &
kms , kme , 1 , 1 , 1 , 1 , &
kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cfn') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CFN' , & ! Data Name
grid%cfn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'extrapolation constant' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field CFN memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cfn1') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CFN1' , & ! Data Name
grid%cfn1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'extrapolation constant' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field CFN1 memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'q2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Q2' , & ! Data Name
grid%q2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'QV at 2 M' , & ! Desc
'kg kg-1' , & ! Units
'inc/wrf_histout.inc ext_write_field Q2 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'t2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T2' , & ! Data Name
grid%t2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'TEMP at 2 M' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field T2 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'th2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH2' , & ! Data Name
grid%th2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'POT TEMP at 2 M' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field TH2 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'psfc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PSFC' , & ! Data Name
grid%psfc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'SFC PRESSURE' , & ! Desc
'Pa' , & ! Units
'inc/wrf_histout.inc ext_write_field PSFC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'u10') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U10' , & ! Data Name
grid%u10 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'U at 10 M' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field U10 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'v10') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V10' , & ! Data Name
grid%v10 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'V at 10 M' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field V10 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'rdx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDX' , & ! Data Name
grid%rdx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'INVERSE X GRID LENGTH' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field RDX memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'rdy') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDY' , & ! Data Name
grid%rdy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'INVERSE Y GRID LENGTH' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field RDY memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'resm') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RESM' , & ! Data Name
grid%resm , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'TIME WEIGHT CONSTANT FOR SMALL STEPS' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field RESM memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'zetatop') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZETATOP' , & ! Data Name
grid%zetatop , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'ZETA AT MODEL TOP' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field ZETATOP memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cf1') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CF1' , & ! Data Name
grid%cf1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'2nd order extrapolation constant' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field CF1 memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cf2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CF2' , & ! Data Name
grid%cf2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'2nd order extrapolation constant' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field CF2 memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cf3') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CF3' , & ! Data Name
grid%cf3 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'2nd order extrapolation constant' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field CF3 memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'itimestep') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ITIMESTEP' , & ! Data Name
grid%itimestep , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field ITIMESTEP memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'xtime') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XTIME' , & ! Data Name
grid%xtime , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'minutes since simulation start' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field XTIME memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
DO itrace = PARAM_FIRST_SCALAR , num_moist
IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(moist_dname_table( grid%id, itrace )), & !data name
grid%moist(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
moist_desc_table( grid%id, itrace ), & ! Desc
moist_units_table( grid%id, itrace ), & ! Units
'inc/wrf_histout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_dfi_moist
IF (BTEST(dfi_moist_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(dfi_moist_dname_table( grid%id, itrace )), & !data name
grid%dfi_moist(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
dfi_moist_desc_table( grid%id, itrace ), & ! Desc
dfi_moist_units_table( grid%id, itrace ), & ! Units
'inc/wrf_histout.inc ext_write_field '//TRIM(dfi_moist_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_chem
IF (BTEST(chem_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(chem_dname_table( grid%id, itrace )), & !data name
grid%chem(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
chem_desc_table( grid%id, itrace ), & ! Desc
chem_units_table( grid%id, itrace ), & ! Units
'inc/wrf_histout.inc ext_write_field '//TRIM(chem_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_scalar
IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(scalar_dname_table( grid%id, itrace )), & !data name
grid%scalar(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
scalar_desc_table( grid%id, itrace ), & ! Desc
scalar_units_table( grid%id, itrace ), & ! Units
'inc/wrf_histout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_dfi_scalar
IF (BTEST(dfi_scalar_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(dfi_scalar_dname_table( grid%id, itrace )), & !data name
grid%dfi_scalar(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
dfi_scalar_desc_table( grid%id, itrace ), & ! Desc
dfi_scalar_units_table( grid%id, itrace ), & ! Units
'inc/wrf_histout.inc ext_write_field '//TRIM(dfi_scalar_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
IF ( in_use_for_config(grid%id,'landmask') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDMASK' , & ! Data Name
grid%landmask , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'LAND MASK (1 FOR LAND, 0 FOR WATER)' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field LANDMASK memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'tslb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSLB' , & ! Data Name
grid%tslb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'soil_layers_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field TSLB memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_soil_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_soil_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_soil_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'smois') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SMOIS' , & ! Data Name
grid%smois , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'soil_layers_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'SOIL MOISTURE' , & ! Desc
'm3 m-3' , & ! Units
'inc/wrf_histout.inc ext_write_field SMOIS memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_soil_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_soil_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_soil_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'sh2o') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SH2O' , & ! Data Name
grid%sh2o , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'soil_layers_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'SOIL LIQUID WATER' , & ! Desc
'm3 m-3' , & ! Units
'inc/wrf_histout.inc ext_write_field SH2O memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_soil_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_soil_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_soil_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'xice') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SEAICE' , & ! Data Name
grid%xice , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'SEA ICE FLAG' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field SEAICE memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'xicem') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XICEM' , & ! Data Name
grid%xicem , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'SEA ICE FLAG (PREVIOUS STEP)' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field XICEM memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'sfcrunoff') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFROFF' , & ! Data Name
grid%sfcrunoff , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'SURFACE RUNOFF' , & ! Desc
'mm' , & ! Units
'inc/wrf_histout.inc ext_write_field SFROFF memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'udrunoff') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UDROFF' , & ! Data Name
grid%udrunoff , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'UNDERGROUND RUNOFF' , & ! Desc
'mm' , & ! Units
'inc/wrf_histout.inc ext_write_field UDROFF memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'ivgtyp') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'IVGTYP' , & ! Data Name
grid%ivgtyp , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'DOMINANT VEGETATION CATEGORY' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field IVGTYP memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'isltyp') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ISLTYP' , & ! Data Name
grid%isltyp , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'DOMINANT SOIL CATEGORY' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field ISLTYP memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'vegfra') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VEGFRA' , & ! Data Name
grid%vegfra , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'VEGETATION FRACTION' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field VEGFRA memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'grdflx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GRDFLX' , & ! Data Name
grid%grdflx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'GROUND HEAT FLUX' , & ! Desc
'W m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field GRDFLX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'acgrdflx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACGRDFLX' , & ! Data Name
grid%acgrdflx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED GROUND HEAT FLUX' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACGRDFLX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'snow') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOW' , & ! Data Name
grid%snow , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'SNOW WATER EQUIVALENT' , & ! Desc
'kg m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SNOW memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'snowh') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWH' , & ! Data Name
grid%snowh , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'PHYSICAL SNOW DEPTH' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field SNOWH memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'rhosn') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RHOSN' , & ! Data Name
grid%rhosn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
' SNOW DENSITY' , & ! Desc
'kg m-3' , & ! Units
'inc/wrf_histout.inc ext_write_field RHOSN memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'canwat') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CANWAT' , & ! Data Name
grid%canwat , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'CANOPY WATER' , & ! Desc
'kg m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field CANWAT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'sst') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SST' , & ! Data Name
grid%sst , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'SEA SURFACE TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field SST memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'sstsk') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SSTSK' , & ! Data Name
grid%sstsk , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'SKIN SEA SURFACE TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field SSTSK memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lai') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LAI' , & ! Data Name
grid%lai , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Leaf area index' , & ! Desc
'area/area' , & ! Units
'inc/wrf_histout.inc ext_write_field LAI memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'tke_myj') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TKE_MYJ' , & ! Data Name
grid%tke_myj , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'TKE FROM MELLOR-YAMADA-JANJIC' , & ! Desc
'm2 s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field TKE_MYJ memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'el_myj') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'EL_MYJ' , & ! Data Name
grid%el_myj , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'MIXING LENGTH FROM MELLOR-YAMADA-JANJIC' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field EL_MYJ memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'z0') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Z0' , & ! Data Name
grid%z0 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Background ROUGHNESS LENGTH' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field Z0 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'qke') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QKE' , & ! Data Name
grid%qke , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'twice TKE FROM MYNN' , & ! Desc
'm2 s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field QKE memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'var2d') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VAR' , & ! Data Name
grid%var2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'OROGRAPHIC VARIANCE' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field VAR memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'oc12d') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CON' , & ! Data Name
grid%oc12d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'OROGRAPHIC CONVEXITY' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field CON memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'oa1') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OA1' , & ! Data Name
grid%oa1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'OROGRAPHIC DIRECTION ASYMMETRY FUNCTION' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field OA1 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'oa2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OA2' , & ! Data Name
grid%oa2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'OROGRAPHIC DIRECTION ASYMMETRY FUNCTION' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field OA2 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'oa3') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OA3' , & ! Data Name
grid%oa3 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'OROGRAPHIC DIRECTION ASYMMETRY FUNCTION' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field OA3 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'oa4') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OA4' , & ! Data Name
grid%oa4 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'OROGRAPHIC DIRECTION ASYMMETRY FUNCTION' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field OA4 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'ol1') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OL1' , & ! Data Name
grid%ol1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'OROGRAPHIC DIRECTION ASYMMETRY FUNCTION' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field OL1 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'ol2') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OL2' , & ! Data Name
grid%ol2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'OROGRAPHIC DIRECTION ASYMMETRY FUNCTION' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field OL2 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'ol3') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OL3' , & ! Data Name
grid%ol3 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'OROGRAPHIC DIRECTION ASYMMETRY FUNCTION' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field OL3 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'ol4') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OL4' , & ! Data Name
grid%ol4 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'OROGRAPHIC DIRECTION ASYMMETRY FUNCTION' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field OL4 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'tke_pbl') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TKE_PBL' , & ! Data Name
grid%tke_pbl , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'TKE FROM Bougeault and Lacarrere' , & ! Desc
'm2 s-2' , & ! Units
'inc/wrf_histout.inc ext_write_field TKE_PBL memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'el_pbl') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'EL_PBL' , & ! Data Name
grid%el_pbl , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'Length scale FROM Bougeault and Lacarrere' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field EL_PBL memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
DO itrace = PARAM_FIRST_SCALAR , num_ozmixm
IF (BTEST(ozmixm_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(ozmixm_dname_table( grid%id, itrace )), & !data name
grid%ozmixm(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'levsiz' , & ! Dimname 2
'south_north' , & ! Dimname 3
ozmixm_desc_table( grid%id, itrace ), & ! Desc
ozmixm_units_table( grid%id, itrace ), & ! Units
'inc/wrf_histout.inc ext_write_field '//TRIM(ozmixm_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%levsiz , jds , (jde-1) , &
ims , ime , 1 , config_flags%levsiz , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%levsiz , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_aerosolc
IF (BTEST(aerosolc_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(aerosolc_dname_table( grid%id, itrace )), & !data name
grid%aerosolc_2(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'paerlev' , & ! Dimname 2
'south_north' , & ! Dimname 3
aerosolc_desc_table( grid%id, itrace ), & ! Desc
aerosolc_units_table( grid%id, itrace ), & ! Units
'inc/wrf_histout.inc ext_write_field '//TRIM(aerosolc_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%paerlev , jds , (jde-1) , &
ims , ime , 1 , config_flags%paerlev , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%paerlev , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
IF ( in_use_for_config(grid%id,'f_ice_phy') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'F_ICE_PHY' , & ! Data Name
grid%f_ice_phy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'FRACTION OF ICE' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field F_ICE_PHY memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'f_rain_phy') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'F_RAIN_PHY' , & ! Data Name
grid%f_rain_phy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'FRACTION OF RAIN ' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field F_RAIN_PHY memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'f_rimef_phy') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'F_RIMEF_PHY' , & ! Data Name
grid%f_rimef_phy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'MASS RATIO OF RIMED ICE ' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field F_RIMEF_PHY memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'msft') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_M' , & ! Data Name
grid%msft , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Map scale factor on mass grid' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAPFAC_M memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'msfu') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_U' , & ! Data Name
grid%msfu , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'west_east_stag' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Map scale factor on u-grid' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAPFAC_U memorder XY' , & ! Debug message
ids , ide , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'msfv') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_V' , & ! Data Name
grid%msfv , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north_stag' , & ! Dimname 2
'' , & ! Dimname 3
'Map scale factor on v-grid' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAPFAC_V memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'msftx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_MX' , & ! Data Name
grid%msftx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Map scale factor on mass grid, x direction' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAPFAC_MX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'msfty') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_MY' , & ! Data Name
grid%msfty , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Map scale factor on mass grid, y direction' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAPFAC_MY memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'msfux') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_UX' , & ! Data Name
grid%msfux , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'west_east_stag' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Map scale factor on u-grid, x direction' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAPFAC_UX memorder XY' , & ! Debug message
ids , ide , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'msfuy') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_UY' , & ! Data Name
grid%msfuy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'west_east_stag' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Map scale factor on u-grid, y direction' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAPFAC_UY memorder XY' , & ! Debug message
ids , ide , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'msfvx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_VX' , & ! Data Name
grid%msfvx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north_stag' , & ! Dimname 2
'' , & ! Dimname 3
'Map scale factor on v-grid, x direction' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAPFAC_VX memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'msfvx_inv') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MF_VX_INV' , & ! Data Name
grid%msfvx_inv , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north_stag' , & ! Dimname 2
'' , & ! Dimname 3
'Inverse map scale factor on v-grid, x direction' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MF_VX_INV memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'msfvy') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_VY' , & ! Data Name
grid%msfvy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north_stag' , & ! Dimname 2
'' , & ! Dimname 3
'Map scale factor on v-grid, y direction' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAPFAC_VY memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'f') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'F' , & ! Data Name
grid%f , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Coriolis sine latitude term' , & ! Desc
's-1' , & ! Units
'inc/wrf_histout.inc ext_write_field F memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'e') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'E' , & ! Data Name
grid%e , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Coriolis cosine latitude term' , & ! Desc
's-1' , & ! Units
'inc/wrf_histout.inc ext_write_field E memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'sina') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SINALPHA' , & ! Data Name
grid%sina , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Local sine of map rotation' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field SINALPHA memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cosa') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'COSALPHA' , & ! Data Name
grid%cosa , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Local cosine of map rotation' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field COSALPHA memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'ht') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HGT' , & ! Data Name
grid%ht , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Terrain Height' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field HGT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'ht_shad') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HGT_SHAD' , & ! Data Name
grid%ht_shad , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'Height of orographic shadow' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field HGT_SHAD memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'tsk') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSK' , & ! Data Name
grid%tsk , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'SURFACE SKIN TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field TSK memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'p_top') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'P_TOP' , & ! Data Name
grid%p_top , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'PRESSURE TOP OF THE MODEL' , & ! Desc
'Pa' , & ! Units
'inc/wrf_histout.inc ext_write_field P_TOP memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'t00') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T00' , & ! Data Name
grid%t00 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'BASE STATE TEMPERATURE ' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field T00 memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'p00') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'P00' , & ! Data Name
grid%p00 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'BASE STATE PRESURE' , & ! Desc
'Pa' , & ! Units
'inc/wrf_histout.inc ext_write_field P00 memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'tlp') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TLP' , & ! Data Name
grid%tlp , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'BASE STATE LAPSE RATE ' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field TLP memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'tiso') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TISO' , & ! Data Name
grid%tiso , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'TEMP AT WHICH THE BASE T TURNS CONST' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field TISO memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'max_msftx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAX_MSTFX' , & ! Data Name
grid%max_msftx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'Max map factor in domain' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAX_MSTFX memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'max_msfty') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAX_MSTFY' , & ! Data Name
grid%max_msfty , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'Max map factor in domain' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field MAX_MSTFY memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'rainc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RAINC' , & ! Data Name
grid%rainc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED TOTAL CUMULUS PRECIPITATION' , & ! Desc
'mm' , & ! Units
'inc/wrf_histout.inc ext_write_field RAINC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'rainnc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RAINNC' , & ! Data Name
grid%rainnc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED TOTAL GRID SCALE PRECIPITATION' , & ! Desc
'mm' , & ! Units
'inc/wrf_histout.inc ext_write_field RAINNC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_rainc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_RAINC' , & ! Data Name
grid%i_rainc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR RAINC' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field I_RAINC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_rainnc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_RAINNC' , & ! Data Name
grid%i_rainnc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR RAINNC' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field I_RAINNC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'snownc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWNC' , & ! Data Name
grid%snownc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED TOTAL GRID SCALE SNOW AND ICE' , & ! Desc
'mm' , & ! Units
'inc/wrf_histout.inc ext_write_field SNOWNC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'graupelnc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GRAUPELNC' , & ! Data Name
grid%graupelnc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED TOTAL GRID SCALE GRAUPEL' , & ! Desc
'mm' , & ! Units
'inc/wrf_histout.inc ext_write_field GRAUPELNC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'edt_out') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'EDT_OUT' , & ! Data Name
grid%edt_out , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'EDT FROM GD SCHEME' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field EDT_OUT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cugd_tten') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CUGD_TTEN' , & ! Data Name
grid%cugd_tten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'INITIAL TTENDENCY OUT OFF GRELL CUMULUS SCHEME' , & ! Desc
'K s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field CUGD_TTEN memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cugd_qvten') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CUGD_QVTEN' , & ! Data Name
grid%cugd_qvten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'INITIAL QTENDENCY OUT OFF GRELL CUMULUS SCHEME' , & ! Desc
'K s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field CUGD_QVTEN memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cugd_ttens') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CUGD_TTENS' , & ! Data Name
grid%cugd_ttens , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'INITIAL SUBSIDENCE TTENDENCY OUT OFF GRELL CUMULUS SCHEME' , & ! Desc
'K s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field CUGD_TTENS memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cugd_qvtens') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CUGD_QVTENS' , & ! Data Name
grid%cugd_qvtens , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'INITIAL SUBSIDNCE QTENDENCY OUT OFF GRELL CUMULUS SCHEME' , & ! Desc
'K s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field CUGD_QVTENS memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'cugd_qcten') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CUGD_QCTEN' , & ! Data Name
grid%cugd_qcten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
'INITIAL TEMPERATURE TENDENCY OUT OFF GRELL CUMULUS SCHEME' , & ! Desc
'K s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field CUGD_QCTEN memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'swdown') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWDOWN' , & ! Data Name
grid%swdown , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'DOWNWARD SHORT WAVE FLUX AT GROUND SURFACE' , & ! Desc
'W m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SWDOWN memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'glw') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GLW' , & ! Data Name
grid%glw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'DOWNWARD LONG WAVE FLUX AT GROUND SURFACE' , & ! Desc
'W m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field GLW memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'acswupt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWUPT' , & ! Data Name
grid%acswupt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED UPWELLING SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACSWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'acswuptc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWUPTC' , & ! Data Name
grid%acswuptc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED UPWELLING CLEAR SKY SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACSWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'acswdnt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWDNT' , & ! Data Name
grid%acswdnt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED DOWNWELLING SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACSWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'acswdntc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWDNTC' , & ! Data Name
grid%acswdntc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED DOWNWELLING CLEAR SKY SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACSWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'acswupb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWUPB' , & ! Data Name
grid%acswupb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED UPWELLING SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACSWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'acswupbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWUPBC' , & ! Data Name
grid%acswupbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED UPWELLING CLEAR SKY SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACSWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'acswdnb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWDNB' , & ! Data Name
grid%acswdnb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED DOWNWELLING SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACSWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'acswdnbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWDNBC' , & ! Data Name
grid%acswdnbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED DOWNWELLING CLEAR SKY SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACSWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'aclwupt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWUPT' , & ! Data Name
grid%aclwupt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED UPWELLING LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACLWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'aclwuptc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWUPTC' , & ! Data Name
grid%aclwuptc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED UPWELLING CLEAR SKY LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACLWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'aclwdnt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWDNT' , & ! Data Name
grid%aclwdnt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED DOWNWELLING LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACLWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'aclwdntc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWDNTC' , & ! Data Name
grid%aclwdntc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED DOWNWELLING CLEAR SKY LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACLWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'aclwupb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWUPB' , & ! Data Name
grid%aclwupb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED UPWELLING LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACLWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'aclwupbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWUPBC' , & ! Data Name
grid%aclwupbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED UPWELLING CLEAR SKY LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACLWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'aclwdnb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWDNB' , & ! Data Name
grid%aclwdnb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED DOWNWELLING LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACLWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'aclwdnbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWDNBC' , & ! Data Name
grid%aclwdnbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED DOWNWELLING CLEAR SKY LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACLWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_acswupt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWUPT' , & ! Data Name
grid%i_acswupt , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR UPWELLING SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACSWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_acswuptc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWUPTC' , & ! Data Name
grid%i_acswuptc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR UPWELLING CLEAR SKY SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACSWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_acswdnt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWDNT' , & ! Data Name
grid%i_acswdnt , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR DOWNWELLING SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACSWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_acswdntc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWDNTC' , & ! Data Name
grid%i_acswdntc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR DOWNWELLING CLEAR SKY SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACSWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_acswupb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWUPB' , & ! Data Name
grid%i_acswupb , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR UPWELLING SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACSWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_acswupbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWUPBC' , & ! Data Name
grid%i_acswupbc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR UPWELLING CLEAR SKY SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACSWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_acswdnb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWDNB' , & ! Data Name
grid%i_acswdnb , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR DOWNWELLING SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACSWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_acswdnbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWDNBC' , & ! Data Name
grid%i_acswdnbc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR DOWNWELLING CLEAR SKY SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACSWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_aclwupt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWUPT' , & ! Data Name
grid%i_aclwupt , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR UPWELLING LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACLWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_aclwuptc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWUPTC' , & ! Data Name
grid%i_aclwuptc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR UPWELLING CLEAR SKY LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACLWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_aclwdnt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWDNT' , & ! Data Name
grid%i_aclwdnt , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR DOWNWELLING LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACLWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_aclwdntc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWDNTC' , & ! Data Name
grid%i_aclwdntc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR DOWNWELLING CLEAR SKY LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACLWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_aclwupb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWUPB' , & ! Data Name
grid%i_aclwupb , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR UPWELLING LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACLWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_aclwupbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWUPBC' , & ! Data Name
grid%i_aclwupbc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR UPWELLING CLEAR SKY LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACLWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_aclwdnb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWDNB' , & ! Data Name
grid%i_aclwdnb , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR DOWNWELLING LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACLWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'i_aclwdnbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWDNBC' , & ! Data Name
grid%i_aclwdnbc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BUCKET FOR DOWNWELLING CLEAR SKY LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field I_ACLWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'swupt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWUPT' , & ! Data Name
grid%swupt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS UPWELLING SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'swuptc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWUPTC' , & ! Data Name
grid%swuptc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS UPWELLING CLEAR SKY SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'swdnt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWDNT' , & ! Data Name
grid%swdnt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS DOWNWELLING SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'swdntc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWDNTC' , & ! Data Name
grid%swdntc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS DOWNWELLING CLEAR SKY SHORTWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'swupb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWUPB' , & ! Data Name
grid%swupb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS UPWELLING SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'swupbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWUPBC' , & ! Data Name
grid%swupbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS UPWELLING CLEAR SKY SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'swdnb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWDNB' , & ! Data Name
grid%swdnb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS DOWNWELLING SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'swdnbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWDNBC' , & ! Data Name
grid%swdnbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS DOWNWELLING CLEAR SKY SHORTWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field SWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lwupt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWUPT' , & ! Data Name
grid%lwupt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS UPWELLING LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field LWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lwuptc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWUPTC' , & ! Data Name
grid%lwuptc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS UPWELLING CLEAR SKY LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field LWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lwdnt') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWDNT' , & ! Data Name
grid%lwdnt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS DOWNWELLING LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field LWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lwdntc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWDNTC' , & ! Data Name
grid%lwdntc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS DOWNWELLING CLEAR SKY LONGWAVE FLUX AT TOP' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field LWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lwupb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWUPB' , & ! Data Name
grid%lwupb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS UPWELLING LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field LWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lwupbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWUPBC' , & ! Data Name
grid%lwupbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS UPWELLING CLEAR SKY LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field LWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lwdnb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWDNB' , & ! Data Name
grid%lwdnb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS DOWNWELLING LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field LWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lwdnbc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWDNBC' , & ! Data Name
grid%lwdnbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'INSTANTANEOUS DOWNWELLING CLEAR SKY LONGWAVE FLUX AT BOTTOM' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field LWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'olr') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OLR' , & ! Data Name
grid%olr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'TOA OUTGOING LONG WAVE' , & ! Desc
'W m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field OLR memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'xlat') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAT' , & ! Data Name
grid%xlat , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
'degree_north' , & ! Units
'inc/wrf_histout.inc ext_write_field XLAT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'xlong') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLONG' , & ! Data Name
grid%xlong , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
'degree_east' , & ! Units
'inc/wrf_histout.inc ext_write_field XLONG memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'xlat_u') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAT_U' , & ! Data Name
grid%xlat_u , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'west_east_stag' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
'degree_north' , & ! Units
'inc/wrf_histout.inc ext_write_field XLAT_U memorder XY' , & ! Debug message
ids , ide , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'xlong_u') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLONG_U' , & ! Data Name
grid%xlong_u , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'west_east_stag' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
'degree_east' , & ! Units
'inc/wrf_histout.inc ext_write_field XLONG_U memorder XY' , & ! Debug message
ids , ide , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'xlat_v') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAT_V' , & ! Data Name
grid%xlat_v , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north_stag' , & ! Dimname 2
'' , & ! Dimname 3
'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
'degree_north' , & ! Units
'inc/wrf_histout.inc ext_write_field XLAT_V memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'xlong_v') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLONG_V' , & ! Data Name
grid%xlong_v , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north_stag' , & ! Dimname 2
'' , & ! Dimname 3
'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
'degree_east' , & ! Units
'inc/wrf_histout.inc ext_write_field XLONG_V memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'albedo') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ALBEDO' , & ! Data Name
grid%albedo , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ALBEDO' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field ALBEDO memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'albbck') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ALBBCK' , & ! Data Name
grid%albbck , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'BACKGROUND ALBEDO' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field ALBBCK memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'emiss') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'EMISS' , & ! Data Name
grid%emiss , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'SURFACE EMISSIVITY' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field EMISS memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'noahres') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NOAHRES' , & ! Data Name
grid%noahres , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'RESIDUAL OF THE NOAH SURFACE ENERGY BUDGET' , & ! Desc
'W m{-2}' , & ! Units
'inc/wrf_histout.inc ext_write_field NOAHRES memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'tmn') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TMN' , & ! Data Name
grid%tmn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'SOIL TEMPERATURE AT LOWER BOUNDARY' , & ! Desc
'K' , & ! Units
'inc/wrf_histout.inc ext_write_field TMN memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'xland') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAND' , & ! Data Name
grid%xland , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'LAND MASK (1 FOR LAND, 2 FOR WATER)' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field XLAND memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'ust') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UST' , & ! Data Name
grid%ust , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'U* IN SIMILARITY THEORY' , & ! Desc
'm s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field UST memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'pblh') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PBLH' , & ! Data Name
grid%pblh , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'PBL HEIGHT' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field PBLH memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'hfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HFX' , & ! Data Name
grid%hfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'UPWARD HEAT FLUX AT THE SURFACE' , & ! Desc
'W m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field HFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'qfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QFX' , & ! Data Name
grid%qfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'UPWARD MOISTURE FLUX AT THE SURFACE' , & ! Desc
'kg m-2 s-1' , & ! Units
'inc/wrf_histout.inc ext_write_field QFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lh') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LH' , & ! Data Name
grid%lh , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'LATENT HEAT FLUX AT THE SURFACE' , & ! Desc
'W m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field LH memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'achfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACHFX' , & ! Data Name
grid%achfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED UPWARD HEAT FLUX AT THE SURFACE' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACHFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'aclhf') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLHF' , & ! Data Name
grid%aclhf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'ACCUMULATED UPWARD LATENT HEAT FLUX AT THE SURFACE' , & ! Desc
'J m-2' , & ! Units
'inc/wrf_histout.inc ext_write_field ACLHF memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'snowc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWC' , & ! Data Name
grid%snowc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'FLAG INDICATING SNOW COVERAGE (1 FOR SNOW COVER)' , & ! Desc
'' , & ! Units
'inc/wrf_histout.inc ext_write_field SNOWC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'save_topo_from_real') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SAVE_TOPO_FROM_REAL' , & ! Data Name
grid%save_topo_from_real , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'0' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'(1=original topo from real/0=topo modified by WRF) flag if input has original topography from real' , & ! Desc
'flag' , & ! Units
'inc/wrf_histout.inc ext_write_field SAVE_TOPO_FROM_REAL memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
ENDIF
DO itrace = PARAM_FIRST_SCALAR , num_fdda3d
IF (BTEST(fdda3d_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(fdda3d_dname_table( grid%id, itrace )), & !data name
grid%fdda3d(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
fdda3d_desc_table( grid%id, itrace ), & ! Desc
fdda3d_units_table( grid%id, itrace ), & ! Units
'inc/wrf_histout.inc ext_write_field '//TRIM(fdda3d_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_fdda2d
IF (BTEST(fdda2d_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(fdda2d_dname_table( grid%id, itrace )), & !data name
grid%fdda2d(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'one_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
fdda2d_desc_table( grid%id, itrace ), & ! Desc
fdda2d_units_table( grid%id, itrace ), & ! Units
'inc/wrf_histout.inc ext_write_field '//TRIM(fdda2d_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , 1 , jds , (jde-1) , &
ims , ime , 1 , 1 , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , 1 , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
IF ( in_use_for_config(grid%id,'nfuel_cat') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NFUEL_CAT' , & ! Data Name
grid%nfuel_cat , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fuel data' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field NFUEL_CAT memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'zsf') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZSF' , & ! Data Name
grid%zsf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'height of surface above sea level' , & ! Desc
'm' , & ! Units
'inc/wrf_histout.inc ext_write_field ZSF memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'tign_g') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TIGN_G' , & ! Data Name
grid%tign_g , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'ignition time on ground' , & ! Desc
's' , & ! Units
'inc/wrf_histout.inc ext_write_field TIGN_G memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'rthfrten') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RTHFRTEN' , & ! Data Name
grid%rthfrten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'temperature tendency' , & ! Desc
'K/s' , & ! Units
'inc/wrf_histout.inc ext_write_field RTHFRTEN memorder XZY' , & ! Debug message
ids , (ide-1) , kds , kde , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'rqvfrten') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQVFRTEN' , & ! Data Name
grid%rqvfrten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'humidity tendency' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field RQVFRTEN memorder XZY' , & ! Debug message
ids , (ide-1) , kds , kde , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'grnhfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GRNHFX' , & ! Data Name
grid%grnhfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'heat flux from ground fire' , & ! Desc
'W/m^2' , & ! Units
'inc/wrf_histout.inc ext_write_field GRNHFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'grnqfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GRNQFX' , & ! Data Name
grid%grnqfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'moisture flux from ground fire' , & ! Desc
'W/m^2' , & ! Units
'inc/wrf_histout.inc ext_write_field GRNQFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'canhfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CANHFX' , & ! Data Name
grid%canhfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'heat flux from crown fire' , & ! Desc
'W/m^2' , & ! Units
'inc/wrf_histout.inc ext_write_field CANHFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'canqfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CANQFX' , & ! Data Name
grid%canqfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'south_north' , & ! Dimname 2
'' , & ! Dimname 3
'moisture flux from crown fire' , & ! Desc
'W/m^2' , & ! Units
'inc/wrf_histout.inc ext_write_field CANQFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'lfn') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LFN' , & ! Data Name
grid%lfn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'level function' , & ! Desc
'1' , & ! Units
'inc/wrf_histout.inc ext_write_field LFN memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fuel_frac') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FUEL_FRAC' , & ! Data Name
grid%fuel_frac , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fuel remaining' , & ! Desc
'1' , & ! Units
'inc/wrf_histout.inc ext_write_field FUEL_FRAC memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fire_area') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FIRE_AREA' , & ! Data Name
grid%fire_area , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fraction of cell area on fire' , & ! Desc
'1' , & ! Units
'inc/wrf_histout.inc ext_write_field FIRE_AREA memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'uf') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UF' , & ! Data Name
grid%uf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fire wind' , & ! Desc
'm/s' , & ! Units
'inc/wrf_histout.inc ext_write_field UF memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'vf') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VF' , & ! Data Name
grid%vf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fire wind' , & ! Desc
'm/s' , & ! Units
'inc/wrf_histout.inc ext_write_field VF memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fgrnhfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FGRNHFX' , & ! Data Name
grid%fgrnhfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'heat flux from ground fire' , & ! Desc
'W/m^2' , & ! Units
'inc/wrf_histout.inc ext_write_field FGRNHFX memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fgrnqfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FGRNQFX' , & ! Data Name
grid%fgrnqfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'moisture flux from ground fire' , & ! Desc
'W/m^2' , & ! Units
'inc/wrf_histout.inc ext_write_field FGRNQFX memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fcanhfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FCANHFX' , & ! Data Name
grid%fcanhfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'heat flux from crown fire' , & ! Desc
'W/m^2' , & ! Units
'inc/wrf_histout.inc ext_write_field FCANHFX memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fcanqfx') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FCANQFX' , & ! Data Name
grid%fcanqfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'moisture flux from crown fire' , & ! Desc
'W/m^2' , & ! Units
'inc/wrf_histout.inc ext_write_field FCANQFX memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fxlong') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FXLONG' , & ! Data Name
grid%fxlong , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'longitude of midpoints of fire cells' , & ! Desc
'degrees' , & ! Units
'inc/wrf_histout.inc ext_write_field FXLONG memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fxlat') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FXLAT' , & ! Data Name
grid%fxlat , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'latitude of midpoints of fire cells' , & ! Desc
'degrees' , & ! Units
'inc/wrf_histout.inc ext_write_field FXLAT memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fuel_time') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FUEL_TIME' , & ! Data Name
grid%fuel_time , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fuel' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field FUEL_TIME memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'bbb') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'BBB' , & ! Data Name
grid%bbb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fuel' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field BBB memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'betafl') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'BETAFL' , & ! Data Name
grid%betafl , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fuel' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field BETAFL memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'phiwc') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PHIWC' , & ! Data Name
grid%phiwc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fuel' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field PHIWC memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'r_0') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'R_0' , & ! Data Name
grid%r_0 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fuel' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field R_0 memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'fgip') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FGIP' , & ! Data Name
grid%fgip , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fuel' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field FGIP memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
IF ( in_use_for_config(grid%id,'ischap') ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ISCHAP' , & ! Data Name
grid%ischap , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east_subgrid' , & ! Dimname 1
'south_north_subgrid' , & ! Dimname 2
'' , & ! Dimname 3
'fuel' , & ! Desc
'-' , & ! Units
'inc/wrf_histout.inc ext_write_field ISCHAP memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
ENDIF
!ENDOFREGISTRYGENERATEDINCLUDE