include file: wrf_auxinput1in.inc 1,77
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxinput1in.inc'
!
! WARNING This file is generated automatically by use_registry
! using the data base in the file named Registry.
! Do not edit. Your changes to this file will be lost.
!
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_read_field
( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'U' , & ! Data Name
grid%em_u_2 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field U memorder XZY' , & ! Debug message
ids , ide , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( ide, ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'V' , & ! Data Name
grid%em_v_2 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field V memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , jde , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( jde, jpe ) , &
ierr )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'T' , & ! Data Name
grid%em_t_2 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field T memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MU0' , & ! Data Name
grid%em_mu0 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field MU0 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
END IF
IF ( grid%dyn_opt .EQ. dyn_em ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ZNW' , & ! Data Name
grid%em_znw , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'Z' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_auxinput1in.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 ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QVAPOR' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qv) , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field QVAPOR memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QCLOUD' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qc) , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field QCLOUD memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QRAIN' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qr) , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field QRAIN memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QICE' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qi) , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field QICE memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QSNOW' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qs) , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field QSNOW memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'QGRAUP' , & ! Data Name
grid%moist_2(ims,kms,jms,P_qg) , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field QGRAUP memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
END IF
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SM000010' , & ! Data Name
grid%sm000010 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SM000010 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SM010040 ' , & ! Data Name
grid%sm010040 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SM010040 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SM040100 ' , & ! Data Name
grid%sm040100 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SM040100 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SM100200 ' , & ! Data Name
grid%sm100200 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SM100200 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SM010200' , & ! Data Name
grid%sm010200 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SM010200 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM000' , & ! Data Name
grid%soilm000 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILM000 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM005' , & ! Data Name
grid%soilm005 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILM005 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM020' , & ! Data Name
grid%soilm020 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILM020 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM040' , & ! Data Name
grid%soilm040 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILM040 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM160' , & ! Data Name
grid%soilm160 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILM160 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILM300' , & ! Data Name
grid%soilm300 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILM300 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SW000010' , & ! Data Name
grid%sw000010 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SW000010 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SW010040' , & ! Data Name
grid%sw010040 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SW010040 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SW040100' , & ! Data Name
grid%sw040100 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SW040100 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SW100200' , & ! Data Name
grid%sw100200 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SW100200 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SW010200' , & ! Data Name
grid%sw010200 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SW010200 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW000' , & ! Data Name
grid%soilw000 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILW000 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW005' , & ! Data Name
grid%soilw005 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILW005 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW020' , & ! Data Name
grid%soilw020 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILW020 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW040' , & ! Data Name
grid%soilw040 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILW040 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW160' , & ! Data Name
grid%soilw160 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILW160 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILW300' , & ! Data Name
grid%soilw300 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILW300 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ST000010' , & ! Data Name
grid%st000010 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field ST000010 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ST010040' , & ! Data Name
grid%st010040 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field ST010040 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ST040100' , & ! Data Name
grid%st040100 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field ST040100 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ST100200' , & ! Data Name
grid%st100200 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field ST100200 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ST010200' , & ! Data Name
grid%st010200 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field ST010200 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT000' , & ! Data Name
grid%soilt000 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILT000 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT005' , & ! Data Name
grid%soilt005 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILT005 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT020' , & ! Data Name
grid%soilt020 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILT020 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT040' , & ! Data Name
grid%soilt040 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILT040 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT160' , & ! Data Name
grid%soilt160 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILT160 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILT300' , & ! Data Name
grid%soilt300 , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILT300 memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDMASK' , & ! Data Name
grid%landmask , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TOPOSTDV' , & ! Data Name
grid%topostdv , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field TOPOSTDV memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TOPOSLPX' , & ! Data Name
grid%toposlpx , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field TOPOSLPX memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TOPOSLPY' , & ! Data Name
grid%toposlpy , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field TOPOSLPY memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SHDMAX' , & ! Data Name
grid%shdmax , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SHDMIN' , & ! Data Name
grid%shdmin , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOALB' , & ! Data Name
grid%snoalb , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SLOPECAT' , & ! Data Name
grid%slopecat , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SLOPECAT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILHGT' , & ! Data Name
grid%toposoil , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILHGT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LANDUSEF' , & ! Data Name
grid%landusef , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILCTOP' , & ! Data Name
grid%soilctop , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILCTOP memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_soil_cat , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_soil_cat , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_soil_cat , jps , MIN( (jde-1), jpe ) , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILCBOT' , & ! Data Name
grid%soilcbot , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILCBOT memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%num_soil_cat , jds , (jde-1) , &
ims , ime , 1 , config_flags%num_soil_cat , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_soil_cat , jps , MIN( (jde-1), jpe ) , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SOILCAT' , & ! Data Name
grid%soilcat , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field SOILCAT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VEGCAT' , & ! Data Name
grid%vegcat , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field VEGCAT memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XICE' , & ! Data Name
grid%xice , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.inc ext_read_field XICE memorder XY' , & ! Debug message
ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
ims , ime , jms , jme , 1 , 1 , &
ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
ierr )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'VEGFRA' , & ! Data Name
grid%vegfra , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOW' , & ! Data Name
grid%snow , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SNOWH' , & ! Data Name
grid%snowh , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'CANWAT' , & ! Data Name
grid%canwat , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SST' , & ! Data Name
grid%sst , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_M' , & ! Data Name
grid%msft , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_U' , & ! Data Name
grid%msfu , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'X' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'MAPFAC_V' , & ! Data Name
grid%msfv , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'Y' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'F' , & ! Data Name
grid%f , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'E' , & ! Data Name
grid%e , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'SINALPHA' , & ! Data Name
grid%sina , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'COSALPHA' , & ! Data Name
grid%cosa , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'HGT' , & ! Data Name
grid%ht , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TSK' , & ! Data Name
grid%tsk , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLAT' , & ! Data Name
grid%xlat , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'XLONG' , & ! Data Name
grid%xlong , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'ALBBCK' , & ! Data Name
grid%albbck , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
CALL wrf_ext_read_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'TMN' , & ! Data Name
grid%tmn , & ! Field
WRF_real , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput1in.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 )
!ENDOFREGISTRYGENERATEDINCLUDE