include file: wrf_restartin.inc 1,176 !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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'U_1' , & ! Data Name grid%em_u_1 , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'U_2' , & ! 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_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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'V_1' , & ! Data Name grid%em_v_1 , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'V_2' , & ! 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_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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'W_1' , & ! Data Name grid%em_w_1 , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'W_2' , & ! Data Name grid%em_w_2 , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'WW' , & ! Data Name grid%em_ww , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH_1' , & ! Data Name grid%em_ph_1 , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH_2' , & ! Data Name grid%em_ph_2 , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PHB' , & ! Data Name grid%em_phb , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH0' , & ! Data Name grid%em_ph0 , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PHP' , & ! Data Name grid%em_php , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_1' , & ! Data Name grid%em_t_1 , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_2' , & ! 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_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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_INIT' , & ! Data Name grid%em_t_init , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU_1' , & ! Data Name grid%em_mu_1 , & ! Field WRF_real , & ! FieldType 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU_2' , & ! Data Name grid%em_mu_2 , & ! Field WRF_real , & ! FieldType 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MUB' , & ! Data Name grid%em_mub , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ( 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_restartin.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 'TKE_1' , & ! Data Name grid%em_tke_1 , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TKE_2' , & ! Data Name grid%em_tke_2 , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'P' , & ! Data Name grid%em_p , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'AL' , & ! Data Name grid%em_al , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ALT' , & ! Data Name grid%em_alt , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ALB' , & ! Data Name grid%em_alb , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PB' , & ! Data Name grid%em_pb , & ! Field WRF_real , & ! 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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'FNM' , & ! Data Name grid%em_fnm , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'FNP' , & ! Data Name grid%em_fnp , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RDNW' , & ! Data Name grid%em_rdnw , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RDN' , & ! Data Name grid%em_rdn , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'DNW' , & ! Data Name grid%em_dnw , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'DN ' , & ! Data Name grid%em_dn , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ZNU' , & ! Data Name grid%em_znu , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ( 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_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 ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_BASE' , & ! Data Name grid%em_t_base , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CFN' , & ! Data Name grid%cfn , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CFN1' , & ! Data Name grid%cfn1 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'EPSTS' , & ! Data Name grid%epsts , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '0' , & ! MemoryOrder '' , & ! Stagger 'inc/wrf_restartin.inc ext_read_field EPSTS memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'Q2' , & ! Data Name grid%q2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T2' , & ! Data Name grid%t2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TH2' , & ! Data Name grid%th2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'U10' , & ! Data Name grid%u10 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'V10' , & ! Data Name grid%v10 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RDX' , & ! Data Name grid%rdx , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RDY' , & ! Data Name grid%rdy , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'DTS' , & ! Data Name grid%dts , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'DTSEPS' , & ! Data Name grid%dtseps , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RESM' , & ! Data Name grid%resm , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ZETATOP' , & ! Data Name grid%zetatop , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CF1' , & ! Data Name grid%cf1 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CF2' , & ! Data Name grid%cf2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CF3' , & ! Data Name grid%cf3 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) 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 ) IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QVAPOR_1' , & ! Data Name grid%moist_1(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_restartin.inc ext_read_field QVAPOR_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 ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QVAPOR_2' , & ! 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_restartin.inc ext_read_field QVAPOR_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 ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QCLOUD_1' , & ! Data Name grid%moist_1(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_restartin.inc ext_read_field QCLOUD_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 ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QCLOUD_2' , & ! 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_restartin.inc ext_read_field QCLOUD_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 ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QRAIN_1' , & ! Data Name grid%moist_1(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_restartin.inc ext_read_field QRAIN_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 ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QRAIN_2' , & ! 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_restartin.inc ext_read_field QRAIN_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 ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QICE_1' , & ! Data Name grid%moist_1(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_restartin.inc ext_read_field QICE_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 ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QICE_2' , & ! 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_restartin.inc ext_read_field QICE_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 ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QSNOW_1' , & ! Data Name grid%moist_1(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_restartin.inc ext_read_field QSNOW_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 ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QSNOW_2' , & ! 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_restartin.inc ext_read_field QSNOW_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 ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QGRAUP_1' , & ! Data Name grid%moist_1(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_restartin.inc ext_read_field QGRAUP_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 ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QGRAUP_2' , & ! 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_restartin.inc ext_read_field QGRAUP_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 CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'FCX' , & ! Data Name grid%fcx , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'GCX' , & ! Data Name grid%gcx , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'DTBC' , & ! Data Name grid%dtbc , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) 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_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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TSLB' , & ! Data Name grid%tslb , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ZS' , & ! Data Name grid%zs , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'DZS' , & ! Data Name grid%dzs , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SMOIS' , & ! Data Name grid%smois , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SH2O' , & ! Data Name grid%sh2o , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) 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_restartin.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 'SMSTAV' , & ! Data Name grid%smstav , & ! Field WRF_real , & ! FieldType 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SFROFF' , & ! Data Name grid%sfcrunoff , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'UDROFF' , & ! Data Name grid%udrunoff , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) 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 ) 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 ) 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_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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'GRDFLX' , & ! Data Name grid%grdflx , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ACSNOW' , & ! Data Name grid%acsnow , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ACSNOM' , & ! Data Name grid%acsnom , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) 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_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 ) 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_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 ) 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_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 ) 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_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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TKE_MYJ' , & ! Data Name grid%tke_myj , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CT' , & ! Data Name grid%ct , & ! Field WRF_real , & ! FieldType 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'THZ0' , & ! Data Name grid%thz0 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'Z0' , & ! Data Name grid%z0 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QZ0' , & ! Data Name grid%qz0 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'UZ0' , & ! Data Name grid%uz0 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'VZ0' , & ! Data Name grid%vz0 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QSFC' , & ! Data Name grid%qsfc , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'AKHS' , & ! Data Name grid%akhs , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'AKMS' , & ! Data Name grid%akms , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'HTOP' , & ! Data Name grid%htop , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'HBOT' , & ! Data Name grid%hbot , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CUPPT' , & ! Data Name grid%cuppt , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T0ETA' , & ! Data Name grid%t0eta , & ! Field WRF_real , & ! 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 T0ETA 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'Q0ETA' , & ! Data Name grid%q0eta , & ! Field WRF_real , & ! 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 Q0ETA 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'P0ETA' , & ! Data Name grid%p0eta , & ! Field WRF_real , & ! 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 P0ETA 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'F_ICE_PHY' , & ! Data Name grid%f_ice_phy , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'F_RAIN_PHY' , & ! Data Name grid%f_rain_phy , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'F_RIMEF_PHY' , & ! Data Name grid%f_rimef_phy , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'H_DIABATIC' , & ! Data Name grid%h_diabatic , & ! Field WRF_real , & ! 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 ) 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_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 ) 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_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 ) 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_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 ) 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_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 ) 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_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 ) 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_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 ) 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_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 ) 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_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 ) 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_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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'U_BASE' , & ! Data Name grid%u_base , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'V_BASE' , & ! Data Name grid%v_base , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QV_BASE' , & ! Data Name grid%qv_base , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'U_FRAME' , & ! Data Name grid%u_frame , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'V_FRAME' , & ! Data Name grid%v_frame , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'P_TOP' , & ! Data Name grid%p_top , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RTHCUTEN' , & ! Data Name grid%rthcuten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQVCUTEN' , & ! Data Name grid%rqvcuten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQRCUTEN' , & ! Data Name grid%rqrcuten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQCCUTEN' , & ! Data Name grid%rqccuten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQSCUTEN' , & ! Data Name grid%rqscuten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQICUTEN' , & ! Data Name grid%rqicuten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'W0AVG' , & ! Data Name grid%w0avg , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RAINC' , & ! Data Name grid%rainc , & ! Field WRF_real , & ! FieldType 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RAINNC' , & ! Data Name grid%rainnc , & ! Field WRF_real , & ! FieldType 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RAINCV' , & ! Data Name grid%raincv , & ! Field WRF_real , & ! FieldType 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RAINNCV' , & ! Data Name grid%rainncv , & ! Field WRF_real , & ! FieldType 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RAINBL' , & ! Data Name grid%rainbl , & ! Field WRF_real , & ! FieldType 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'NCA' , & ! Data Name grid%nca , & ! Field WRF_real , & ! FieldType 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 ) 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RTHRATEN' , & ! Data Name grid%rthraten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RTHRATLW' , & ! Data Name grid%rthratenlw , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RTHRATSW' , & ! Data Name grid%rthratensw , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CLDFRA' , & ! Data Name grid%cldfra , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'GSW' , & ! Data Name grid%gsw , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'GLW' , & ! Data Name grid%glw , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) 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_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 ) 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_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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ALBEDO' , & ! Data Name grid%albedo , & ! Field WRF_real , & ! FieldType 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 ) 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_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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'EMISS' , & ! Data Name grid%emiss , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'LU_INDEX' , & ! Data Name grid%lu_index , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CLDEFI' , & ! Data Name grid%cldefi , & ! Field WRF_real , & ! FieldType 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 ) 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RUBLTEN' , & ! Data Name grid%rublten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RVBLTEN' , & ! Data Name grid%rvblten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RTHBLTEN' , & ! Data Name grid%rthblten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQVBLTEN' , & ! Data Name grid%rqvblten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQCBLTEN' , & ! Data Name grid%rqcblten , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQIBLTEN' , & ! Data Name grid%rqiblten , & ! Field WRF_real , & ! 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 ) 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_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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'XLAND' , & ! Data Name grid%xland , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ZNT' , & ! Data Name grid%znt , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'UST' , & ! Data Name grid%ust , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MOL' , & ! Data Name grid%mol , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PBLH' , & ! Data Name grid%pblh , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CAPG' , & ! Data Name grid%capg , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'THC' , & ! Data Name grid%thc , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'HFX' , & ! Data Name grid%hfx , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QFX' , & ! Data Name grid%qfx , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'LH' , & ! Data Name grid%lh , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SNOWC' , & ! Data Name grid%snowc , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MAVAIL' , & ! Data Name grid%mavail , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TKESFCF' , & ! Data Name grid%tkesfcf , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask '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 ) 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TAUCLDI' , & ! Data Name grid%taucldi , & ! Field WRF_real , & ! 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 ) CALL wrf_ext_read_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TAUCLDC' , & ! Data Name grid%taucldc , & ! Field WRF_real , & ! 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 ) !ENDOFREGISTRYGENERATEDINCLUDE