include file: wrf_auxinput3in.inc 1,36
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxinput3in.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_mask') ) THEN
CALL wrf_ext_read_field
( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
'LU_MASK' , & ! Data Name
grid%lu_mask , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
'XY' , & ! MemoryOrder
'' , & ! Stagger
'inc/wrf_auxinput3in.inc ext_read_field LU_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,'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_auxinput3in.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_auxinput3in.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_auxinput3in.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_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_auxinput3in.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_auxinput3in.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_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_auxinput3in.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_auxinput3in.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,'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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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
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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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_auxinput3in.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
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_auxinput3in.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_auxinput3in.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,'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_auxinput3in.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_auxinput3in.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,'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_auxinput3in.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
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_auxinput3in.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_auxinput3in.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
!ENDOFREGISTRYGENERATEDINCLUDE