include file: wrf_inputout.inc 1,178
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_inputout.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 ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field
( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U' , & ! Data Name
grid%em_u_2 , & ! Field
WRF_real , & ! 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_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V' , & ! Data Name
grid%em_v_2 , & ! Field
WRF_real , & ! 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_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W' , & ! Data Name
grid%em_w_2 , & ! Field
WRF_real , & ! 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_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PH' , & ! Data Name
grid%em_ph_2 , & ! Field
WRF_real , & ! 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
'm{2} s{-2}' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PHB' , & ! Data Name
grid%em_phb , & ! Field
WRF_real , & ! 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
'm{2} s{-2}' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T' , & ! Data Name
grid%em_t_2 , & ! Field
WRF_real , & ! 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_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MU' , & ! Data Name
grid%em_mu_2 , & ! Field
WRF_real , & ! 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
'pascals' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MUB' , & ! Data Name
grid%em_mub , & ! Field
WRF_real , & ! 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
'pascals' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MU0' , & ! Data Name
grid%em_mu0 , & ! Field
WRF_real , & ! 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
'initial dry mass in column' , & ! Desc
'pascals' , & ! Units
'inc/wrf_inputout.inc ext_write_field MU0 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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FNM' , & ! Data Name
grid%em_fnm , & ! Field
WRF_real , & ! 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 wieght for vertical stretching' , & ! Desc
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FNP' , & ! Data Name
grid%em_fnp , & ! Field
WRF_real , & ! 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
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDNW' , & ! Data Name
grid%em_rdnw , & ! Field
WRF_real , & ! 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 dn values on full (w) levels' , & ! Desc
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDN' , & ! Data Name
grid%em_rdn , & ! Field
WRF_real , & ! 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
'dn values on half (mass) levels' , & ! Desc
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DNW' , & ! Data Name
grid%em_dnw , & ! Field
WRF_real , & ! 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
'dn values on full (w) levels' , & ! Desc
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DN ' , & ! Data Name
grid%em_dn , & ! Field
WRF_real , & ! 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
'dn values on half (mass) levels' , & ! Desc
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZNU' , & ! Data Name
grid%em_znu , & ! Field
WRF_real , & ! 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
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZNW' , & ! Data Name
grid%em_znw , & ! Field
WRF_real , & ! 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
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T_BASE' , & ! Data Name
grid%em_t_base , & ! Field
WRF_real , & ! 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
'BASE STATET T IN IDEALIZED CASES' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field T_BASE 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 )
END IF
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CFN' , & ! Data Name
grid%cfn , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CFN1' , & ! Data Name
grid%cfn1 , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'EPSTS' , & ! Data Name
grid%epsts , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field EPSTS memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'STEP_NUMBER' , & ! Data Name
grid%step_number , & ! 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_inputout.inc ext_write_field STEP_NUMBER memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Q2' , & ! Data Name
grid%q2 , & ! Field
WRF_real , & ! 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
' ' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T2' , & ! Data Name
grid%t2 , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH2' , & ! Data Name
grid%th2 , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U10' , & ! Data Name
grid%u10 , & ! Field
WRF_real , & ! 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' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V10' , & ! Data Name
grid%v10 , & ! Field
WRF_real , & ! 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' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDX' , & ! Data Name
grid%rdx , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDY' , & ! Data Name
grid%rdy , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DTS' , & ! Data Name
grid%dts , & ! Field
WRF_real , & ! 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
'SMALL TIMESTEP' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field DTS memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DTSEPS' , & ! Data Name
grid%dtseps , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field DTSEPS memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RESM' , & ! Data Name
grid%resm , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZETATOP' , & ! Data Name
grid%zetatop , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CF1' , & ! Data Name
grid%cf1 , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CF2' , & ! Data Name
grid%cf2 , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CF3' , & ! Data Name
grid%cf3 , & ! Field
WRF_real , & ! 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_inputout.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 )
IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QVAPOR' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qv) , & ! Field
WRF_real , & ! 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
'-' , & ! Desc
'-' , & ! Units
'inc/wrf_inputout.inc ext_write_field QVAPOR 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 )
END IF
IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QCLOUD' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qc) , & ! Field
WRF_real , & ! 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
'-' , & ! Desc
'-' , & ! Units
'inc/wrf_inputout.inc ext_write_field QCLOUD 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 )
END IF
IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QRAIN' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qr) , & ! Field
WRF_real , & ! 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
'-' , & ! Desc
'-' , & ! Units
'inc/wrf_inputout.inc ext_write_field QRAIN 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 )
END IF
IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QICE' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qi) , & ! Field
WRF_real , & ! 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
'-' , & ! Desc
'-' , & ! Units
'inc/wrf_inputout.inc ext_write_field QICE 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 )
END IF
IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QSNOW' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qs) , & ! Field
WRF_real , & ! 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
'-' , & ! Desc
'-' , & ! Units
'inc/wrf_inputout.inc ext_write_field QSNOW 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 )
END IF
IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QGRAUP' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qg) , & ! Field
WRF_real , & ! 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
'-' , & ! Desc
'-' , & ! Units
'inc/wrf_inputout.inc ext_write_field QGRAUP 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 )
END IF
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FCX' , & ! Data Name
grid%fcx , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'C' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'RELAXATION TERM FOR BOUNDARY ZONE' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field FCX memorder C' , & ! Debug message
1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GCX' , & ! Data Name
grid%gcx , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'C' , & ! MemoryOrder
'' , & ! Stagger
'' , & ! Dimname 1
'' , & ! Dimname 2
'' , & ! Dimname 3
'2ND RELAXATION TERM FOR BOUNDARY ZONE' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field GCX memorder C' , & ! Debug message
1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DTBC' , & ! Data Name
grid%dtbc , & ! Field
WRF_real , & ! 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 SINCE BOUNDARY READ' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field DTBC memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SM000010' , & ! Data Name
grid%sm000010 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SM000010 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SM010040 ' , & ! Data Name
grid%sm010040 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SM010040 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SM040100 ' , & ! Data Name
grid%sm040100 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SM040100 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SM100200 ' , & ! Data Name
grid%sm100200 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SM100200 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SM010200' , & ! Data Name
grid%sm010200 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SM010200 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM000' , & ! Data Name
grid%soilm000 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILM000 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM005' , & ! Data Name
grid%soilm005 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILM005 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM020' , & ! Data Name
grid%soilm020 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILM020 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM040' , & ! Data Name
grid%soilm040 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILM040 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM160' , & ! Data Name
grid%soilm160 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILM160 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM300' , & ! Data Name
grid%soilm300 , & ! Field
WRF_real , & ! 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
'LAYER SOIL MOISTURE' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILM300 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SW000010' , & ! Data Name
grid%sw000010 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SW000010 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SW010040' , & ! Data Name
grid%sw010040 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SW010040 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SW040100' , & ! Data Name
grid%sw040100 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SW040100 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SW100200' , & ! Data Name
grid%sw100200 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SW100200 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SW010200' , & ! Data Name
grid%sw010200 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SW010200 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW000' , & ! Data Name
grid%soilw000 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILW000 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW005' , & ! Data Name
grid%soilw005 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILW005 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW020' , & ! Data Name
grid%soilw020 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILW020 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW040' , & ! Data Name
grid%soilw040 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILW040 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW160' , & ! Data Name
grid%soilw160 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILW160 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW300' , & ! Data Name
grid%soilw300 , & ! Field
WRF_real , & ! 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
'LAYER SOIL LIQUID' , & ! Desc
'm{3) m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILW300 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ST000010' , & ! Data Name
grid%st000010 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field ST000010 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ST010040' , & ! Data Name
grid%st010040 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field ST010040 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ST040100' , & ! Data Name
grid%st040100 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field ST040100 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ST100200' , & ! Data Name
grid%st100200 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field ST100200 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ST010200' , & ! Data Name
grid%st010200 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field ST010200 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT000' , & ! Data Name
grid%soilt000 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILT000 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT005' , & ! Data Name
grid%soilt005 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILT005 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT020' , & ! Data Name
grid%soilt020 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILT020 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT040' , & ! Data Name
grid%soilt040 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILT040 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT160' , & ! Data Name
grid%soilt160 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILT160 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT300' , & ! Data Name
grid%soilt300 , & ! Field
WRF_real , & ! 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
'LAYER SOIL TEMPERATURE' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILT300 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDMASK' , & ! Data Name
grid%landmask , & ! Field
WRF_real , & ! 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' , & ! Desc
'flag' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TOPOSTDV' , & ! Data Name
grid%topostdv , & ! Field
WRF_real , & ! 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
'ELEVATION STD DEV' , & ! Desc
'm' , & ! Units
'inc/wrf_inputout.inc ext_write_field TOPOSTDV 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TOPOSLPX' , & ! Data Name
grid%toposlpx , & ! Field
WRF_real , & ! 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
'ELEVATION X SLOPE' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field TOPOSLPX 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TOPOSLPY' , & ! Data Name
grid%toposlpy , & ! Field
WRF_real , & ! 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
'ELEVATION Y SLOPE' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field TOPOSLPY 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SHDMAX' , & ! Data Name
grid%shdmax , & ! Field
WRF_real , & ! 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
'ANNUAL MAX VEG FRAC' , & ! Desc
'fraction' , & ! Units
'inc/wrf_inputout.inc ext_write_field SHDMAX 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SHDMIN' , & ! Data Name
grid%shdmin , & ! Field
WRF_real , & ! 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
'ANNUAL MIN VEG FRAC' , & ! Desc
'fraction' , & ! Units
'inc/wrf_inputout.inc ext_write_field SHDMIN 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOALB' , & ! Data Name
grid%snoalb , & ! Field
WRF_real , & ! 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
'ANNUAL MAX SNOW ALBEDO' , & ! Desc
'fraction' , & ! Units
'inc/wrf_inputout.inc ext_write_field SNOALB 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SLOPECAT' , & ! Data Name
grid%slopecat , & ! Field
WRF_real , & ! 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
'SLOPE CATEGORY' , & ! Desc
'flag' , & ! Units
'inc/wrf_inputout.inc ext_write_field SLOPECAT 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILHGT' , & ! Data Name
grid%toposoil , & ! Field
WRF_real , & ! 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
'ELEVATION OF LSM DATA' , & ! Desc
'm' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILHGT 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDUSEF' , & ! Data Name
grid%landusef , & ! Field
WRF_real , & ! 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
'land_cat_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'LANDUSE FRACTION' , & ! Desc
'fraction' , & ! Units
'inc/wrf_inputout.inc ext_write_field LANDUSEF memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_land_cat , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_land_cat , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_land_cat , jps , MIN( (jde-1), jpe ) , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILCTOP' , & ! Data Name
grid%soilctop , & ! Field
WRF_real , & ! 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_cat_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'SOIL CAT FRACTION (TOP)' , & ! Desc
'fraction' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILCTOP memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_soil_cat , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_soil_cat , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_soil_cat , jps , MIN( (jde-1), jpe ) , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILCBOT' , & ! Data Name
grid%soilcbot , & ! Field
WRF_real , & ! 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_cat_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
'SOIL CAT FRACTION (BOTTOM)' , & ! Desc
'fraction' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILCBOT memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_soil_cat , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_soil_cat , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_soil_cat , jps , MIN( (jde-1), jpe ) , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILCAT' , & ! Data Name
grid%soilcat , & ! Field
WRF_real , & ! 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 CAT DOMINANT TYPE' , & ! Desc
'category' , & ! Units
'inc/wrf_inputout.inc ext_write_field SOILCAT 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VEGCAT' , & ! Data Name
grid%vegcat , & ! Field
WRF_real , & ! 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 CAT DOMINANT TYPE' , & ! Desc
'category' , & ! Units
'inc/wrf_inputout.inc ext_write_field VEGCAT 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSLB' , & ! Data Name
grid%tslb , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZS' , & ! Data Name
grid%zs , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DZS' , & ! Data Name
grid%dzs , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SMOIS' , & ! Data Name
grid%smois , & ! Field
WRF_real , & ! 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
'' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SH2O' , & ! Data Name
grid%sh2o , & ! Field
WRF_real , & ! 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
'' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XICE' , & ! Data Name
grid%xice , & ! Field
WRF_real , & ! 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' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field XICE 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SMSTAV' , & ! Data Name
grid%smstav , & ! Field
WRF_real , & ! 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
'MOISTURE VARIBILITY' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field SMSTAV 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SMSTOT' , & ! Data Name
grid%smstot , & ! Field
WRF_real , & ! 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
'TOTAL SOIL MOISTURE' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field SMSTOT 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFROFF' , & ! Data Name
grid%sfcrunoff , & ! Field
WRF_real , & ! 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
'' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UDROFF' , & ! Data Name
grid%udrunoff , & ! Field
WRF_real , & ! 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
'' , & ! Units
'inc/wrf_inputout.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 )
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
'VEGETATION TYPE' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.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 )
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
'SOIL TYPE' , & ! Desc
' ' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VEGFRA' , & ! Data Name
grid%vegfra , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFCEVP' , & ! Data Name
grid%sfcevp , & ! Field
WRF_real , & ! 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 EVAPORATION' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field SFCEVP 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GRDFLX' , & ! Data Name
grid%grdflx , & ! Field
WRF_real , & ! 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
'' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFCEXC ' , & ! Data Name
grid%sfcexc , & ! Field
WRF_real , & ! 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 EXCHANGE COEFFICIENT' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field SFCEXC 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSNOW' , & ! Data Name
grid%acsnow , & ! Field
WRF_real , & ! 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 SNOW' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field ACSNOW 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSNOM' , & ! Data Name
grid%acsnom , & ! Field
WRF_real , & ! 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 MELTED SNOW' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field ACSNOM 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOW' , & ! Data Name
grid%snow , & ! Field
WRF_real , & ! 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
'' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWH' , & ! Data Name
grid%snowh , & ! Field
WRF_real , & ! 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
'' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CANWAT' , & ! Data Name
grid%canwat , & ! Field
WRF_real , & ! 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
'' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SST' , & ! Data Name
grid%sst , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FNDSNOWH' , & ! Data Name
grid%ifndsnowh , & ! 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
'SNOWH_LOGICAL' , & ! Desc
'-' , & ! Units
'inc/wrf_inputout.inc ext_write_field FNDSNOWH memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FNDSOILW' , & ! Data Name
grid%ifndsoilw , & ! 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
'SOILW_LOGICAL' , & ! Desc
'-' , & ! Units
'inc/wrf_inputout.inc ext_write_field FNDSOILW memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'POTEVP' , & ! Data Name
grid%potevp , & ! Field
WRF_real , & ! 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
'POTENTIAL EVAPORATION' , & ! Desc
'W m{-2}' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOPCX' , & ! Data Name
grid%snopcx , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILTB' , & ! Data Name
grid%soiltb , & ! Field
WRF_real , & ! 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 TEMP' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'THZ0' , & ! Data Name
grid%thz0 , & ! Field
WRF_real , & ! 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
'POTENTIAL TEMPERATURE AT ZNT' , & ! Desc
'K' , & ! Units
'inc/wrf_inputout.inc ext_write_field THZ0 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Z0' , & ! Data Name
grid%z0 , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QZ0' , & ! Data Name
grid%qz0 , & ! Field
WRF_real , & ! 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
'SPECIFIC HUMIDITY AT ZNT' , & ! Desc
'kg kg{-1}' , & ! Units
'inc/wrf_inputout.inc ext_write_field QZ0 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UZ0' , & ! Data Name
grid%uz0 , & ! Field
WRF_real , & ! 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 WIND COMPONENT AT ZNT' , & ! Desc
'm s{-1}' , & ! Units
'inc/wrf_inputout.inc ext_write_field UZ0 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VZ0' , & ! Data Name
grid%vz0 , & ! Field
WRF_real , & ! 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 WIND COMPONENT AT ZNT' , & ! Desc
'm s{-1}' , & ! Units
'inc/wrf_inputout.inc ext_write_field VZ0 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QSFC' , & ! Data Name
grid%qsfc , & ! Field
WRF_real , & ! 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
'SPECIFIC HUMIDITY AT LOWER BOUNDARY' , & ! Desc
'kg kg{-1}' , & ! Units
'inc/wrf_inputout.inc ext_write_field QSFC 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'AKHS' , & ! Data Name
grid%akhs , & ! Field
WRF_real , & ! 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 EXCH COEFF FOR HEAT' , & ! Desc
'm s{-1}' , & ! Units
'inc/wrf_inputout.inc ext_write_field AKHS 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'AKMS' , & ! Data Name
grid%akms , & ! Field
WRF_real , & ! 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 EXCH COEFF FOR MOMENTUM' , & ! Desc
'm s{-1}' , & ! Units
'inc/wrf_inputout.inc ext_write_field AKMS 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HTOP' , & ! Data Name
grid%htop , & ! Field
WRF_real , & ! 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
'TOP OF CONVECTION LELVEL' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field HTOP 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HBOT' , & ! Data Name
grid%hbot , & ! Field
WRF_real , & ! 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
'BOT OF CONVECTION LELVEL' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field HBOT 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CUPPT' , & ! Data Name
grid%cuppt , & ! Field
WRF_real , & ! 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 CONVECTIVE RAIN SINC LAST CALL TO THE RADIATION' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field CUPPT 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TOTSWDN' , & ! Data Name
grid%totswdn , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field TOTSWDN 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TOTLWDN' , & ! Data Name
grid%totlwdn , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field TOTLWDN 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RSWTOA' , & ! Data Name
grid%rswtoa , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field RSWTOA 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RLWTOA' , & ! Data Name
grid%rlwtoa , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field RLWTOA 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CZMEAN' , & ! Data Name
grid%czmean , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field CZMEAN 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CFRACL' , & ! Data Name
grid%cfracl , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field CFRACL 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CFRACM' , & ! Data Name
grid%cfracm , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field CFRACM 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CFRACH' , & ! Data Name
grid%cfrach , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field CFRACH 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACFRST' , & ! Data Name
grid%acfrst , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field ACFRST 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NCFRST' , & ! Data Name
grid%ncfrst , & ! 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
'-' , & ! Desc
'-' , & ! Units
'inc/wrf_inputout.inc ext_write_field NCFRST 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACFRCV' , & ! Data Name
grid%acfrcv , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field ACFRCV 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NCFRCV' , & ! Data Name
grid%ncfrcv , & ! 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
'-' , & ! Desc
'-' , & ! Units
'inc/wrf_inputout.inc ext_write_field NCFRCV 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_M' , & ! Data Name
grid%msft , & ! Field
WRF_real , & ! 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
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_U' , & ! Data Name
grid%msfu , & ! Field
WRF_real , & ! 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
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_V' , & ! Data Name
grid%msfv , & ! Field
WRF_real , & ! 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
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'F' , & ! Data Name
grid%f , & ! Field
WRF_real , & ! 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
'' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'E' , & ! Data Name
grid%e , & ! Field
WRF_real , & ! 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
'' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SINALPHA' , & ! Data Name
grid%sina , & ! Field
WRF_real , & ! 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
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'COSALPHA' , & ! Data Name
grid%cosa , & ! Field
WRF_real , & ! 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
'dimensionless' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HGT' , & ! Data Name
grid%ht , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSK' , & ! Data Name
grid%tsk , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_BASE' , & ! Data Name
grid%u_base , & ! Field
WRF_real , & ! 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
'BASE STATE X WIND IN IDEALIZED CASES' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field U_BASE 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_BASE' , & ! Data Name
grid%v_base , & ! Field
WRF_real , & ! 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
'BASE STATE Y WIND IN IDEALIZED CASES' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field V_BASE 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QV_BASE' , & ! Data Name
grid%qv_base , & ! Field
WRF_real , & ! 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
'BASE STATE QV IN IDEALIZED CASES' , & ! Desc
'' , & ! Units
'inc/wrf_inputout.inc ext_write_field QV_BASE 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_FRAME' , & ! Data Name
grid%u_frame , & ! Field
WRF_real , & ! 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
'FRAME X WIND' , & ! Desc
'm{1} s{-1}' , & ! Units
'inc/wrf_inputout.inc ext_write_field U_FRAME memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_FRAME' , & ! Data Name
grid%v_frame , & ! Field
WRF_real , & ! 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
'FRAME Y WIND' , & ! Desc
'm{1} s{-1}' , & ! Units
'inc/wrf_inputout.inc ext_write_field V_FRAME memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'P_TOP' , & ! Data Name
grid%p_top , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GSW' , & ! Data Name
grid%gsw , & ! Field
WRF_real , & ! 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_inputout.inc ext_write_field GSW 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GLW' , & ! Data Name
grid%glw , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAT' , & ! Data Name
grid%xlat , & ! Field
WRF_real , & ! 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' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLONG' , & ! Data Name
grid%xlong , & ! Field
WRF_real , & ! 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' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ALBBCK' , & ! Data Name
grid%albbck , & ! Field
WRF_real , & ! 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
'NA' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'EMISS' , & ! Data Name
grid%emiss , & ! Field
WRF_real , & ! 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
'NA' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LU_INDEX' , & ! Data Name
grid%lu_index , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TMN' , & ! Data Name
grid%tmn , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAND' , & ! Data Name
grid%xland , & ! Field
WRF_real , & ! 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
'NA' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZNT' , & ! Data Name
grid%znt , & ! Field
WRF_real , & ! 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
'TIME-VARYING ROUGHNESS LENGTH' , & ! Desc
'm' , & ! Units
'inc/wrf_inputout.inc ext_write_field ZNT 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UST' , & ! Data Name
grid%ust , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MOL' , & ! Data Name
grid%mol , & ! Field
WRF_real , & ! 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
'Q* IN SIMILARITY THEORY' , & ! Desc
'kg kg{-1}' , & ! Units
'inc/wrf_inputout.inc ext_write_field MOL 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PBLH' , & ! Data Name
grid%pblh , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CAPG' , & ! Data Name
grid%capg , & ! Field
WRF_real , & ! 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
'HEAT CAPACITY FOR SOIL' , & ! Desc
'J K{-1} m{-3}' , & ! Units
'inc/wrf_inputout.inc ext_write_field CAPG 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'THC' , & ! Data Name
grid%thc , & ! Field
WRF_real , & ! 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
'THERMAL INERTIA' , & ! Desc
'Cal cm{-1} K{-1} s{-0.5}' , & ! Units
'inc/wrf_inputout.inc ext_write_field THC 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HFX' , & ! Data Name
grid%hfx , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QFX' , & ! Data Name
grid%qfx , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LH' , & ! Data Name
grid%lh , & ! Field
WRF_real , & ! 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_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWC' , & ! Data Name
grid%snowc , & ! Field
WRF_real , & ! 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
'NA' , & ! Units
'inc/wrf_inputout.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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAVAIL' , & ! Data Name
grid%mavail , & ! Field
WRF_real , & ! 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 MOISTURE AVAILABILITY' , & ! Desc
'NA' , & ! Units
'inc/wrf_inputout.inc ext_write_field MAVAIL 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 )
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TKESFCF' , & ! Data Name
grid%tkesfcf , & ! Field
WRF_real , & ! 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
'TKE AT THE SURFACE' , & ! Desc
'm{2} s{-2}' , & ! Units
'inc/wrf_inputout.inc ext_write_field TKESFCF 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 )
!ENDOFREGISTRYGENERATEDINCLUDE