!STARTOFREGISTRYGENERATEDINCLUDE 'inc/raw_restart_in.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 DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_u_1(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_u_2(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_v_1(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_v_2(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_w_1(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_w_2(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_t_1(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_t_2(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_mu_1 , 2, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_mu_2 , 2, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_ph_1(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_ph_2(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF CALL mpi_raw_io_read ( grid%fcx , 1, config_flags%spec_bdy_width ) CALL mpi_raw_io_read ( grid%gcx , 1, config_flags%spec_bdy_width ) DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%k_t(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%k_v(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_t_eq(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%moist(grid%sm31:grid%em31,k,grid%sm33:grid%em33,P_QV), 2, 1 ) ENDDO DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_tke_1(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_tke_2(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_dn , 1, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_dnw , 1, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_fnm , 1, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_fnp , 1, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_rdn , 1, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_rdnw , 1, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_t_base , 1, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_znu , 1, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_znw , 1, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_al(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_alb(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_alt(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_p(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_pb(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_ph0(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_phb(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_php(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_t_init(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN DO k = grid%sd32,grid%ed32 CALL mpi_raw_io_read ( grid%em_ww(grid%sm31:grid%em31,k,grid%sm33:grid%em33) , 2, 1 ) ENDDO ENDIF CALL mpi_raw_io_read ( grid%xland , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%xlat , 2, grid%ed32 ) IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_xlat_u , 2, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_xlat_v , 2, grid%ed32 ) ENDIF CALL mpi_raw_io_read ( grid%xlong , 2, grid%ed32 ) IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_xlong_u , 2, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_xlong_v , 2, grid%ed32 ) ENDIF CALL mpi_raw_io_read ( grid%cosa , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%e , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%f , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%ht , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%msft , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%msfu , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%msfv , 2, grid%ed32 ) IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_mu0 , 2, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_mub , 2, grid%ed32 ) ENDIF CALL mpi_raw_io_read ( grid%sina , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%stepra , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%step_number , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%cf1 , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%cf2 , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%cf3 , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%cfn , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%cfn1 , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%dtbc , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%dts , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%dtseps , 0, grid%ed32 ) IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ll_d , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ll_t , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ll_u , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ll_v , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_lr_d , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_lr_t , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_lr_u , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_lr_v , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ul_d , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ul_t , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ul_u , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ul_v , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ur_d , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ur_t , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ur_u , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lat_ur_v , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ll_d , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ll_t , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ll_u , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ll_v , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_lr_d , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_lr_t , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_lr_u , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_lr_v , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ul_d , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ul_t , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ul_u , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ul_v , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ur_d , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ur_t , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ur_u , 0, grid%ed32 ) ENDIF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL mpi_raw_io_read ( grid%em_lon_ur_v , 0, grid%ed32 ) ENDIF CALL mpi_raw_io_read ( grid%p_top , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%rdx , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%rdy , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%resm , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%u_frame , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%v_frame , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%vc_i , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%vc_j , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%xi , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%xj , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%zetatop , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%nest_pos , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%nest_mask , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%ht_coarse , 2, grid%ed32 ) CALL mpi_raw_io_read ( grid%itimestep , 0, grid%ed32 ) CALL mpi_raw_io_read ( grid%xtime , 0, grid%ed32 ) !ENDOFREGISTRYGENERATEDINCLUDE