@@ -103,34 +103,35 @@ void ZMDeepConvection::initialize_impl (const RunType)
103103 // ----------------------------------------------------------------------------
104104 // allocate host mirror variables
105105
106- zm_input.h_phis = ZMF::view_1dh<Scalar>(" zm_input_h_phis" , m_ncol);
107- zm_input.h_pblh = ZMF::view_1dh<Scalar>(" zm_input_h_pblh" , m_ncol);
108- zm_input.h_tpert = ZMF::view_1dh<Scalar>(" zm_input_h_tpert" , m_ncol);
109- zm_input.h_landfrac = ZMF::view_1dh<Scalar>(" zm_input_h_landfrac" , m_ncol);
110- zm_input.h_z_mid = ZMF::view_2dh<Real> (" zm_input_h_z_mid" , m_ncol, m_nlev);
111- zm_input.h_p_mid = ZMF::view_2dh<Real> (" zm_input_h_p_mid" , m_ncol, m_nlev);
112- zm_input.h_p_del = ZMF::view_2dh<Real> (" zm_input_h_p_del" , m_ncol, m_nlev);
113- zm_input.h_T_mid = ZMF::view_2dh<Real> (" zm_input_h_T_mid" , m_ncol, m_nlev);
114- zm_input.h_qv = ZMF::view_2dh<Real> (" zm_input_h_qv" , m_ncol, m_nlev);
115- zm_input.h_uwind = ZMF::view_2dh<Real> (" zm_input_h_uwind" , m_ncol, m_nlev);
116- zm_input.h_vwind = ZMF::view_2dh<Real> (" zm_input_h_vwind" , m_ncol, m_nlev);
117- zm_input.h_omega = ZMF::view_2dh<Real> (" zm_input_h_omega" , m_ncol, m_nlev);
118- zm_input.h_cldfrac = ZMF::view_2dh<Real> (" zm_input_h_cldfrac" , m_ncol, m_nlev);
119- zm_input.h_z_int = ZMF::view_2dh<Real> (" zm_input_h_z_int" , m_ncol, m_nlev+1 );
120- zm_input.h_p_int = ZMF::view_2dh<Real> (" zm_input_h_p_int" , m_ncol, m_nlev+1 );
121- zm_output.h_activity = ZMF::view_1dh<Int> (" zm_output_h_activity" , m_ncol);
122- zm_output.h_prec = ZMF::view_1dh<Scalar>(" zm_output_h_prec" , m_ncol);
123- zm_output.h_snow = ZMF::view_1dh<Scalar>(" zm_output_h_snow" , m_ncol);
124- zm_output.h_cape = ZMF::view_1dh<Scalar>(" zm_output_h_cape" , m_ncol);
125- zm_output.h_tend_t = ZMF::view_2dh<Real> (" zm_output_h_tend_t" , m_ncol, m_nlev);
126- zm_output.h_tend_qv = ZMF::view_2dh<Real> (" zm_output_h_tend_qv" , m_ncol, m_nlev);
127- zm_output.h_tend_u = ZMF::view_2dh<Real> (" zm_output_h_tend_u" , m_ncol, m_nlev);
128- zm_output.h_tend_v = ZMF::view_2dh<Real> (" zm_output_h_tend_v" , m_ncol, m_nlev);
129- zm_output.h_rain_prod = ZMF::view_2dh<Real> (" zm_output_h_rain_prod" , m_ncol, m_nlev);
130- zm_output.h_snow_prod = ZMF::view_2dh<Real> (" zm_output_h_snow_prod" , m_ncol, m_nlev);
131- zm_output.h_prec_flux = ZMF::view_2dh<Real> (" zm_output_h_prec_flux" , m_ncol, m_nlev+1 );
132- zm_output.h_snow_flux = ZMF::view_2dh<Real> (" zm_output_h_snow_flux" , m_ncol, m_nlev+1 );
133- zm_output.h_mass_flux = ZMF::view_2dh<Real> (" zm_output_h_mass_flux" , m_ncol, m_nlev+1 );
106+ zm_input.h_phis = ZMF::view_1dh<Scalar>(" zm_input.h_phis" , m_ncol);
107+ zm_input.h_pblh = ZMF::view_1dh<Scalar>(" zm_input.h_pblh" , m_ncol);
108+ zm_input.h_tpert = ZMF::view_1dh<Scalar>(" zm_input.h_tpert" , m_ncol);
109+ zm_input.h_landfrac = ZMF::view_1dh<Scalar>(" zm_input.h_landfrac" , m_ncol);
110+ zm_input.h_z_mid = ZMF::view_2dh<Real> (" zm_input.h_z_mid" , m_ncol, m_nlev);
111+ zm_input.h_p_mid = ZMF::view_2dh<Real> (" zm_input.h_p_mid" , m_ncol, m_nlev);
112+ zm_input.h_p_del = ZMF::view_2dh<Real> (" zm_input.h_p_del" , m_ncol, m_nlev);
113+ zm_input.h_T_mid = ZMF::view_2dh<Real> (" zm_input.h_T_mid" , m_ncol, m_nlev);
114+ zm_input.h_qv = ZMF::view_2dh<Real> (" zm_input.h_qv" , m_ncol, m_nlev);
115+ zm_input.h_uwind = ZMF::view_2dh<Real> (" zm_input.h_uwind" , m_ncol, m_nlev);
116+ zm_input.h_vwind = ZMF::view_2dh<Real> (" zm_input.h_vwind" , m_ncol, m_nlev);
117+ zm_input.h_omega = ZMF::view_2dh<Real> (" zm_input.h_omega" , m_ncol, m_nlev);
118+ zm_input.h_cldfrac = ZMF::view_2dh<Real> (" zm_input.h_cldfrac" , m_ncol, m_nlev);
119+ zm_input.h_z_int = ZMF::view_2dh<Real> (" zm_input.h_z_int" , m_ncol, m_nlev+1 );
120+ zm_input.h_p_int = ZMF::view_2dh<Real> (" zm_input.h_p_int" , m_ncol, m_nlev+1 );
121+
122+ zm_output.h_activity = ZMF::view_1dh<Int> (" zm_output.h_activity" , m_ncol);
123+ zm_output.h_prec = ZMF::view_1dh<Scalar>(" zm_output.h_prec" , m_ncol);
124+ zm_output.h_snow = ZMF::view_1dh<Scalar>(" zm_output.h_snow" , m_ncol);
125+ zm_output.h_cape = ZMF::view_1dh<Scalar>(" zm_output.h_cape" , m_ncol);
126+ zm_output.h_tend_t = ZMF::view_2dh<Real> (" zm_output.h_tend_t" , m_ncol, m_nlev);
127+ zm_output.h_tend_qv = ZMF::view_2dh<Real> (" zm_output.h_tend_qv" , m_ncol, m_nlev);
128+ zm_output.h_tend_u = ZMF::view_2dh<Real> (" zm_output.h_tend_u" , m_ncol, m_nlev);
129+ zm_output.h_tend_v = ZMF::view_2dh<Real> (" zm_output.h_tend_v" , m_ncol, m_nlev);
130+ zm_output.h_rain_prod = ZMF::view_2dh<Real> (" zm_output.h_rain_prod" , m_ncol, m_nlev);
131+ zm_output.h_snow_prod = ZMF::view_2dh<Real> (" zm_output.h_snow_prod" , m_ncol, m_nlev);
132+ zm_output.h_prec_flux = ZMF::view_2dh<Real> (" zm_output.h_prec_flux" , m_ncol, m_nlev+1 );
133+ zm_output.h_snow_flux = ZMF::view_2dh<Real> (" zm_output.h_snow_flux" , m_ncol, m_nlev+1 );
134+ zm_output.h_mass_flux = ZMF::view_2dh<Real> (" zm_output.h_mass_flux" , m_ncol, m_nlev+1 );
134135
135136 // ----------------------------------------------------------------------------
136137 // initialize variables on the fortran side
0 commit comments