include file: wrf_restartin.inc 1,533
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_1' , & ! Data Name
grid%u_1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field U_1 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 ( in_use_for_config(grid%id,'u_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_2' , & ! 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_restartin.inc ext_read_field U_2 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 ( in_use_for_config(grid%id,'z_force') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Z_FORCE' , & ! Data Name
grid%z_force , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field Z_FORCE memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'u_g') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_G' , & ! Data Name
grid%u_g , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field U_G memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'u_g_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_G_TEND' , & ! Data Name
grid%u_g_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field U_G_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'v_1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_1' , & ! Data Name
grid%v_1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field V_1 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 ( in_use_for_config(grid%id,'v_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_2' , & ! 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_restartin.inc ext_read_field V_2 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 ( in_use_for_config(grid%id,'v_g') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_G' , & ! Data Name
grid%v_g , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field V_G memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'v_g_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_G_TEND' , & ! Data Name
grid%v_g_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field V_G_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'w_1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W_1' , & ! Data Name
grid%w_1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field W_1 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,'w_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W_2' , & ! 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_restartin.inc ext_read_field W_2 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,'ww') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'WW' , & ! Data Name
grid%ww , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field WW 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,'ww_m') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'WW_M' , & ! Data Name
grid%ww_m , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field WW_M 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,'w_subs') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W_SUBS' , & ! Data Name
grid%w_subs , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field W_SUBS memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'w_subs_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W_SUBS_TEND' , & ! Data Name
grid%w_subs_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field W_SUBS_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ph_1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PH_1' , & ! Data Name
grid%ph_1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PH_1 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,'ph_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PH_2' , & ! 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_restartin.inc ext_read_field PH_2 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,'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_restartin.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,'ph0') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PH0' , & ! Data Name
grid%ph0 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PH0 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,'php') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PHP' , & ! Data Name
grid%php , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PHP 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_1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T_1' , & ! Data Name
grid%t_1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field T_1 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,'t_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T_2' , & ! 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_restartin.inc ext_read_field T_2 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,'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_restartin.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,'th_upstream_x') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH_UPSTREAM_X' , & ! Data Name
grid%th_upstream_x , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TH_UPSTREAM_X memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'th_upstream_x_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH_UPSTREAM_X_TEND' , & ! Data Name
grid%th_upstream_x_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TH_UPSTREAM_X_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'th_upstream_y') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH_UPSTREAM_Y' , & ! Data Name
grid%th_upstream_y , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TH_UPSTREAM_Y memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'th_upstream_y_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH_UPSTREAM_Y_TEND' , & ! Data Name
grid%th_upstream_y_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TH_UPSTREAM_Y_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'qv_upstream_x') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QV_UPSTREAM_X' , & ! Data Name
grid%qv_upstream_x , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QV_UPSTREAM_X memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'qv_upstream_x_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QV_UPSTREAM_X_TEND' , & ! Data Name
grid%qv_upstream_x_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QV_UPSTREAM_X_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'qv_upstream_y') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QV_UPSTREAM_Y' , & ! Data Name
grid%qv_upstream_y , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QV_UPSTREAM_Y memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'qv_upstream_y_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QV_UPSTREAM_Y_TEND' , & ! Data Name
grid%qv_upstream_y_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QV_UPSTREAM_Y_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'u_upstream_x') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_UPSTREAM_X' , & ! Data Name
grid%u_upstream_x , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field U_UPSTREAM_X memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'u_upstream_x_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_UPSTREAM_X_TEND' , & ! Data Name
grid%u_upstream_x_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field U_UPSTREAM_X_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'u_upstream_y') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_UPSTREAM_Y' , & ! Data Name
grid%u_upstream_y , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field U_UPSTREAM_Y memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'u_upstream_y_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_UPSTREAM_Y_TEND' , & ! Data Name
grid%u_upstream_y_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field U_UPSTREAM_Y_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'v_upstream_x') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_UPSTREAM_X' , & ! Data Name
grid%v_upstream_x , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field V_UPSTREAM_X memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'v_upstream_x_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_UPSTREAM_X_TEND' , & ! Data Name
grid%v_upstream_x_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field V_UPSTREAM_X_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'v_upstream_y') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_UPSTREAM_Y' , & ! Data Name
grid%v_upstream_y , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field V_UPSTREAM_Y memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'v_upstream_y_tend') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_UPSTREAM_Y_TEND' , & ! Data Name
grid%v_upstream_y_tend , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field V_UPSTREAM_Y_TEND memorder Z' , & ! Debug message
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
1 , config_flags%num_force_layers , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'mu_1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MU_1' , & ! Data Name
grid%mu_1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field MU_1 memorder XY' , & ! Debug message
ids , (ide-1) , 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,'mu_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MU_2' , & ! 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_restartin.inc ext_read_field MU_2 memorder XY' , & ! Debug message
ids , (ide-1) , 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,'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_restartin.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,'nest_pos') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NEST_POS' , & ! Data Name
grid%nest_pos , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field NEST_POS memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'nest_mask') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NEST_MASK' , & ! Data Name
grid%nest_mask , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field NEST_MASK memorder XY' , & ! Debug message
ids , (ide-1) , 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_coarse') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HT_COARSE' , & ! Data Name
grid%ht_coarse , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field HT_COARSE memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tke_1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TKE_1' , & ! Data Name
grid%tke_1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TKE_1 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,'tke_2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TKE_2' , & ! Data Name
grid%tke_2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TKE_2 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,'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_restartin.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,'al') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'AL' , & ! Data Name
grid%al , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field AL 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,'alt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ALT' , & ! Data Name
grid%alt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ALT 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,'alb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ALB' , & ! Data Name
grid%alb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ALB 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_restartin.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_restartin.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,'potevp') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'POTEVP' , & ! Data Name
grid%potevp , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'snopcx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOPCX' , & ! Data Name
grid%snopcx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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,'uratx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'URATX' , & ! Data Name
grid%uratx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field URATX memorder XY' , & ! Debug message
ids , (ide-1) , 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,'vratx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VRATX' , & ! Data Name
grid%vratx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field VRATX memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tratx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TRATX' , & ! Data Name
grid%tratx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TRATX memorder XY' , & ! Debug message
ids , (ide-1) , 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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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
IF ( in_use_for_config(grid%id,'itimestep') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ITIMESTEP' , & ! Data Name
grid%itimestep , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ITIMESTEP memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'xtime') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XTIME' , & ! Data Name
grid%xtime , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XTIME memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'xi') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XI' , & ! Data Name
grid%xi , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XI 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,'xj') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XJ' , & ! Data Name
grid%xj , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XJ 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,'vc_i') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VC_I' , & ! Data Name
grid%vc_i , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field VC_I 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,'vc_j') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VC_J' , & ! Data Name
grid%vc_j , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field VC_J 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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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,'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_restartin.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,'ts_hour') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_HOUR' , & ! Data Name
grid%ts_hour , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_HOUR memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_u') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_U' , & ! Data Name
grid%ts_u , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_U memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_v') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_V' , & ! Data Name
grid%ts_v , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_V memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_q') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_Q' , & ! Data Name
grid%ts_q , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_Q memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_t') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_T' , & ! Data Name
grid%ts_t , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_T memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_psfc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_PSFC' , & ! Data Name
grid%ts_psfc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_PSFC memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_glw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_GLW' , & ! Data Name
grid%ts_glw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_GLW memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_gsw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_GSW' , & ! Data Name
grid%ts_gsw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_GSW memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_hfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_HFX' , & ! Data Name
grid%ts_hfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_HFX memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_lh') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_LH' , & ! Data Name
grid%ts_lh , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_LH memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_tsk') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_TSK' , & ! Data Name
grid%ts_tsk , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_TSK memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_tslb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_TSLB' , & ! Data Name
grid%ts_tslb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_TSLB memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_clw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_CLW' , & ! Data Name
grid%ts_clw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_CLW memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_rainc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_RAINC' , & ! Data Name
grid%ts_rainc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_RAINC memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ts_rainnc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_RAINNC' , & ! Data Name
grid%ts_rainnc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'CC' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_RAINNC memorder CC' , & ! Debug message
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
1 , config_flags%ts_buf_size , 1 , config_flags%max_ts_locs , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'dzr') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DZR' , & ! Data Name
grid%dzr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DZR 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,'dzb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DZB' , & ! Data Name
grid%dzb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DZB 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,'dzg') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DZG' , & ! Data Name
grid%dzg , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DZG 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,'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_restartin.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_restartin.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_restartin.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,'xicem') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XICEM' , & ! Data Name
grid%xicem , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XICEM memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'smstav') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SMSTAV' , & ! Data Name
grid%smstav , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'smstot') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SMSTOT' , & ! Data Name
grid%smstot , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'sfcrunoff') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFROFF' , & ! Data Name
grid%sfcrunoff , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'udrunoff') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UDROFF' , & ! Data Name
grid%udrunoff , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
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_restartin.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_restartin.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_restartin.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,'sfcevp') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFCEVP' , & ! Data Name
grid%sfcevp , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'grdflx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GRDFLX' , & ! Data Name
grid%grdflx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'acgrdflx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACGRDFLX' , & ! Data Name
grid%acgrdflx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACGRDFLX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'sfcexc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFCEXC ' , & ! Data Name
grid%sfcexc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'acsnow') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSNOW' , & ! Data Name
grid%acsnow , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'acsnom') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSNOM' , & ! Data Name
grid%acsnom , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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,'sstsk') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SSTSK' , & ! Data Name
grid%sstsk , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SSTSK memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'dtw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DTW' , & ! Data Name
grid%dtw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DTW memorder XY' , & ! Debug message
ids , (ide-1) , 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,'dfi_p') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'P_DFI' , & ! Data Name
grid%dfi_p , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field P_DFI 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,'dfi_al') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'AL_DFI' , & ! Data Name
grid%dfi_al , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field AL_DFI 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,'dfi_mu') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MU_DFI' , & ! Data Name
grid%dfi_mu , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field MU_DFI memorder XY' , & ! Debug message
ids , (ide-1) , 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,'dfi_phb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PHB_DFI' , & ! Data Name
grid%dfi_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_restartin.inc ext_read_field PHB_DFI 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,'dfi_ph0') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PH0_DFI' , & ! Data Name
grid%dfi_ph0 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PH0_DFI 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,'dfi_php') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PHP_DFI' , & ! Data Name
grid%dfi_php , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PHP_DFI 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,'dfi_u') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U_DFI' , & ! Data Name
grid%dfi_u , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field U_DFI 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,'dfi_v') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V_DFI' , & ! Data Name
grid%dfi_v , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field V_DFI 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,'dfi_w') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W_DFI' , & ! Data Name
grid%dfi_w , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field W_DFI 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,'dfi_ww') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'WW_DFI' , & ! Data Name
grid%dfi_ww , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field WW_DFI 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,'dfi_t') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TT_DFI' , & ! Data Name
grid%dfi_t , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TT_DFI 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,'dfi_ph') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PH_DFI' , & ! Data Name
grid%dfi_ph , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PH_DFI 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,'dfi_pb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PB_DFI' , & ! Data Name
grid%dfi_pb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PB_DFI 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,'dfi_alt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ALT_DFI' , & ! Data Name
grid%dfi_alt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ALT_DFI 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,'dfi_tke') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TKE_DFI' , & ! Data Name
grid%dfi_tke , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TKE_DFI 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,'dfi_tslb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSLB_DFI' , & ! Data Name
grid%dfi_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_restartin.inc ext_read_field TSLB_DFI 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,'dfi_smois') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SMOIS_DFI' , & ! Data Name
grid%dfi_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_restartin.inc ext_read_field SMOIS_DFI 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,'dfi_snow') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOW_DFI' , & ! Data Name
grid%dfi_snow , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SNOW_DFI memorder XY' , & ! Debug message
ids , (ide-1) , 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,'dfi_snowh') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWH_DFI' , & ! Data Name
grid%dfi_snowh , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SNOWH_DFI memorder XY' , & ! Debug message
ids , (ide-1) , 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,'dfi_canwat') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CANWAT_DFI' , & ! Data Name
grid%dfi_canwat , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CANWAT_DFI memorder XY' , & ! Debug message
ids , (ide-1) , 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,'dfi_smfr3d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SMFR3D_DFI' , & ! Data Name
grid%dfi_smfr3d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SMFR3D_DFI 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,'dfi_keepfr3dflag') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'KEEPFR3DFLAG_DFI' , & ! Data Name
grid%dfi_keepfr3dflag , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field KEEPFR3DFLAG_DFI 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,'tr_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TR_URB' , & ! Data Name
grid%tr_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TR_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tb_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TB_URB' , & ! Data Name
grid%tb_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TB_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tg_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TG_URB' , & ! Data Name
grid%tg_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TG_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tc_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TC_URB' , & ! Data Name
grid%tc_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TC_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'qc_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QC_URB' , & ! Data Name
grid%qc_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QC_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'uc_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UC_URB' , & ! Data Name
grid%uc_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field UC_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'xxxr_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XXXR_URB' , & ! Data Name
grid%xxxr_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XXXR_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'xxxb_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XXXB_URB' , & ! Data Name
grid%xxxb_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XXXB_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'xxxg_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XXXG_URB' , & ! Data Name
grid%xxxg_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XXXG_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'xxxc_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XXXC_URB' , & ! Data Name
grid%xxxc_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XXXC_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'trl_urb3d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TRL_URB' , & ! Data Name
grid%trl_urb3d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TRL_URB 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,'tbl_urb3d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TBL_URB' , & ! Data Name
grid%tbl_urb3d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TBL_URB 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,'tgl_urb3d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TGL_URB' , & ! Data Name
grid%tgl_urb3d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TGL_URB 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,'sh_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SH_URB' , & ! Data Name
grid%sh_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SH_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'lh_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LH_URB' , & ! Data Name
grid%lh_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LH_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'g_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'G_URB' , & ! Data Name
grid%g_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field G_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'rn_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RN_URB' , & ! Data Name
grid%rn_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RN_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'ts_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TS_URB' , & ! Data Name
grid%ts_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TS_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'frc_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FRC_URB' , & ! Data Name
grid%frc_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FRC_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'utype_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UTYPE_URB' , & ! Data Name
grid%utype_urb2d , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field UTYPE_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'trb_urb4d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TRB_URB4D' , & ! Data Name
grid%trb_urb4d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TRB_URB4D memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_urban_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_urban_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_urban_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'tw1_urb4d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TW1_URB4D' , & ! Data Name
grid%tw1_urb4d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TW1_URB4D memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_urban_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_urban_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_urban_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'tw2_urb4d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TW2_URB4D' , & ! Data Name
grid%tw2_urb4d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TW2_URB4D memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_urban_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_urban_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_urban_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'tgb_urb4d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TGB_URB4D' , & ! Data Name
grid%tgb_urb4d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TGB_URB4D memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_urban_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_urban_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_urban_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'sfw1_urb3d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFW1_URB3D' , & ! Data Name
grid%sfw1_urb3d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SFW1_URB3D memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_urban_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_urban_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_urban_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'sfw2_urb3d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFW2_URB3D' , & ! Data Name
grid%sfw2_urb3d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SFW2_URB3D memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_urban_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_urban_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_urban_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'sfr_urb3d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFR_URB3D' , & ! Data Name
grid%sfr_urb3d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SFR_URB3D memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_urban_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_urban_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_urban_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'sfg_urb3d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SFG_URB3D' , & ! Data Name
grid%sfg_urb3d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SFG_URB3D memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_urban_layers , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_urban_layers , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_urban_layers , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'cosz_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'COSZ_URB' , & ! Data Name
grid%cosz_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field COSZ_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'omg_urb2d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OMG_URB' , & ! Data Name
grid%omg_urb2d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field OMG_URB memorder XY' , & ! Debug message
ids , (ide-1) , 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,'declin_urb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DECLIN_URB' , & ! Data Name
grid%declin_urb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DECLIN_URB 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,'smfr3d') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SMFR3D' , & ! Data Name
grid%smfr3d , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SMFR3D 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,'keepfr3dflag') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'KEEPFR3DFLAG' , & ! Data Name
grid%keepfr3dflag , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field KEEPFR3DFLAG 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,'ra') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RA' , & ! Data Name
grid%ra , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RA memorder XY' , & ! Debug message
ids , (ide-1) , 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,'rs') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RS' , & ! Data Name
grid%rs , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RS memorder XY' , & ! Debug message
ids , (ide-1) , 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,'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_restartin.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,'vegf_px') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VEGF_PX' , & ! Data Name
grid%vegf_px , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field VEGF_PX memorder XY' , & ! Debug message
ids , (ide-1) , 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,'t2obs') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T2OBS' , & ! Data Name
grid%t2obs , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field T2OBS memorder XY' , & ! Debug message
ids , (ide-1) , 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,'q2obs') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Q2OBS' , & ! Data Name
grid%q2obs , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field Q2OBS memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tke_myj') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TKE_MYJ' , & ! Data Name
grid%tke_myj , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TKE_MYJ memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'exch_h') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'EXCH_H' , & ! Data Name
grid%exch_h , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field EXCH_H 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,'exch_m') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'EXCH_M' , & ! Data Name
grid%exch_m , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field EXCH_M 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,'ct') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CT' , & ! Data Name
grid%ct , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CT memorder XY' , & ! Debug message
ids , (ide-1) , 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,'thz0') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'THZ0' , & ! Data Name
grid%thz0 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'z0') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Z0' , & ! Data Name
grid%z0 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'qz0') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QZ0' , & ! Data Name
grid%qz0 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'uz0') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UZ0' , & ! Data Name
grid%uz0 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'vz0') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VZ0' , & ! Data Name
grid%vz0 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'qsfc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QSFC' , & ! Data Name
grid%qsfc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'akhs') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'AKHS' , & ! Data Name
grid%akhs , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'akms') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'AKMS' , & ! Data Name
grid%akms , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'kpbl') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'KPBL' , & ! Data Name
grid%kpbl , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field KPBL memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tshltr') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSHLTR' , & ! Data Name
grid%tshltr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TSHLTR memorder XY' , & ! Debug message
ids , (ide-1) , 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,'qshltr') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QSHLTR' , & ! Data Name
grid%qshltr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QSHLTR memorder XY' , & ! Debug message
ids , (ide-1) , 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,'pshltr') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PSHLTR' , & ! Data Name
grid%pshltr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PSHLTR memorder XY' , & ! Debug message
ids , (ide-1) , 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,'th10') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH10' , & ! Data Name
grid%th10 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TH10 memorder XY' , & ! Debug message
ids , (ide-1) , 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,'q10') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Q10' , & ! Data Name
grid%q10 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field Q10 memorder XY' , & ! Debug message
ids , (ide-1) , 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,'qke') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QKE' , & ! Data Name
grid%qke , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QKE memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'tsq') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSQ' , & ! Data Name
grid%tsq , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TSQ 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,'qsq') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QSQ' , & ! Data Name
grid%qsq , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QSQ 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,'cov') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'COV' , & ! Data Name
grid%cov , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field COV 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,'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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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
IF ( in_use_for_config(grid%id,'tke_pbl') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TKE_PBL' , & ! Data Name
grid%tke_pbl , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TKE_PBL memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'wu_tur') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'WU_TUR' , & ! Data Name
grid%wu_tur , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field WU_TUR 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,'wv_tur') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'WV_TUR' , & ! Data Name
grid%wv_tur , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field WV_TUR 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,'wt_tur') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'WT_TUR' , & ! Data Name
grid%wt_tur , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field WT_TUR 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,'wq_tur') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'WQ_TUR' , & ! Data Name
grid%wq_tur , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field WQ_TUR 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,'htop') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HTOP' , & ! Data Name
grid%htop , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'hbot') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HBOT' , & ! Data Name
grid%hbot , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'htopr') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HTOPR' , & ! Data Name
grid%htopr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field HTOPR memorder XY' , & ! Debug message
ids , (ide-1) , 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,'hbotr') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HBOTR' , & ! Data Name
grid%hbotr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field HBOTR memorder XY' , & ! Debug message
ids , (ide-1) , 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,'cutop') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CUTOP' , & ! Data Name
grid%cutop , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CUTOP memorder XY' , & ! Debug message
ids , (ide-1) , 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,'cubot') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CUBOT' , & ! Data Name
grid%cubot , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CUBOT memorder XY' , & ! Debug message
ids , (ide-1) , 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,'cuppt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CUPPT' , & ! Data Name
grid%cuppt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
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_restartin.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_restartin.inc ext_write_field '//TRIM(aerosolc_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%paerlev , jds , (jde-1) , &
ims , ime , 1 , config_flags%paerlev , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%paerlev , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
IF ( in_use_for_config(grid%id,'f_ice_phy') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'F_ICE_PHY' , & ! Data Name
grid%f_ice_phy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field F_ICE_PHY memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'f_rain_phy') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'F_RAIN_PHY' , & ! Data Name
grid%f_rain_phy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field F_RAIN_PHY memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'f_rimef_phy') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'F_RIMEF_PHY' , & ! Data Name
grid%f_rimef_phy , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field F_RIMEF_PHY memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'h_diabatic') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'H_DIABATIC' , & ! Data Name
grid%h_diabatic , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field H_DIABATIC 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,'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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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,'min_ptchsz') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MIN_PTCHSZ' , & ! Data Name
grid%min_ptchsz , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field MIN_PTCHSZ 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,'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_restartin.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,'dfi_tsk') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSK_DFI' , & ! Data Name
grid%dfi_tsk , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TSK_DFI memorder XY' , & ! Debug message
ids , (ide-1) , 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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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,'max_msftx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAX_MSTFX' , & ! Data Name
grid%max_msftx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field MAX_MSTFX memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'max_msfty') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAX_MSTFY' , & ! Data Name
grid%max_msfty , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field MAX_MSTFY memorder 0' , & ! Debug message
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
1 , 1 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'rthcuten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RTHCUTEN' , & ! Data Name
grid%rthcuten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RTHCUTEN 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,'rqvcuten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQVCUTEN' , & ! Data Name
grid%rqvcuten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQVCUTEN 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,'rqrcuten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQRCUTEN' , & ! Data Name
grid%rqrcuten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQRCUTEN 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,'rqccuten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQCCUTEN' , & ! Data Name
grid%rqccuten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQCCUTEN 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,'rqscuten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQSCUTEN' , & ! Data Name
grid%rqscuten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQSCUTEN 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,'rqicuten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQICUTEN' , & ! Data Name
grid%rqicuten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQICUTEN 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,'w0avg') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'W0AVG' , & ! Data Name
grid%w0avg , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field W0AVG 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,'rainc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RAINC' , & ! Data Name
grid%rainc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RAINC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'rainnc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RAINNC' , & ! Data Name
grid%rainnc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RAINNC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_rainc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_RAINC' , & ! Data Name
grid%i_rainc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_RAINC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_rainnc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_RAINNC' , & ! Data Name
grid%i_rainnc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_RAINNC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'pratec') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PRATEC' , & ! Data Name
grid%pratec , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PRATEC memorder XY' , & ! Debug message
ids , (ide-1) , 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,'raincv') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RAINCV' , & ! Data Name
grid%raincv , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RAINCV memorder XY' , & ! Debug message
ids , (ide-1) , 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,'rainncv') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RAINNCV' , & ! Data Name
grid%rainncv , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RAINNCV memorder XY' , & ! Debug message
ids , (ide-1) , 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,'rainbl') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RAINBL' , & ! Data Name
grid%rainbl , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RAINBL memorder XY' , & ! Debug message
ids , (ide-1) , 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,'snownc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWNC' , & ! Data Name
grid%snownc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SNOWNC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'graupelnc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GRAUPELNC' , & ! Data Name
grid%graupelnc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field GRAUPELNC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'snowncv') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWNCV' , & ! Data Name
grid%snowncv , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SNOWNCV memorder XY' , & ! Debug message
ids , (ide-1) , 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,'graupelncv') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GRAUPELNCV' , & ! Data Name
grid%graupelncv , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field GRAUPELNCV memorder XY' , & ! Debug message
ids , (ide-1) , 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,'nca') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NCA' , & ! Data Name
grid%nca , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field NCA memorder XY' , & ! Debug message
ids , (ide-1) , 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,'mass_flux') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MASS_FLUX' , & ! Data Name
grid%mass_flux , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field MASS_FLUX memorder XY' , & ! Debug message
ids , (ide-1) , 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,'apr_gr') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'APR_GR' , & ! Data Name
grid%apr_gr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field APR_GR memorder XY' , & ! Debug message
ids , (ide-1) , 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,'apr_w') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'APR_W' , & ! Data Name
grid%apr_w , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field APR_W memorder XY' , & ! Debug message
ids , (ide-1) , 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,'apr_mc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'APR_MC' , & ! Data Name
grid%apr_mc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field APR_MC memorder XY' , & ! Debug message
ids , (ide-1) , 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,'apr_st') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'APR_ST' , & ! Data Name
grid%apr_st , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field APR_ST memorder XY' , & ! Debug message
ids , (ide-1) , 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,'apr_as') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'APR_AS' , & ! Data Name
grid%apr_as , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field APR_AS memorder XY' , & ! Debug message
ids , (ide-1) , 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,'apr_capma') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'APR_CAPMA' , & ! Data Name
grid%apr_capma , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field APR_CAPMA memorder XY' , & ! Debug message
ids , (ide-1) , 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,'apr_capme') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'APR_CAPME' , & ! Data Name
grid%apr_capme , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field APR_CAPME memorder XY' , & ! Debug message
ids , (ide-1) , 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,'apr_capmi') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'APR_CAPMI' , & ! Data Name
grid%apr_capmi , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field APR_CAPMI memorder XY' , & ! Debug message
ids , (ide-1) , 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,'xf_ens') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XF_ENS' , & ! Data Name
grid%xf_ens , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XYZ' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XF_ENS memorder XYZ' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , config_flags%ensdim , &
ims , ime , jms , jme , 1 , config_flags%ensdim , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%ensdim , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'pr_ens') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PR_ENS' , & ! Data Name
grid%pr_ens , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XYZ' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PR_ENS memorder XYZ' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , config_flags%ensdim , &
ims , ime , jms , jme , 1 , config_flags%ensdim , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%ensdim , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'rthften') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RTHFTEN' , & ! Data Name
grid%rthften , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RTHFTEN 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,'rqvften') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQVFTEN' , & ! Data Name
grid%rqvften , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQVFTEN 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,'stepcu') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'STEPCU' , & ! Data Name
grid%stepcu , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field STEPCU 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,'rthraten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RTHRATEN' , & ! Data Name
grid%rthraten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RTHRATEN 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,'rthratenlw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RTHRATLW' , & ! Data Name
grid%rthratenlw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RTHRATLW 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,'rthratensw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RTHRATSW' , & ! Data Name
grid%rthratensw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RTHRATSW 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,'cldfra') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CLDFRA' , & ! Data Name
grid%cldfra , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CLDFRA 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,'swdown') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWDOWN' , & ! Data Name
grid%swdown , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SWDOWN memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'gsw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GSW' , & ! Data Name
grid%gsw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'glw') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GLW' , & ! Data Name
grid%glw , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'acswupt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWUPT' , & ! Data Name
grid%acswupt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACSWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'acswuptc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWUPTC' , & ! Data Name
grid%acswuptc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACSWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'acswdnt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWDNT' , & ! Data Name
grid%acswdnt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACSWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'acswdntc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWDNTC' , & ! Data Name
grid%acswdntc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACSWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'acswupb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWUPB' , & ! Data Name
grid%acswupb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACSWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'acswupbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWUPBC' , & ! Data Name
grid%acswupbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACSWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'acswdnb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWDNB' , & ! Data Name
grid%acswdnb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACSWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'acswdnbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACSWDNBC' , & ! Data Name
grid%acswdnbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACSWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'aclwupt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWUPT' , & ! Data Name
grid%aclwupt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACLWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'aclwuptc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWUPTC' , & ! Data Name
grid%aclwuptc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACLWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'aclwdnt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWDNT' , & ! Data Name
grid%aclwdnt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACLWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'aclwdntc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWDNTC' , & ! Data Name
grid%aclwdntc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACLWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'aclwupb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWUPB' , & ! Data Name
grid%aclwupb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACLWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'aclwupbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWUPBC' , & ! Data Name
grid%aclwupbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACLWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'aclwdnb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWDNB' , & ! Data Name
grid%aclwdnb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACLWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'aclwdnbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLWDNBC' , & ! Data Name
grid%aclwdnbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACLWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_acswupt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWUPT' , & ! Data Name
grid%i_acswupt , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACSWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_acswuptc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWUPTC' , & ! Data Name
grid%i_acswuptc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACSWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_acswdnt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWDNT' , & ! Data Name
grid%i_acswdnt , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACSWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_acswdntc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWDNTC' , & ! Data Name
grid%i_acswdntc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACSWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_acswupb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWUPB' , & ! Data Name
grid%i_acswupb , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACSWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_acswupbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWUPBC' , & ! Data Name
grid%i_acswupbc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACSWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_acswdnb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWDNB' , & ! Data Name
grid%i_acswdnb , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACSWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_acswdnbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACSWDNBC' , & ! Data Name
grid%i_acswdnbc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACSWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_aclwupt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWUPT' , & ! Data Name
grid%i_aclwupt , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACLWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_aclwuptc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWUPTC' , & ! Data Name
grid%i_aclwuptc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACLWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_aclwdnt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWDNT' , & ! Data Name
grid%i_aclwdnt , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACLWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_aclwdntc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWDNTC' , & ! Data Name
grid%i_aclwdntc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACLWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_aclwupb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWUPB' , & ! Data Name
grid%i_aclwupb , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACLWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_aclwupbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWUPBC' , & ! Data Name
grid%i_aclwupbc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACLWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_aclwdnb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWDNB' , & ! Data Name
grid%i_aclwdnb , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACLWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'i_aclwdnbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'I_ACLWDNBC' , & ! Data Name
grid%i_aclwdnbc , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field I_ACLWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'swupt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWUPT' , & ! Data Name
grid%swupt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'swuptc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWUPTC' , & ! Data Name
grid%swuptc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'swdnt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWDNT' , & ! Data Name
grid%swdnt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'swdntc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWDNTC' , & ! Data Name
grid%swdntc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'swupb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWUPB' , & ! Data Name
grid%swupb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'swupbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWUPBC' , & ! Data Name
grid%swupbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'swdnb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWDNB' , & ! Data Name
grid%swdnb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'swdnbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWDNBC' , & ! Data Name
grid%swdnbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'lwupt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWUPT' , & ! Data Name
grid%lwupt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LWUPT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'lwuptc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWUPTC' , & ! Data Name
grid%lwuptc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LWUPTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'lwdnt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWDNT' , & ! Data Name
grid%lwdnt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LWDNT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'lwdntc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWDNTC' , & ! Data Name
grid%lwdntc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LWDNTC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'lwupb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWUPB' , & ! Data Name
grid%lwupb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LWUPB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'lwupbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWUPBC' , & ! Data Name
grid%lwupbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LWUPBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'lwdnb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWDNB' , & ! Data Name
grid%lwdnb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LWDNB memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'lwdnbc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWDNBC' , & ! Data Name
grid%lwdnbc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LWDNBC memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'swcf') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SWCF' , & ! Data Name
grid%swcf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SWCF memorder XY' , & ! Debug message
ids , (ide-1) , 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,'lwcf') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LWCF' , & ! Data Name
grid%lwcf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LWCF memorder XY' , & ! Debug message
ids , (ide-1) , 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,'olr') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'OLR' , & ! Data Name
grid%olr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field OLR memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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_restartin.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,'albedo') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ALBEDO' , & ! Data Name
grid%albedo , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ALBEDO memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
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_restartin.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_restartin.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_restartin.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,'embck') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'EMBCK' , & ! Data Name
grid%embck , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field EMBCK memorder XY' , & ! Debug message
ids , (ide-1) , 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,'emiss') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'EMISS' , & ! Data Name
grid%emiss , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'snotime') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOTIME' , & ! Data Name
grid%snotime , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SNOTIME memorder XY' , & ! Debug message
ids , (ide-1) , 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,'cldefi') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CLDEFI' , & ! Data Name
grid%cldefi , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CLDEFI memorder XY' , & ! Debug message
ids , (ide-1) , 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,'stepra') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'STEPRA' , & ! Data Name
grid%stepra , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field STEPRA 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,'rublten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RUBLTEN' , & ! Data Name
grid%rublten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RUBLTEN 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,'rvblten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RVBLTEN' , & ! Data Name
grid%rvblten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RVBLTEN 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,'rthblten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RTHBLTEN' , & ! Data Name
grid%rthblten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RTHBLTEN 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,'rqvblten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQVBLTEN' , & ! Data Name
grid%rqvblten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQVBLTEN 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,'rqcblten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQCBLTEN' , & ! Data Name
grid%rqcblten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQCBLTEN 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,'rqiblten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQIBLTEN' , & ! Data Name
grid%rqiblten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQIBLTEN 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,'mp_restart_state') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MP_RESTART_STATE' , & ! Data Name
grid%mp_restart_state , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'C' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field MP_RESTART_STATE memorder C' , & ! Debug message
1 , 7501 , 1 , 1 , 1 , 1 , &
1 , 7501 , 1 , 1 , 1 , 1 , &
1 , 7501 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'tbpvs_state') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TBPVS_STATE' , & ! Data Name
grid%tbpvs_state , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'C' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TBPVS_STATE memorder C' , & ! Debug message
1 , 7501 , 1 , 1 , 1 , 1 , &
1 , 7501 , 1 , 1 , 1 , 1 , &
1 , 7501 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'tbpvs0_state') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TBPVS0_STATE' , & ! Data Name
grid%tbpvs0_state , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'C' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TBPVS0_STATE memorder C' , & ! Debug message
1 , 7501 , 1 , 1 , 1 , 1 , &
1 , 7501 , 1 , 1 , 1 , 1 , &
1 , 7501 , 1 , 1 , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'landuse_isice') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDUSE_ISICE' , & ! Data Name
grid%landuse_isice , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LANDUSE_ISICE 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,'landuse_lucats') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDUSE_LUCATS' , & ! Data Name
grid%landuse_lucats , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LANDUSE_LUCATS 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,'landuse_luseas') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDUSE_LUSEAS' , & ! Data Name
grid%landuse_luseas , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LANDUSE_LUSEAS 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,'landuse_isn') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDUSE_ISN' , & ! Data Name
grid%landuse_isn , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LANDUSE_ISN 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,'lu_state') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LU_STATE' , & ! Data Name
grid%lu_state , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'C' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LU_STATE memorder C' , & ! Debug message
1 , 7501 , 1 , 1 , 1 , 1 , &
1 , 7501 , 1 , 1 , 1 , 1 , &
1 , 7501 , 1 , 1 , 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_restartin.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,'tyr') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TYR' , & ! Data Name
grid%tyr , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TYR memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tyra') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TYRA' , & ! Data Name
grid%tyra , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TYRA memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tdly') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TDLY' , & ! Data Name
grid%tdly , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TDLY memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tlag') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TLAG' , & ! Data Name
grid%tlag , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TLAG memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%lagday , jds , (jde-1) , &
ims , ime , 1 , config_flags%lagday , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%lagday , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'nyear') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NYEAR' , & ! Data Name
grid%nyear , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field NYEAR 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,'nday') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'NDAY' , & ! Data Name
grid%nday , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field NDAY 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,'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_restartin.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,'znt') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZNT' , & ! Data Name
grid%znt , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'ck') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CK' , & ! Data Name
grid%ck , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CK memorder XY' , & ! Debug message
ids , (ide-1) , 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,'cka') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CKA' , & ! Data Name
grid%cka , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CKA memorder XY' , & ! Debug message
ids , (ide-1) , 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,'cd') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CD' , & ! Data Name
grid%cd , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CD memorder XY' , & ! Debug message
ids , (ide-1) , 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,'cda') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CDA' , & ! Data Name
grid%cda , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CDA memorder XY' , & ! Debug message
ids , (ide-1) , 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,'ust') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UST' , & ! Data Name
grid%ust , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'ustm') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'USTM' , & ! Data Name
grid%ustm , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field USTM memorder XY' , & ! Debug message
ids , (ide-1) , 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,'rmol') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RMOL' , & ! Data Name
grid%rmol , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RMOL memorder XY' , & ! Debug message
ids , (ide-1) , 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,'mol') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MOL' , & ! Data Name
grid%mol , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'pblh') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PBLH' , & ! Data Name
grid%pblh , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'capg') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CAPG' , & ! Data Name
grid%capg , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'thc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'THC' , & ! Data Name
grid%thc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'hfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HFX' , & ! Data Name
grid%hfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'qfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QFX' , & ! Data Name
grid%qfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'lh') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LH' , & ! Data Name
grid%lh , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'achfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACHFX' , & ! Data Name
grid%achfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACHFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'aclhf') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ACLHF' , & ! Data Name
grid%aclhf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ACLHF memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'flhc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FLHC' , & ! Data Name
grid%flhc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FLHC memorder XY' , & ! Debug message
ids , (ide-1) , 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,'flqc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FLQC' , & ! Data Name
grid%flqc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FLQC memorder XY' , & ! Debug message
ids , (ide-1) , 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,'qsg') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QSG' , & ! Data Name
grid%qsg , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QSG memorder XY' , & ! Debug message
ids , (ide-1) , 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,'qvg') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QVG' , & ! Data Name
grid%qvg , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QVG memorder XY' , & ! Debug message
ids , (ide-1) , 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,'dfi_qvg') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QVG_DFI' , & ! Data Name
grid%dfi_qvg , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QVG_DFI memorder XY' , & ! Debug message
ids , (ide-1) , 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,'qcg') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QCG' , & ! Data Name
grid%qcg , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field QCG memorder XY' , & ! Debug message
ids , (ide-1) , 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,'soilt1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT1' , & ! Data Name
grid%soilt1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SOILT1 memorder XY' , & ! Debug message
ids , (ide-1) , 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,'dfi_soilt1') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT1_DFI' , & ! Data Name
grid%dfi_soilt1 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SOILT1_DFI memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tsnav') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSNAV' , & ! Data Name
grid%tsnav , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TSNAV memorder XY' , & ! Debug message
ids , (ide-1) , 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,'dfi_tsnav') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSNAV_DFI' , & ! Data Name
grid%dfi_tsnav , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TSNAV_DFI memorder XY' , & ! Debug message
ids , (ide-1) , 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,'regime') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'REGIME' , & ! Data Name
grid%regime , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field REGIME memorder XY' , & ! Debug message
ids , (ide-1) , 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_restartin.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,'dfi_snowc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWC_DFI' , & ! Data Name
grid%dfi_snowc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SNOWC_DFI memorder XY' , & ! Debug message
ids , (ide-1) , 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,'mavail') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAVAIL' , & ! Data Name
grid%mavail , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'tkesfcf') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TKESFCF' , & ! Data Name
grid%tkesfcf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_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 )
END IF
IF ( in_use_for_config(grid%id,'stepbl') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'STEPBL' , & ! Data Name
grid%stepbl , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field STEPBL 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,'taucldi') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TAUCLDI' , & ! Data Name
grid%taucldi , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TAUCLDI 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,'taucldc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TAUCLDC' , & ! Data Name
grid%taucldc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TAUCLDC 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,'defor11') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DEFOR11' , & ! Data Name
grid%defor11 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DEFOR11 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,'defor22') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DEFOR22' , & ! Data Name
grid%defor22 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DEFOR22 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,'defor12') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DEFOR12' , & ! Data Name
grid%defor12 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DEFOR12 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,'defor33') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DEFOR33' , & ! Data Name
grid%defor33 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DEFOR33 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,'defor13') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DEFOR13' , & ! Data Name
grid%defor13 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DEFOR13 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,'defor23') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DEFOR23' , & ! Data Name
grid%defor23 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DEFOR23 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,'xkmv') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XKMV' , & ! Data Name
grid%xkmv , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XKMV 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,'xkmh') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XKMH' , & ! Data Name
grid%xkmh , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XKMH 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,'xkhv') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XKHV' , & ! Data Name
grid%xkhv , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XKHV 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,'xkhh') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XKHH' , & ! Data Name
grid%xkhh , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field XKHH 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,'div') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'DIV' , & ! Data Name
grid%div , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field DIV 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,'bn2') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'BN2' , & ! Data Name
grid%bn2 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field BN2 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,'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_restartin.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
IF ( in_use_for_config(grid%id,'stepfg') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'STEPFG' , & ! Data Name
grid%stepfg , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'0' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field STEPFG 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,'rundgdten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RUNDGDTEN' , & ! Data Name
grid%rundgdten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RUNDGDTEN 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 ( in_use_for_config(grid%id,'rvndgdten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RVNDGDTEN' , & ! Data Name
grid%rvndgdten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RVNDGDTEN 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 ( in_use_for_config(grid%id,'rthndgdten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RTHNDGDTEN' , & ! Data Name
grid%rthndgdten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RTHNDGDTEN 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,'rphndgdten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RPHNDGDTEN' , & ! Data Name
grid%rphndgdten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RPHNDGDTEN 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,'rqvndgdten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQVNDGDTEN' , & ! Data Name
grid%rqvndgdten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQVNDGDTEN 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,'rmundgdten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RMUNDGDTEN' , & ! Data Name
grid%rmundgdten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RMUNDGDTEN memorder XY' , & ! Debug message
ids , (ide-1) , 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_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_restartin.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_restartin.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,'u10_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U10_NDG_OLD' , & ! Data Name
grid%u10_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field U10_NDG_OLD 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,'u10_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U10_NDG_NEW' , & ! Data Name
grid%u10_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field U10_NDG_NEW 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,'v10_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V10_NDG_OLD' , & ! Data Name
grid%v10_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field V10_NDG_OLD 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,'v10_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V10_NDG_NEW' , & ! Data Name
grid%v10_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field V10_NDG_NEW 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,'t2_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T2_NDG_OLD' , & ! Data Name
grid%t2_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field T2_NDG_OLD memorder XY' , & ! Debug message
ids , (ide-1) , 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_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T2_NDG_NEW' , & ! Data Name
grid%t2_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field T2_NDG_NEW memorder XY' , & ! Debug message
ids , (ide-1) , 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_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH2_NDG_OLD' , & ! Data Name
grid%th2_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TH2_NDG_OLD memorder XY' , & ! Debug message
ids , (ide-1) , 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_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TH2_NDG_NEW' , & ! Data Name
grid%th2_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TH2_NDG_NEW memorder XY' , & ! Debug message
ids , (ide-1) , 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,'q2_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Q2_NDG_OLD' , & ! Data Name
grid%q2_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field Q2_NDG_OLD memorder XY' , & ! Debug message
ids , (ide-1) , 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,'q2_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'Q2_NDG_NEW' , & ! Data Name
grid%q2_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field Q2_NDG_NEW memorder XY' , & ! Debug message
ids , (ide-1) , 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,'rh_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RH_NDG_OLD' , & ! Data Name
grid%rh_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RH_NDG_OLD memorder XY' , & ! Debug message
ids , (ide-1) , 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,'rh_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RH_NDG_NEW' , & ! Data Name
grid%rh_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RH_NDG_NEW memorder XY' , & ! Debug message
ids , (ide-1) , 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,'psl_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PSL_NDG_OLD' , & ! Data Name
grid%psl_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PSL_NDG_OLD memorder XY' , & ! Debug message
ids , (ide-1) , 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,'psl_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PSL_NDG_NEW' , & ! Data Name
grid%psl_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PSL_NDG_NEW memorder XY' , & ! Debug message
ids , (ide-1) , 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,'ps_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PS_NDG_OLD' , & ! Data Name
grid%ps_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PS_NDG_OLD memorder XY' , & ! Debug message
ids , (ide-1) , 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,'ps_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PS_NDG_NEW' , & ! Data Name
grid%ps_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PS_NDG_NEW memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tob_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TOB_NDG_OLD' , & ! Data Name
grid%tob_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TOB_NDG_OLD memorder XY' , & ! Debug message
ids , (ide-1) , 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,'odis_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ODIS_NDG_OLD' , & ! Data Name
grid%odis_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ODIS_NDG_OLD memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tob_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TOB_NDG_NEW' , & ! Data Name
grid%tob_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TOB_NDG_NEW memorder XY' , & ! Debug message
ids , (ide-1) , 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,'odis_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ODIS_NDG_NEW' , & ! Data Name
grid%odis_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ODIS_NDG_NEW memorder XY' , & ! Debug message
ids , (ide-1) , 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,'sn_ndg_new') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SN_NDG_NEW' , & ! Data Name
grid%sn_ndg_new , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SN_NDG_NEW memorder XY' , & ! Debug message
ids , (ide-1) , 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,'sn_ndg_old') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SN_NDG_OLD' , & ! Data Name
grid%sn_ndg_old , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field SN_NDG_OLD memorder XY' , & ! Debug message
ids , (ide-1) , 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,'tml') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TML' , & ! Data Name
grid%tml , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TML memorder XY' , & ! Debug message
ids , (ide-1) , 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,'t0ml') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T0ML' , & ! Data Name
grid%t0ml , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field T0ML memorder XY' , & ! Debug message
ids , (ide-1) , 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,'hml') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HML' , & ! Data Name
grid%hml , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field HML memorder XY' , & ! Debug message
ids , (ide-1) , 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,'h0ml') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'H0ML' , & ! Data Name
grid%h0ml , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field H0ML memorder XY' , & ! Debug message
ids , (ide-1) , 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,'huml') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HUML' , & ! Data Name
grid%huml , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field HUML memorder XY' , & ! Debug message
ids , (ide-1) , 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,'hvml') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HVML' , & ! Data Name
grid%hvml , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field HVML memorder XY' , & ! Debug message
ids , (ide-1) , 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,'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_restartin.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
IF ( in_use_for_config(grid%id,'zsf') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZSF' , & ! Data Name
grid%zsf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ZSF memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'tign_g') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TIGN_G' , & ! Data Name
grid%tign_g , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field TIGN_G memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'rthfrten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RTHFRTEN' , & ! Data Name
grid%rthfrten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RTHFRTEN memorder XZY' , & ! Debug message
ids , (ide-1) , kds , kde , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'rqvfrten') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'RQVFRTEN' , & ! Data Name
grid%rqvfrten , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field RQVFRTEN memorder XZY' , & ! Debug message
ids , (ide-1) , kds , kde , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'grnhfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GRNHFX' , & ! Data Name
grid%grnhfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field GRNHFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'grnqfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'GRNQFX' , & ! Data Name
grid%grnqfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field GRNQFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'canhfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CANHFX' , & ! Data Name
grid%canhfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CANHFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'canqfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CANQFX' , & ! Data Name
grid%canqfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field CANQFX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'lfn') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LFN' , & ! Data Name
grid%lfn , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field LFN memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fuel_frac') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FUEL_FRAC' , & ! Data Name
grid%fuel_frac , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FUEL_FRAC memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fire_area') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FIRE_AREA' , & ! Data Name
grid%fire_area , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FIRE_AREA memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'uf') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'UF' , & ! Data Name
grid%uf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field UF memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'vf') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VF' , & ! Data Name
grid%vf , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field VF memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fgrnhfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FGRNHFX' , & ! Data Name
grid%fgrnhfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FGRNHFX memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fgrnqfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FGRNQFX' , & ! Data Name
grid%fgrnqfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FGRNQFX memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fcanhfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FCANHFX' , & ! Data Name
grid%fcanhfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FCANHFX memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fcanqfx') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FCANQFX' , & ! Data Name
grid%fcanqfx , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FCANQFX memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fxlong') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FXLONG' , & ! Data Name
grid%fxlong , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FXLONG memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fxlat') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FXLAT' , & ! Data Name
grid%fxlat , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FXLAT memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fuel_time') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FUEL_TIME' , & ! Data Name
grid%fuel_time , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FUEL_TIME memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'bbb') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'BBB' , & ! Data Name
grid%bbb , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field BBB memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'betafl') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'BETAFL' , & ! Data Name
grid%betafl , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field BETAFL memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'phiwc') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'PHIWC' , & ! Data Name
grid%phiwc , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field PHIWC memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'r_0') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'R_0' , & ! Data Name
grid%r_0 , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field R_0 memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'fgip') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'FGIP' , & ! Data Name
grid%fgip , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field FGIP memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
IF ( in_use_for_config(grid%id,'ischap') ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ISCHAP' , & ! Data Name
grid%ischap , & ! Field
WRF_integer , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_restartin.inc ext_read_field ISCHAP memorder XY' , & ! Debug message
ids , ide * grid%sr_x , jds , jde * grid%sr_y , 1 , 1 , &
(ims-1)*grid%sr_x+1 , ime*grid%sr_x , (jms-1)*grid%sr_y+1 , jme*grid%sr_y , 1 , 1 , &
(ips-1)*grid%sr_x+1 , ipe*grid%sr_x , (jps-1)*grid%sr_y+1 , jpe*grid%sr_y , 1 , 1 , &
ierr )
END IF
!ENDOFREGISTRYGENERATEDINCLUDE