include file: wrf_inputin.inc 1,127
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_inputin.inc'
!
! WARNING This file is generated automatically by use_registry
! using the data base in the file named Registry.
! Do not edit. Your changes to this file will be lost.
!
IF ( in_use_for_config(grid%id,'lu_index') ) THEN
CALL wrf_ext_read_field
( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LU_INDEX' , & ! Data Name
grid%lu_index , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'znu') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZNU' , & ! Data Name
grid%znu , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 ( in_use_for_config(grid%id,'znw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZNW' , & ! Data Name
grid%znw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 ( in_use_for_config(grid%id,'zs') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZS' , & ! Data Name
grid%zs , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'dzs') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DZS' , & ! Data Name
grid%dzs , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'u_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U' , & ! Data Name
grid%u_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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
grid%u_1 = grid%u_2
IF ( in_use_for_config(grid%id,'v_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V' , & ! Data Name
grid%v_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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
grid%v_1 = grid%v_2
IF ( in_use_for_config(grid%id,'w_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W' , & ! Data Name
grid%w_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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
grid%w_1 = grid%w_2
IF ( in_use_for_config(grid%id,'ph_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PH' , & ! Data Name
grid%ph_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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
grid%ph_1 = grid%ph_2
IF ( in_use_for_config(grid%id,'phb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PHB' , & ! Data Name
grid%phb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 ( in_use_for_config(grid%id,'t_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T' , & ! Data Name
grid%t_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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
grid%t_1 = grid%t_2
IF ( in_use_for_config(grid%id,'t_init') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T_INIT' , & ! Data Name
grid%t_init , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field T_INIT 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 ( in_use_for_config(grid%id,'mu_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MU' , & ! Data Name
grid%mu_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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
grid%mu_1 = grid%mu_2
IF ( in_use_for_config(grid%id,'mub') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MUB' , & ! Data Name
grid%mub , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 ( in_use_for_config(grid%id,'p') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'P' , & ! Data Name
grid%p , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field P memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'pb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PB' , & ! Data Name
grid%pb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field PB memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'sr') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SR' , & ! Data Name
grid%sr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field SR memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fnm') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FNM' , & ! Data Name
grid%fnm , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 ( in_use_for_config(grid%id,'fnp') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FNP' , & ! Data Name
grid%fnp , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 ( in_use_for_config(grid%id,'rdnw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDNW' , & ! Data Name
grid%rdnw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 ( in_use_for_config(grid%id,'rdn') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDN' , & ! Data Name
grid%rdn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 ( in_use_for_config(grid%id,'dnw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DNW' , & ! Data Name
grid%dnw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 ( in_use_for_config(grid%id,'dn') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DN ' , & ! Data Name
grid%dn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 ( in_use_for_config(grid%id,'t_base') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T_BASE' , & ! Data Name
grid%t_base , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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
IF ( in_use_for_config(grid%id,'cfn') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CFN' , & ! Data Name
grid%cfn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'cfn1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CFN1' , & ! Data Name
grid%cfn1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'step_number') ) THEN
CALL wrf_ext_read_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
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'q2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Q2' , & ! Data Name
grid%q2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'t2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T2' , & ! Data Name
grid%t2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'th2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH2' , & ! Data Name
grid%th2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'psfc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PSFC' , & ! Data Name
grid%psfc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field PSFC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'u10') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U10' , & ! Data Name
grid%u10 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'v10') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V10' , & ! Data Name
grid%v10 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'rdx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDX' , & ! Data Name
grid%rdx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'rdy') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RDY' , & ! Data Name
grid%rdy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'dts') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DTS' , & ! Data Name
grid%dts , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'dtseps') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DTSEPS' , & ! Data Name
grid%dtseps , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'resm') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RESM' , & ! Data Name
grid%resm , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'zetatop') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZETATOP' , & ! Data Name
grid%zetatop , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'cf1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CF1' , & ! Data Name
grid%cf1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'cf2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CF2' , & ! Data Name
grid%cf2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'cf3') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CF3' , & ! Data Name
grid%cf3 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
DO itrace = PARAM_FIRST_SCALAR , num_moist
IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(moist_dname_table( grid%id, itrace )), & !data name
grid%moist(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_dfi_moist
IF (BTEST(dfi_moist_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(dfi_moist_dname_table( grid%id, itrace )), & !data name
grid%dfi_moist(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_write_field '//TRIM(dfi_moist_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_chem
IF (BTEST(chem_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(chem_dname_table( grid%id, itrace )), & !data name
grid%chem(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_write_field '//TRIM(chem_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_scalar
IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(scalar_dname_table( grid%id, itrace )), & !data name
grid%scalar(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_dfi_scalar
IF (BTEST(dfi_scalar_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(dfi_scalar_dname_table( grid%id, itrace )), & !data name
grid%dfi_scalar(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_write_field '//TRIM(dfi_scalar_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
IF ( in_use_for_config(grid%id,'fcx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FCX' , & ! Data Name
grid%fcx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'C' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'gcx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GCX' , & ! Data Name
grid%gcx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'C' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'dtbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DTBC' , & ! Data Name
grid%dtbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'landmask') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDMASK' , & ! Data Name
grid%landmask , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'shdmax') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SHDMAX' , & ! Data Name
grid%shdmax , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'shdmin') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SHDMIN' , & ! Data Name
grid%shdmin , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'snoalb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOALB' , & ! Data Name
grid%snoalb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'landusef') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDUSEF' , & ! Data Name
grid%landusef , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'soilctop') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILCTOP' , & ! Data Name
grid%soilctop , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'soilcbot') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILCBOT' , & ! Data Name
grid%soilcbot , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'tslb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSLB' , & ! Data Name
grid%tslb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'smois') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SMOIS' , & ! Data Name
grid%smois , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'sh2o') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SH2O' , & ! Data Name
grid%sh2o , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'xice') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SEAICE' , & ! Data Name
grid%xice , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field SEAICE memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ivgtyp') ) THEN
CALL wrf_ext_read_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
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'isltyp') ) THEN
CALL wrf_ext_read_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
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'vegfra') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VEGFRA' , & ! Data Name
grid%vegfra , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'snow') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOW' , & ! Data Name
grid%snow , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'snowh') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWH' , & ! Data Name
grid%snowh , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'rhosn') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RHOSN' , & ! Data Name
grid%rhosn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field RHOSN memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'canwat') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CANWAT' , & ! Data Name
grid%canwat , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'sst') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SST' , & ! Data Name
grid%sst , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'ifndsnowh') ) THEN
CALL wrf_ext_read_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
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'ifndsoilw') ) THEN
CALL wrf_ext_read_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
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'lai') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LAI' , & ! Data Name
grid%lai , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field LAI memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'var2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VAR' , & ! Data Name
grid%var2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field VAR memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'oc12d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CON' , & ! Data Name
grid%oc12d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field CON memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'oa1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OA1' , & ! Data Name
grid%oa1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field OA1 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'oa2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OA2' , & ! Data Name
grid%oa2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field OA2 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'oa3') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OA3' , & ! Data Name
grid%oa3 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field OA3 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'oa4') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OA4' , & ! Data Name
grid%oa4 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field OA4 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ol1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OL1' , & ! Data Name
grid%ol1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field OL1 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ol2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OL2' , & ! Data Name
grid%ol2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field OL2 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ol3') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OL3' , & ! Data Name
grid%ol3 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field OL3 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ol4') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OL4' , & ! Data Name
grid%ol4 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field OL4 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
DO itrace = PARAM_FIRST_SCALAR , num_ozmixm
IF (BTEST(ozmixm_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(ozmixm_dname_table( grid%id, itrace )), & !data name
grid%ozmixm(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_write_field '//TRIM(ozmixm_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%levsiz , jds , (jde-1) , &
ims , ime , 1 , config_flags%levsiz , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%levsiz , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_aerosolc
IF (BTEST(aerosolc_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(aerosolc_dname_table( grid%id, itrace )), & !data name
grid%aerosolc_2(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_write_field '//TRIM(aerosolc_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%paerlev , jds , (jde-1) , &
ims , ime , 1 , config_flags%paerlev , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%paerlev , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
IF ( in_use_for_config(grid%id,'msft') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_M' , & ! Data Name
grid%msft , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'msfu') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_U' , & ! Data Name
grid%msfu , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'msfv') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_V' , & ! Data Name
grid%msfv , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'msftx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_MX' , & ! Data Name
grid%msftx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field MAPFAC_MX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'msfty') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_MY' , & ! Data Name
grid%msfty , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field MAPFAC_MY memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'msfux') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_UX' , & ! Data Name
grid%msfux , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field MAPFAC_UX memorder XY' , & ! Debug message
ids , ide , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'msfuy') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_UY' , & ! Data Name
grid%msfuy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field MAPFAC_UY memorder XY' , & ! Debug message
ids , ide , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'msfvx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_VX' , & ! Data Name
grid%msfvx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field MAPFAC_VX memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'msfvx_inv') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MF_VX_INV' , & ! Data Name
grid%msfvx_inv , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field MF_VX_INV memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'msfvy') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_VY' , & ! Data Name
grid%msfvy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field MAPFAC_VY memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'f') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'F' , & ! Data Name
grid%f , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'e') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'E' , & ! Data Name
grid%e , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'sina') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SINALPHA' , & ! Data Name
grid%sina , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'cosa') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'COSALPHA' , & ! Data Name
grid%cosa , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'ht') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HGT' , & ! Data Name
grid%ht , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'tsk') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSK' , & ! Data Name
grid%tsk , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'u_base') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_BASE' , & ! Data Name
grid%u_base , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'v_base') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_BASE' , & ! Data Name
grid%v_base , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'qv_base') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QV_BASE' , & ! Data Name
grid%qv_base , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'z_base') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Z_BASE' , & ! Data Name
grid%z_base , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field Z_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
IF ( in_use_for_config(grid%id,'u_frame') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_FRAME' , & ! Data Name
grid%u_frame , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'v_frame') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_FRAME' , & ! Data Name
grid%v_frame , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'p_top') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'P_TOP' , & ! Data Name
grid%p_top , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'t00') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T00' , & ! Data Name
grid%t00 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field T00 memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'p00') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'P00' , & ! Data Name
grid%p00 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field P00 memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'tlp') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TLP' , & ! Data Name
grid%tlp , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field TLP memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'tiso') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TISO' , & ! Data Name
grid%tiso , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field TISO memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'xlat') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAT' , & ! Data Name
grid%xlat , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'xlong') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLONG' , & ! Data Name
grid%xlong , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'xlat_u') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAT_U' , & ! Data Name
grid%xlat_u , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field XLAT_U memorder XY' , & ! Debug message
ids , ide , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'xlong_u') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLONG_U' , & ! Data Name
grid%xlong_u , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field XLONG_U memorder XY' , & ! Debug message
ids , ide , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'xlat_v') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAT_V' , & ! Data Name
grid%xlat_v , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field XLAT_V memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'xlong_v') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLONG_V' , & ! Data Name
grid%xlong_v , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field XLONG_V memorder XY' , & ! Debug message
ids , (ide-1) , jds , jde , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'clat') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CLAT' , & ! Data Name
grid%clat , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field CLAT 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 ( in_use_for_config(grid%id,'clong') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CLONG' , & ! Data Name
grid%clong , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field CLONG 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 ( in_use_for_config(grid%id,'albbck') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ALBBCK' , & ! Data Name
grid%albbck , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'tmn') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TMN' , & ! Data Name
grid%tmn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'xland') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAND' , & ! Data Name
grid%xland , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'snowc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWC' , & ! Data Name
grid%snowc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'save_topo_from_real') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SAVE_TOPO_FROM_REAL' , & ! Data Name
grid%save_topo_from_real , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field SAVE_TOPO_FROM_REAL memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
END IF
DO itrace = PARAM_FIRST_SCALAR , num_fdda3d
IF (BTEST(fdda3d_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(fdda3d_dname_table( grid%id, itrace )), & !data name
grid%fdda3d(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_inputin.inc ext_write_field '//TRIM(fdda3d_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_fdda2d
IF (BTEST(fdda2d_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(fdda2d_dname_table( grid%id, itrace )), & !data name
grid%fdda2d(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_write_field '//TRIM(fdda2d_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , 1 , jds , (jde-1) , &
ims , ime , 1 , 1 , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , 1 , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
IF ( in_use_for_config(grid%id,'nfuel_cat') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NFUEL_CAT' , & ! Data Name
grid%nfuel_cat , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_inputin.inc ext_read_field NFUEL_CAT memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
!ENDOFREGISTRYGENERATEDINCLUDE