Skipping 446 KB..
Full LogTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTest
Generating create(rho_ds_zt(:,:),invrs_rho_ds_zm(:,:),invrs_rho_ds_zt(:,:),thv_ds_zm(:,:),thv_ds_zt(:,:),rtm_ref(:,:),thlm_ref(:,:),um_ref(:,:),vm_ref(:,:),rho_ds_zm_dycore(:,:)) [if not already present]
Generating copyin(rho_zm_init(:),wm_zm_init(:),thvm_init(:)) [if not already present]
Generating create(veg_t_in_k(:),um_pert(:,:),vm_pert(:,:),thlm(:,:),rtm(:,:),um(:,:),vm(:,:),w_up_in_cloud(:,:),wprtp(:,:),wpthlp(:,:),rtp2(:,:),thlp2(:,:),rtpthlp(:,:),wpthlp_mc(:,:),wprtp_mc(:,:),upwp_pert(:,:),vpwp_pert(:,:),corr_cholesky_mtx_2(:,:,:,:)) [if not already present]
Generating copyin(sfc_elevation(:)) [if not already present]
Generating create(upwp_sfc_pert(:)) [if not already present]
Generating copyin(rcm_init(:)) [if not already present]
Generating create(rtpthvp(:,:)) [if not already present]
Generating copyin(thlm_init(:),pdf_params_zm%w_2(:,:)) [if not already present]
Generating create(wprtp_forcing(:,:),wpthlp_forcing(:,:),rtp2_forcing(:,:),thlp2_forcing(:,:),rtpthlp_forcing(:,:),thlp3(:,:),wprcp(:,:),wprtp_sfc(:)) [if not already present]
Generating copyin(rtm_ref_init(:),thlm_ref_init(:)) [if not already present]
Generating create(rtp3(:,:)) [if not already present]
Generating copyin(wm_zt_init(:)) [if not already present]
Generating create(wp2vp2(:,:),wp2thlp(:,:),rtpthlp_mc(:,:),thlprcp(:,:)) [if not already present]
Generating copyin(rho_init(:)) [if not already present]
Generating create(rfrzm(:,:),rho(:,:)) [if not already present]
Generating copyin(rho_ds_zm_init(:)) [if not already present]
Generating create(ice_supersat_frac(:,:)) [if not already present]
Generating copyin(invrs_rho_ds_zm_init(:)) [if not already present]
Generating create(thlpthvp(:,:)) [if not already present]
Generating copyin(thv_ds_zm_init(:)) [if not already present]
Generating create(upwp_sfc(:),vpwp_sfc(:)) [if not already present]
Generating copyin(rtm_init(:)) [if not already present]
Generating create(thlm_mc(:,:)) [if not already present]
Generating copyin(ug_init(:)) [if not already present]
Generating create(uprcp(:,:)) [if not already present]
Generating copyin(vg_init(:)) [if not already present]
Generating create(vprcp(:,:)) [if not already present]
Generating copyin(um_ref_init(:),vm_ref_init(:),up2_init(:),vp2_init(:),t_sfc(:)) [if not already present]
Generating create(rtp2_mc(:,:),thlp2_mc(:,:)) [if not already present]
Generating copyin(nu_vert_res_dep%nu9(:),em_init(:)) [if not already present]
Generating create(rc_coef_zm(:,:),cloud_cover(:,:),wpthlp_sfc(:)) [if not already present]
Generating copyin(wp2_init(:)) [if not already present]
Generating create(wp2rtp(:,:),up3(:,:),vp3(:,:),radht(:,:),wp3(:,:),wpthvp(:,:),wpup2(:,:),wp2thvp(:,:),wp2up2(:,:)) [if not already present]
Generating copyin(hm_metadata,um_init(:),vm_init(:)) [if not already present]
Generating create(upwp(:,:),vpwp(:,:),rcm(:,:),wp4(:,:),w_down_in_cloud(:,:),vpwp_sfc_pert(:),cloudy_downdraft_frac(:,:),cloud_frac(:,:)) [if not already present]
Generating copyin(invrs_rho_ds_zt_init(:)) [if not already present]
Generating create(kh_zm(:,:),invrs_tau_zm(:,:),lh_thl_clipped(:,:,:),x_mixt_comp_all_levs(:,:,:),wpvp2(:,:),lh_rv_clipped(:,:,:),lh_rc_clipped(:,:,:),lh_sample_point_weights(:,:,:),lh_nc_clipped(:,:,:),lh_rt_clipped(:,:,:),kh_zt(:,:),lscale(:,:),mu_x_1_n(:,:,:),sfc_soil_t_in_k(:),sigma_x_1_n(:,:,:)) [if not already present]
Generating copyin(clubb_params(:,:)) [if not already present]
Generating create(corr_array_1_n(:,:,:,:),corr_array_2_n(:,:,:,:),corr_cholesky_mtx_1(:,:,:,:),rcm_mc(:,:)) [if not already present]
Generating copyin(thv_ds_zt_init(:)) [if not already present]
Generating create(rho_ds_zm(:,:),pdf_params%rsatl_2(:,:),pdf_params%rt_1(:,:),pdf_params%thl_2(:,:),pdf_params%varnce_rt_1(:,:),pdf_params%stdev_eta_2(:,:),pdf_params%thl_1(:,:),pdf_params%varnce_rt_2(:,:),pdf_params%varnce_thl_1(:,:),pdf_params%corr_w_eta_2(:,:),pdf_params%corr_w_rt_1(:,:),pdf_params%corr_w_rt_2(:,:),pdf_params%corr_w_thl_1(:,:),pdf_params%corr_chi_eta_2(:,:),pdf_params%corr_rt_thl_1(:,:),pdf_params%alpha_rt(:,:)) [if not already present]
Generating copyin(pdf_params) [if not already present]
Generating create(pdf_params%covar_chi_eta_2(:,:),pdf_params%crt_1(:,:),pdf_params%crt_2(:,:),pdf_params%cthl_1(:,:),pdf_params%alpha_thl(:,:),pdf_params%chi_1(:,:),pdf_params%rt_2(:,:),pdf_params%stdev_chi_1(:,:),pdf_params%stdev_chi_2(:,:),pdf_params%stdev_eta_1(:,:),pdf_params%corr_w_thl_2(:,:),pdf_params%covar_chi_eta_1(:,:),pdf_params%corr_rt_thl_2(:,:),pdf_params%corr_w_chi_1(:,:),pdf_params%corr_w_chi_2(:,:),pdf_params%corr_w_eta_1(:,:),pdf_params%cloud_frac_2(:,:),pdf_params%corr_chi_eta_1(:,:),pdf_params%rc_2(:,:),pdf_params%rsatl_1(:,:)) [if not already present]
Generating copyin(pdf_params%mixt_frac(:,:)) [if not already present]
Generating create(pdf_params%rc_1(:,:),pdf_params%chi_2(:,:),pdf_params%cloud_frac_1(:,:),pdf_params%cthl_2(:,:),pdf_params%ice_supersat_frac_1(:,:),pdf_params_zm%rsatl_2(:,:),pdf_params_zm%rt_1(:,:),pdf_params_zm%thl_2(:,:),pdf_params_zm%varnce_rt_1(:,:),pdf_params_zm%stdev_eta_2(:,:),pdf_params_zm%thl_1(:,:),pdf_params_zm%varnce_rt_2(:,:),pdf_params_zm%varnce_thl_1(:,:),pdf_params_zm%corr_w_eta_2(:,:),pdf_params_zm%corr_w_rt_1(:,:),pdf_params_zm%corr_w_rt_2(:,:),pdf_params_zm%corr_w_thl_1(:,:),pdf_params_zm%corr_chi_eta_2(:,:),pdf_params_zm%corr_rt_thl_1(:,:),pdf_params_zm%alpha_rt(:,:)) [if not already present]
Generating copyin(pdf_params_zm) [if not already present]
Generating create(pdf_params_zm%covar_chi_eta_2(:,:),pdf_params_zm%crt_1(:,:),pdf_params_zm%crt_2(:,:),pdf_params_zm%cthl_1(:,:),pdf_params_zm%alpha_thl(:,:),pdf_params_zm%chi_1(:,:),pdf_params_zm%rt_2(:,:),pdf_params_zm%stdev_chi_1(:,:),pdf_params_zm%stdev_chi_2(:,:),pdf_params_zm%stdev_eta_1(:,:),pdf_params_zm%corr_w_thl_2(:,:),pdf_params_zm%covar_chi_eta_1(:,:),pdf_params_zm%corr_rt_thl_2(:,:),pdf_params_zm%corr_w_chi_1(:,:),pdf_params_zm%corr_w_chi_2(:,:),pdf_params_zm%corr_w_eta_1(:,:),pdf_params_zm%cloud_frac_2(:,:),pdf_params_zm%corr_chi_eta_1(:,:),pdf_params_zm%rc_2(:,:),pdf_params_zm%rsatl_1(:,:)) [if not already present]
Generating copyin(pdf_params_zm%mixt_frac(:,:)) [if not already present]
Generating create(pdf_params_zm%rc_1(:,:),pdf_params_zm%chi_2(:,:),pdf_params_zm%cloud_frac_1(:,:),pdf_params_zm%cthl_2(:,:),pdf_params_zm%ice_supersat_frac_1(:,:),x_nl_all_levs(:,:,:,:)) [if not already present]
2382, Generating create(sclrm(:,:,:),wpsclrp(:,:,:)) [if not already present]
Generating copyin(sclr_tol(:)) [if not already present]
Generating create(sclrpthvp(:,:,:),sclrm_forcing(:,:,:),sclrp2(:,:,:),sclrp3(:,:,:),sclrprtp(:,:,:),sclrpthlp(:,:,:),wpsclrp_sfc(:,:)) [if not already present]
2387, Generating create(edsclrm_forcing(:,:,:),edsclrm(:,:,:),wpedsclrp_sfc(:,:)) [if not already present]
2390, Generating create(wphydrometp(:,:,:),wp2hmp(:,:,:),thlphmp_zt(:,:,:)) [if not already present]
Generating copyin(hm_metadata%l_mix_rat_hm(:)) [if not already present]
Generating create(rtphmp_zt(:,:,:)) [if not already present]
2395, Generating implicit firstprivate(ngrdcol,lh_num_samples)
Generating NVIDIA GPU code
2396, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2397, ! blockidx%x threadidx%x collapsed
2398, ! blockidx%x threadidx%x collapsed
2399, !$acc loop seq
2399, Loop is parallelizable
2406, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2407, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2408, ! blockidx%x threadidx%x collapsed
2462, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2463, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2464, ! blockidx%x threadidx%x collapsed
2509, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2510, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
2509, Generating default present(deep_soil_t_in_k_init(:),veg_t_in_k_init(:),sfc_soil_t_in_k_init(:))
2523, Generating implicit firstprivate(sclr_dim,ngrdcol)
Generating NVIDIA GPU code
2524, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2525, ! blockidx%x threadidx%x collapsed
2526, ! blockidx%x threadidx%x collapsed
2523, Generating default present(sclrm_forcing(:,:,:),sclrm(:,:,:),sclrp3(:,:,:),sclrm_init(1:gr%nzt,1:sclr_dim))
2534, Generating implicit firstprivate(sclr_dim,ngrdcol)
Generating NVIDIA GPU code
2535, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2536, ! blockidx%x threadidx%x collapsed
2537, ! blockidx%x threadidx%x collapsed
2534, Generating default present(sclrpthlp(:,:,:),sclr_tol(:),sclrp2(:,:,:),sclrprtp(:,:,:),wpsclrp(:,:,:),sclrpthvp(:,:,:))
2547, Generating implicit firstprivate(sclr_dim,ngrdcol)
Generating NVIDIA GPU code
2548, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2549, ! blockidx%x threadidx%x collapsed
2547, Generating default present(wpsclrp_sfc(:,:))
2558, Generating implicit firstprivate(edsclr_dim,ngrdcol)
Generating NVIDIA GPU code
2559, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2560, ! blockidx%x threadidx%x collapsed
2561, ! blockidx%x threadidx%x collapsed
2558, Generating default present(edsclrm_init(1:gr%nzt,1:edsclr_dim),edsclrm_forcing(:,:,:),edsclrm(:,:,:))
2568, Generating implicit firstprivate(ngrdcol,edsclr_dim)
Generating NVIDIA GPU code
2569, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2570, ! blockidx%x threadidx%x collapsed
2568, Generating default present(wpedsclrp_sfc(:,:))
2579, Generating implicit firstprivate(ngrdcol,hydromet_dim)
Generating NVIDIA GPU code
2580, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2581, ! blockidx%x threadidx%x collapsed
2582, ! blockidx%x threadidx%x collapsed
2579, Generating default present(rtphmp_zt(:,:,:),wp2hmp(:,:,:),thlphmp_zt(:,:,:))
2590, Generating implicit firstprivate(ngrdcol,hydromet_dim)
Generating NVIDIA GPU code
2591, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2592, ! blockidx%x threadidx%x collapsed
2593, ! blockidx%x threadidx%x collapsed
2590, Generating default present(wphydrometp(:,:,:))
2611, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2612, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2613, ! blockidx%x threadidx%x collapsed
2611, Generating default present(gr_dycore)
2763, Generating update self(thlp2(:,:),rtpthlp(:,:),wp2(:,:),wp2thvp(:,:),vm(:,:),rtp2(:,:),thlm(:,:),rtm(:,:),wprtp(:,:),rtpthvp(:,:),wp3(:,:),um(:,:),thlpthvp(:,:),wpthlp(:,:))
2766, Generating update self(sclrm(:,:,:))
2767, Generating update self(edsclrm(:,:,:))
2831, Generating update self(rho_zm(:,:),wpthlp_sfc(:),wprtp_sfc(:),p_sfc(:))
2842, Generating update device(veg_t_in_k(:),sfc_soil_t_in_k(:),deep_soil_t_in_k(:))
2846, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2847, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2848, ! blockidx%x threadidx%x collapsed
2864, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2865, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2866, ! blockidx%x threadidx%x collapsed
2877, Generating update self(rfrzm(:,:))
2887, Generating update device(rfrzm(:,:))
3023, Generating update self(cloud_frac(:,:),ice_supersat_frac(:,:),kh_zm(:,:))
3025, Generating update self(wphydrometp(:,:,:))
3074, Generating update device(corr_cholesky_mtx_1(:,:,:,:),corr_array_2_n(:,:,:,:),corr_array_1_n(:,:,:,:),sigma_x_1_n(:,:,:),mu_x_2_n(:,:,:),mu_x_1_n(:,:,:),corr_cholesky_mtx_2(:,:,:,:),sigma_x_2_n(:,:,:))
3077, Generating update device(rtphmp_zt(:,:,:),wp2hmp(:,:,:),thlphmp_zt(:,:,:))
3160, Generating update self(lh_rt_clipped(:,:,:),lh_nc_clipped(:,:,:),lh_sample_point_weights(:,:,:),lh_rc_clipped(:,:,:),x_nl_all_levs(:,:,:,:),rho_ds_zt(:,:),lh_rv_clipped(:,:,:),lh_thl_clipped(:,:,:))
3191, Generating update self(pdf_params%varnce_w_1(:,:),pdf_params%thl_2(:,:),pdf_params%stdev_chi_1(:,:),pdf_params%rt_2(:,:),pdf_params%crt_1(:,:),pdf_params%cloud_frac_2(:,:),pdf_params%cthl_1(:,:),pdf_params%crt_2(:,:),pdf_params%cloud_frac_1(:,:),pdf_params%chi_2(:,:),pdf_params%w_1(:,:),pdf_params%varnce_w_2(:,:),pdf_params%thl_1(:,:),pdf_params%stdev_chi_2(:,:),pdf_params%rc_1(:,:),pdf_params%mixt_frac(:,:),pdf_params%rt_1(:,:),pdf_params%rc_2(:,:),pdf_params%chi_1(:,:),p_in_pa(:,:),pdf_params%cthl_2(:,:),kh_zm(:,:),lh_rt_clipped(:,:,:),lh_nc_clipped(:,:,:),lh_sample_point_weights(:,:,:),lh_rc_clipped(:,:,:),corr_array_1_n(:,:,:,:),cloud_frac(:,:),sigma_x_1_n(:,:,:),rtm(:,:),mu_x_1_n(:,:,:),lh_thl_clipped(:,:,:),lh_rv_clipped(:,:,:),wp3(:,:),x_nl_all_levs(:,:,:,:),x_mixt_comp_all_levs(:,:,:),exner(:,:),rho_ds_zm(:,:),rho(:,:),invrs_rho_ds_zt(:,:),wp2(:,:),wm_zt(:,:),thlm(:,:),wm_zm(:,:),pdf_params%w_2(:,:),rho_zm(:,:),rho_ds_zt(:,:),rcm(:,:),corr_array_2_n(:,:,:,:),mu_x_2_n(:,:,:),sigma_x_2_n(:,:,:))
3206, Generating copyout(skw_zm(:,:)) [if not already present]
Generating copyin(wp3_zm(:,:),wp2(:,:),clubb_params(:,:)) [if not already present]
3280, Generating update device(rtp2_mc(:,:),thlm_mc(:,:),rcm_mc(:,:),wprtp_mc(:,:),thlp2_mc(:,:),rvm_mc(:,:),rtpthlp_mc(:,:),wpthlp_mc(:,:))
3282, Generating update device(wphydrometp(:,:,:))
3301, Generating update self(cloud_frac(:,:))
3317, Generating update device(thlm_mc(:,:),rcm_mc(:,:))
3323, Generating update self(cloud_frac(:,:))
3385, Generating update self(p_in_pa(:,:),rho_zm(:,:),thlm(:,:),rtm(:,:),exner(:,:),cloud_frac(:,:),ice_supersat_frac(:,:),rho(:,:),rcm(:,:))
3400, Generating update device(radht(:,:))
prescribe_forcings:
6075, Generating enter data create(thlm_bot(:),um_bot(:),vm_bot(:),z_bot(:),exner_bot(:),rtm_bot(:),rho_bot(:),ustar(:),ubar(:))
6090, Generating implicit firstprivate(ngrdcol,nzt)
Generating NVIDIA GPU code
6091, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6092, ! blockidx%x threadidx%x collapsed
6090, Generating default present(thlm_forcing(:ngrdcol,:nzt),rtm_forcing(:ngrdcol,:nzt))
6098, Generating implicit firstprivate(nzm,ngrdcol)
Generating NVIDIA GPU code
6099, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6100, ! blockidx%x threadidx%x collapsed
6098, Generating default present(rtp2_forcing(:ngrdcol,:nzm),rtpthlp_forcing(:ngrdcol,:nzm),wpthlp_forcing(:ngrdcol,:nzm),wprtp_forcing(:ngrdcol,:nzm),thlp2_forcing(:ngrdcol,:nzm))
6145, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6146, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6145, Generating default present(thlm_forcing(:ngrdcol,nzt),rtm_forcing(:ngrdcol,nzt))
6146, Generating implicit firstprivate(nzt)
6198, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6199, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6200, ! blockidx%x threadidx%x collapsed
6198, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
6222, Generating update self(p_in_pa(:,:))
6228, Generating update device(rtm_forcing(:,:),um_ref(:,:),thlm_forcing(:,:),edsclrm_forcing(:,:,:),sclrm_forcing(:,:,:),vm_ref(:,:),wm_zt(:,:),wm_zm(:,:))
6246, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6247, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6248, ! blockidx%x threadidx%x collapsed
6246, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
6255, Generating implicit firstprivate(sclr_dim,ngrdcol)
Generating NVIDIA GPU code
6256, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6257, ! blockidx%x threadidx%x collapsed
6258, !$acc loop seq
6255, Generating default present(sclrm_forcing(:ngrdcol,:gr%nzt,:sclr_dim),gr)
6258, Loop is parallelizable
6266, Generating implicit firstprivate(ngrdcol,edsclr_dim)
Generating NVIDIA GPU code
6267, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6268, ! blockidx%x threadidx%x collapsed
6269, !$acc loop seq
6266, Generating default present(gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:edsclr_dim))
6269, Loop is parallelizable
6347, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6348, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6347, Generating default present(ustar(:ngrdcol))
6371, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6372, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6371, Generating default present(ustar(:ngrdcol))
6385, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6386, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6385, Generating default present(ustar(:ngrdcol))
6407, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6408, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6407, Generating default present(ustar(:ngrdcol))
6537, Generating update self(rho_bot(:))
6540, Generating update device(ustar(:),wpthlp_sfc(:),wprtp_sfc(:))
6598, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6599, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6598, Generating default present(wpthlp_sfc(:ngrdcol),wprtp_sfc(:ngrdcol))
6599, Generating implicit firstprivate(sens_ht,latent_ht)
6605, Generating implicit firstprivate(ngrdcol,nzm)
Generating NVIDIA GPU code
6606, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6607, ! blockidx%x threadidx%x collapsed
6605, Generating default present(wpsclrp(:ngrdcol,:nzm,sclr_idx%iisclr_thl),sclr_idx)
6607, Generating implicit firstprivate(sens_ht)
6614, Generating implicit firstprivate(ngrdcol,nzm)
Generating NVIDIA GPU code
6615, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6616, ! blockidx%x threadidx%x collapsed
6614, Generating default present(wpsclrp(:ngrdcol,:nzm,sclr_idx%iisclr_rt),sclr_idx)
6616, Generating implicit firstprivate(latent_ht)
6627, Generating update self(rho_zm(:,:),upwp_sfc(:),ustar(:),t_sfc(:),vpwp_sfc(:),wpthlp_sfc(:),wprtp_sfc(:))
6657, Generating exit data delete(thlm_bot(:),um_bot(:),z_bot(:),vm_bot(:),exner_bot(:),rtm_bot(:),rho_bot(:),ustar(:),ubar(:))
read_surface_var_for_bc:
6762, Generating create(thlm_zm(:,:),um_zm(:,:),vm_zm(:,:),k_min(:),rtm_zm(:,:),exner_zm(:,:)) [if not already present]
6767, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6768, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6767, Generating default present(exner_bot(:ngrdcol),gr,z_bot(:ngrdcol),vm_bot(:ngrdcol),thlm_bot(:ngrdcol),um(:ngrdcol,:1),um_bot(:ngrdcol),vm(:ngrdcol,:1),rho_zm(:ngrdcol,:1),rtm(:ngrdcol,:1),rtm_bot(:ngrdcol),thlm(:ngrdcol,:1),rho_bot(:ngrdcol),p_sfc(:ngrdcol),gr%zt(1:ngrdcol,1))
6787, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6788, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6795, !$acc loop seq
6787, Generating default present(gr,z_bot(:ngrdcol),gr%zt(1:ngrdcol,:))
6788, Generating implicit firstprivate(k,min_val)
6795, Loop carried scalar dependence for min_val at line 6796
Loop carried reuse of k_min prevents parallelization
6805, Generating update self(k_min(:))
6838, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6839, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6838, Generating default present(gr,rho_bot(:ngrdcol),p_sfc(:ngrdcol),exner_bot(:ngrdcol),z_bot(:),vm_bot(:ngrdcol),thlm_bot(:ngrdcol),um_bot(:ngrdcol),rtm_bot(:ngrdcol),rho_zm(:ngrdcol,:))
6839, Generating implicit firstprivate(k00,km1,kp2,kp1)
nvfortran-Warning-The flag -Mcuda has been deprecated, please use -cuda and -gpu instead.
nvfortran-Warning-The flag -Mcuda has been deprecated, please use -cuda and -gpu instead.
nvfortran-Warning-The flag -Mcuda has been deprecated, please use -cuda and -gpu instead.
nvfortran-Warning-The flag -Mcuda has been deprecated, please use -cuda and -gpu instead.
nvfortran-Warning-The flag -Mcuda has been deprecated, please use -cuda and -gpu instead.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
213 : stats_sfc(i) ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/soil_vegetation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/sounding.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function.
CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning
../src/error.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
../src/generalized_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
725 : pdf_params_zm_flip%ice_supersat_frac_1(i,:) = flip( pdf_params_zm%ice_supersat_frac_1(i,:), nzm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
726 : pdf_params_zm_flip%ice_supersat_frac_2(i,:) = flip( pdf_params_zm%ice_supersat_frac_2(i,:), nzm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
891 : rtm_ref_flip, thlm_ref_flip, um_ref_flip, vm_ref_flip, ug_flip, vg_flip, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
903 : um_flip, vm_flip, upwp_flip, vpwp_flip, up2_flip, vp2_flip, up3_flip, vp3_flip, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
905 : wp2_flip, wp3_flip, rtp2_flip, rtp3_flip, thlp2_flip, thlp3_flip, rtpthlp_flip, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
911 : wp2rtp_flip, wp2thlp_flip, uprcp_flip, vprcp_flip, rc_coef_zm_flip, wp4_flip, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
912 : wpup2_flip, wpvp2_flip, wp2up2_flip, wp2vp2_flip, ice_supersat_frac_flip, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/generalized_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1864 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1865 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2180 : ! Initialize statistics output, note that this will allocate/initialize stats variables for all
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2202 : ! Initialize statistics output, note that this will allocate/initialize stats variables for all
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2345 : !$acc rcm_in_layer, cloud_cover, wprcp, w_up_in_cloud, w_down_in_cloud, cloudy_updraft_frac, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2356 : !$acc pdf_params%corr_w_thl_2, pdf_params%corr_rt_thl_1, pdf_params%corr_rt_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2357 : !$acc pdf_params%alpha_thl, pdf_params%alpha_rt, pdf_params%crt_1, pdf_params%crt_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2360 : !$acc pdf_params%stdev_eta_2, pdf_params%covar_chi_eta_1, pdf_params%covar_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2362 : !$acc pdf_params%corr_w_eta_2, pdf_params%corr_chi_eta_1, pdf_params%corr_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2368 : !$acc pdf_params_zm%thl_2, pdf_params_zm%varnce_thl_1, pdf_params_zm%varnce_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2369 : !$acc pdf_params_zm%corr_w_rt_1, pdf_params_zm%corr_w_rt_2, pdf_params_zm%corr_w_thl_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2370 : !$acc pdf_params_zm%corr_w_thl_2, pdf_params_zm%corr_rt_thl_1, pdf_params_zm%corr_rt_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2371 : !$acc pdf_params_zm%alpha_thl, pdf_params_zm%alpha_rt, pdf_params_zm%crt_1, pdf_params_zm%crt_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2372 : !$acc pdf_params_zm%cthl_1, pdf_params_zm%cthl_2, pdf_params_zm%chi_1, pdf_params_zm%chi_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2373 : !$acc pdf_params_zm%stdev_chi_1, pdf_params_zm%stdev_chi_2, pdf_params_zm%stdev_eta_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2374 : !$acc pdf_params_zm%stdev_eta_2, pdf_params_zm%covar_chi_eta_1, pdf_params_zm%covar_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2375 : !$acc pdf_params_zm%corr_w_chi_1, pdf_params_zm%corr_w_chi_2, pdf_params_zm%corr_w_eta_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2376 : !$acc pdf_params_zm%corr_w_eta_2, pdf_params_zm%corr_chi_eta_1, pdf_params_zm%corr_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2377 : !$acc pdf_params_zm%rsatl_1, pdf_params_zm%rsatl_2, pdf_params_zm%rc_1, pdf_params_zm%rc_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2424 : invrs_rho_ds_zt(i,k) = invrs_rho_ds_zt_init(k) ! inv. dry, static density: t-levs
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2430 : um_pert(i,k) = zero ! Variables used to track perturbed version of winds.
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2432 : wm_zt(i,k) = wm_zt_init(k) ! Imposed large scale w - Thermodynamic levels
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2774 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3028 : call setup_pdf_parameters( gr, gr%nzm, gr%nzt, ngrdcol, pdf_dim, hydromet_dim, dt_main, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3029 : Nc_in_cloud, cloud_frac, Kh_zm, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3030 : ice_supersat_frac, hydromet, wphydrometp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3031 : corr_array_n_cloud, corr_array_n_below, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3032 : hm_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3033 : pdf_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3034 : clubb_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3035 : clubb_config_flags%iiPDF_type, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3036 : l_use_precip_frac, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3037 : clubb_config_flags%l_predict_upwp_vpwp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3038 : clubb_config_flags%l_diagnose_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3039 : clubb_config_flags%l_calc_w_corr, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3040 : clubb_config_flags%l_const_Nc_in_cloud, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3041 : clubb_config_flags%l_fix_w_chi_eta_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3042 : stats_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3043 : stats_zt, stats_zm, stats_sfc, err_code, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3044 : hydrometp2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3045 : mu_x_1_n, mu_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3046 : sigma_x_1_n, sigma_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3047 : corr_array_1_n, corr_array_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3048 : corr_cholesky_mtx_1, corr_cholesky_mtx_2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3049 : precip_fracs, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3050 : hydromet_pdf_params ) ! Optional(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3070 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3074 : !$acc update device( mu_x_1_n, mu_x_2_n, sigma_x_1_n, sigma_x_2_n, corr_array_1_n, corr_array_2_n, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3161 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3193 : !$acc X_nl_all_levs, X_mixt_comp_all_levs, lh_sample_point_weights, mu_x_1_n, mu_x_2_n, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3195 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3199 : !$acc pdf_params%cloud_frac_1, pdf_params%cloud_frac_2, pdf_params%cthl_1, pdf_params%cthl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3200 : !$acc pdf_params%crt_1, pdf_params%crt_2, pdf_params%stdev_chi_1, pdf_params%stdev_chi_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3223 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3224 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3225 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3241 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3242 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3243 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3244 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3245 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3246 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3247 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3248 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3249 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3273 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3274 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3275 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3276 : thlm_mc(i,:), err_code, & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3277 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3280 : !$acc update device( rcm_mc, rvm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3342 : call stat_update_var( stats_metadata%irtm_mc, rvm_mc(i,:)+rcm_mc(i,:), stats_zt(i) ) ! kg/kg/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3344 : call stat_update_var( stats_metadata%iwprtp_mc, wprtp_mc(i,:), stats_zm(i) ) ! m*(kg/kg)/s^2
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3346 : call stat_update_var( stats_metadata%irtp2_mc, rtp2_mc(i,:), stats_zm(i) ) ! (kg/kg)^2/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3348 : call stat_update_var( stats_metadata%irtpthlp_mc, rtpthlp_mc(i,:), stats_zm(i) ) ! K*(kg/kg)/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3365 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, X_nl_all_levs, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3385 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, thlm, rtm, rcm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3422 : call update_radiation_variables( gr%nzm, gr%nzt, radht(i,:), Frad_SW_up(i,:), Frad_LW_up(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3451 : if ( ( stats_metadata%l_stats_last .or. stats_metadata%l_stats .or. l_output_multi_col ) .and. l_stdout ) then
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6075 : !$acc enter data create( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6228 : !$acc update device( wm_zt, wm_zm, thlm_forcing, rtm_forcing, um_ref, vm_ref, sclrm_forcing, edsclrm_forcing )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6630 : call stat_update_var_pt( stats_metadata%ish, 1, wpthlp_sfc(i)*rho_zm(i,1)*Cp,& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6633 : call stat_update_var_pt( stats_metadata%ilh, 1, wprtp_sfc(i)*rho_zm(i,1)*Lv, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6636 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6639 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6642 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6645 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6648 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6651 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6657 : !$acc exit data delete( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6859 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6863 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6867 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6868 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6871 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6872 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6875 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6876 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
995 : call windm_edsclrm_rhs( nzm, nzt, ngrdcol, gr, windm_edsclrm_scalar, dt, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
996 : lhs_diff, edsclrm(:,:,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
997 : edsclrm_forcing(:,:,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
998 : rho_ds_zm, invrs_rho_ds_zt, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
999 : l_imp_sfc_momentum_flux, wpedsclrp(:,gr%k_lb_zm,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1000 : stats_metadata, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1001 : stats_zt, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1002 : rhs(:,:,edsclr) ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_windm_edsclrm_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED!
CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function.
../src/CLUBB_core/mt95.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
772 : call sfc_varnce_check( sclr_dim, wp2(i,gr%k_lb_zm), up2(i,gr%k_lb_zm), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
773 : vp2(i,gr%k_lb_zm), thlp2(i,gr%k_lb_zm), rtp2(i,gr%k_lb_zm), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
774 : rtpthlp(i,gr%k_lb_zm), sclrp2(i,gr%k_lb_zm,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
775 : sclrprtp(i,gr%k_lb_zm,:), sclrpthlp(i,gr%k_lb_zm,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
776 : err_code ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/sfc_varnce_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
685 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
836 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted "
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/mono_flux_limiter.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1308 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1309 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1310 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1362 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1363 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1364 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1410 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1411 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1413 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1540 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/output_netcdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2471 : call setup_grid( nzmax, 1, sfc_elevation_col, l_implemented, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2472 : l_ascending_grid, grid_type, deltaz_col, zm_init_col, zm_top_col, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2473 : momentum_heights_col, thermodynamic_heights_col, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2474 : gr, err_code_api ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3370 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3573 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/clubb_api_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
775 : call wpxp_term_pr1_lhs( nzm, ngrdcol, gr, C6rt_Skw_fnc, C6thl_Skw_fnc, C7_Skw_fnc, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
776 : invrs_tau_C6_zm, l_scalar_calc, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
777 : lhs_pr1_wprtp, lhs_pr1_wpthlp, lhs_pr1_wpsclrp ) ! Intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
855 : stats_zt, stats_zm, stats_sfc, & ! InOut
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
856 : rtm, wprtp, thlm, wpthlp, sclrm, wpsclrp, & ! InOut
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
857 : err_code ) ! InOut
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xm_wpxp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2026 : ! calculate p_in_Pa instead of remapping directly since it can run into problems if for example
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/grid_adaptation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2266 : call stat_update_var( stats_metadata%icovar_chi_eta_1, pdf_params%covar_chi_eta_1(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2268 : call stat_update_var( stats_metadata%icovar_chi_eta_2, pdf_params%covar_chi_eta_2(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2278 : call stat_update_var( stats_metadata%icorr_chi_eta_1, pdf_params%corr_chi_eta_1(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2280 : call stat_update_var( stats_metadata%icorr_chi_eta_2, pdf_params%corr_chi_eta_2(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2341 : chip2 = compute_variance_binormal( chi, pdf_params%chi_1(icol,:), pdf_params%chi_2(icol,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2342 : pdf_params%stdev_chi_1(icol,:), pdf_params%stdev_chi_2(icol,:), &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1311 : sclrprtp(:,:,sclr) ) ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1346 : sclrpthlp(:,:,sclr) ) ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xp2_xpyp_module.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/bomex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf01.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf02.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/gabls2.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/lba.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_b.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_a.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/rico.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/wangara.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
../src/G_unit_test_types/rev_direction_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
192 : !seed used = -1102123834 1480475276 -248259584 525496705 1614213535 -1267052688 6290033 -78466652
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
193 : !seed_output = (/ -1102123834, 1480475276, -248259584, 525496705, 1614213535, -1267052688, 6290033, -78466652 /)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
705 : call xpyp_term_ta_pdf_lhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
709 : call xpyp_term_ta_pdf_lhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
750 : call xpyp_term_ta_pdf_rhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
756 : call xpyp_term_ta_pdf_rhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/G_unit_test_types/rev_direction_grid_test.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
Directory 1 is 9c51ff7531cfb93015cf6eea5b4604a0277a680b
Directory 2 is ed9ae72a5eb28dbc036dd3e14b9312eea840feac
Using reporting threshold: 0.0
The following cases will be compared: ['arm', 'arm_97', 'atex', 'bomex', 'dycoms2_rf01', 'dycoms2_rf02_ds', 'gabls3_night', 'lba', 'rico', 'twp_ice', 'wangara']
###DIFFING arm netCDF (*.nc) files###
>The linux diff detected differences in arm_zm.nc<
Traceback (most recent call last):
File "/home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test/run_scripts/run_bindiff_all.py", line 447, in <module>
main()
File "/home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test/run_scripts/run_bindiff_all.py", line 88, in main
linux_diff, diff_in_files, file_skipped = find_diffs_in_all_files(args.dirs[0], args.dirs[1], args.fileout, args.verbose, tot_abs_diff_thresh, args.ghostbuster)
File "/home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test/run_scripts/run_bindiff_all.py", line 248, in find_diffs_in_all_files
diff_in_case, new_content = find_diffs_in_common_vars(ncfname, dir1, dir2, save_to_file, verbose, thresh, l_ghostbuster) or diff_in_case
File "/home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test/run_scripts/run_bindiff_all.py", line 380, in find_diffs_in_common_vars
abs_diff = abs( dset1[var][:,:,:,:] - dset2[var][:,:,:,:] )
File "/usr/lib/python3/dist-packages/numpy/ma/core.py", line 4157, in __sub__
return subtract(self, other)
File "/usr/lib/python3/dist-packages/numpy/ma/core.py", line 1015, in __call__
result = self.f(da, db, *args, **kwargs)
ValueError: operands could not be broadcast together with shapes (870,134,1,1) (0,134,1,1)
..........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................run_clubb:
2308, Generating copyin(fcor(:),gr%weights_zt2zm(:,:,:),gr%zm(:,:),gr,gr%dzm(:,:),gr%invrs_dzm(:,:),gr%dzt(:,:),gr%weights_zm2zt(:,:,:),gr%invrs_dzt(:,:)) [if not already present]
Generating create(mu_x_2_n(:,:,:)) [if not already present]
Generating copyin(nu_vert_res_dep%nu10(:),nu_vert_res_dep%nu8(:),nu_vert_res_dep,nu_vert_res_dep%nu6(:),nu_vert_res_dep%nu1(:),nu_vert_res_dep%nu2(:),p_sfc(:),pdf_params%w_2(:,:)) [if not already present]
Generating create(rvm_mc(:,:),cloudy_updraft_frac(:,:)) [if not already present]
Generating copyin(gr%zt(:,:)) [if not already present]
Generating create(sigma_x_2_n(:,:,:)) [if not already present]
Generating copyin(p_in_pa_init(:),exner_init(:),sclr_idx,deep_soil_t_in_k_init(:),dummy_dx(:),pdf_params%varnce_w_2(:,:),pdf_params%w_1(:,:)) [if not already present]
Generating create(pdf_params%varnce_thl_2(:,:)) [if not already present]
Generating copyin(pdf_params%varnce_w_1(:,:)) [if not already present]
Generating create(pdf_params%ice_supersat_frac_2(:,:)) [if not already present]
Generating copyin(pdf_params_zm%varnce_w_2(:,:),pdf_params_zm%w_1(:,:)) [if not already present]
Generating create(pdf_params_zm%varnce_thl_2(:,:)) [if not already present]
Generating copyin(pdf_params_zm%varnce_w_1(:,:)) [if not already present]
Generating create(pdf_params_zm%ice_supersat_frac_2(:,:),thlm_forcing(:,:),rtm_forcing(:,:),um_forcing(:,:),vm_forcing(:,:),ug(:,:),vg(:,:),wp2(:,:),up2(:,:),vp2(:,:),rcm_in_layer(:,:),wm_zt(:,:),wm_zm(:,:)) [if not already present]
Generating copyin(dummy_dy(:)) [if not already present]
Generating create(exner(:,:),thvm(:,:),p_in_pa(:,:)) [if not already present]
Generating copyin(rho_ds_zt_init(:)) [if not already present]
Generating create(rho_zm(:,:)) [if not already present]
Generating copyin(rho_ds_zm_dycore_init(:)) [if not already present]
Generating create(rho_ds_zt(:,:),invrs_rho_ds_zm(:,:),invrs_rho_ds_zt(:,:),thv_ds_zm(:,:),thv_ds_zt(:,:),rtm_ref(:,:),thlm_ref(:,:),um_ref(:,:),deep_soil_t_in_k(:),sfc_soil_t_in_k(:),veg_t_in_k(:),vm_ref(:,:),rho_ds_zm_dycore(:,:)) [if not already present]
Generating copyin(rho_zm_init(:),wm_zm_init(:),thvm_init(:),veg_t_in_k_init(:)) [if not already present]
Generating create(um_pert(:,:),vm_pert(:,:),thlm(:,:),rtm(:,:),um(:,:),vm(:,:),w_up_in_cloud(:,:),wprtp(:,:),wpthlp(:,:),rtp2(:,:),thlp2(:,:),rtpthlp(:,:),wpthlp_mc(:,:),wprtp_mc(:,:),upwp_pert(:,:),vpwp_pert(:,:),corr_cholesky_mtx_2(:,:,:,:)) [if not already present]
Generating copyin(sfc_elevation(:)) [if not already present]
Generating create(upwp_sfc_pert(:)) [if not already present]
Generating copyin(rcm_init(:)) [if not already present]
Generating create(rtpthvp(:,:)) [if not already present]
Generating copyin(thlm_init(:),pdf_params_zm%w_2(:,:)) [if not already present]
Generating create(wprtp_forcing(:,:),wpthlp_forcing(:,:),rtp2_forcing(:,:),thlp2_forcing(:,:),rtpthlp_forcing(:,:),thlp3(:,:),wprcp(:,:),wprtp_sfc(:)) [if not already present]
Generating copyin(rtm_ref_init(:),thlm_ref_init(:)) [if not already present]
Generating create(rtp3(:,:)) [if not already present]
Generating copyin(wm_zt_init(:)) [if not already present]
Generating create(wp2vp2(:,:),wp2thlp(:,:),rtpthlp_mc(:,:),thlprcp(:,:)) [if not already present]
Generating copyin(rho_init(:)) [if not already present]
Generating create(rfrzm(:,:),rho(:,:)) [if not already present]
Generating copyin(rho_ds_zm_init(:)) [if not already present]
Generating create(ice_supersat_frac(:,:)) [if not already present]
Generating copyin(invrs_rho_ds_zm_init(:)) [if not already present]
Generating create(thlpthvp(:,:)) [if not already present]
Generating copyin(thv_ds_zm_init(:)) [if not already present]
Generating create(upwp_sfc(:),vpwp_sfc(:)) [if not already present]
Generating copyin(rtm_init(:)) [if not already present]
Generating create(thlm_mc(:,:)) [if not already present]
Generating copyin(ug_init(:)) [if not already present]
Generating create(uprcp(:,:)) [if not already present]
Generating copyin(vg_init(:)) [if not already present]
Generating create(vprcp(:,:)) [if not already present]
Generating copyin(um_ref_init(:),vm_ref_init(:),up2_init(:),vp2_init(:),t_sfc(:)) [if not already present]
Generating create(rtp2_mc(:,:),thlp2_mc(:,:)) [if not already present]
Generating copyin(nu_vert_res_dep%nu9(:),em_init(:)) [if not already present]
Generating create(rc_coef_zm(:,:),cloud_cover(:,:),wpthlp_sfc(:)) [if not already present]
Generating copyin(wp2_init(:)) [if not already present]
Generating create(wp2rtp(:,:),up3(:,:),vp3(:,:),radht(:,:),wp3(:,:),wpthvp(:,:),wpup2(:,:),wp2thvp(:,:),wp2up2(:,:)) [if not already present]
Generating copyin(hm_metadata,um_init(:),vm_init(:)) [if not already present]
Generating create(upwp(:,:),vpwp(:,:),rcm(:,:),wp4(:,:),w_down_in_cloud(:,:),vpwp_sfc_pert(:),cloudy_downdraft_frac(:,:),cloud_frac(:,:)) [if not already present]
Generating copyin(invrs_rho_ds_zt_init(:)) [if not already present]
Generating create(kh_zm(:,:),invrs_tau_zm(:,:),lh_thl_clipped(:,:,:),x_mixt_comp_all_levs(:,:,:),wpvp2(:,:),lh_rv_clipped(:,:,:),lh_rc_clipped(:,:,:),lh_sample_point_weights(:,:,:),lh_nc_clipped(:,:,:),lh_rt_clipped(:,:,:),kh_zt(:,:),lscale(:,:),mu_x_1_n(:,:,:)) [if not already present]
Generating copyin(sfc_soil_t_in_k_init(:)) [if not already present]
Generating create(sigma_x_1_n(:,:,:)) [if not already present]
Generating copyin(clubb_params(:,:)) [if not already present]
Generating create(corr_array_1_n(:,:,:,:),corr_array_2_n(:,:,:,:),corr_cholesky_mtx_1(:,:,:,:),rcm_mc(:,:)) [if not already present]
Generating copyin(thv_ds_zt_init(:)) [if not already present]
Generating create(rho_ds_zm(:,:),pdf_params%rsatl_2(:,:),pdf_params%rt_1(:,:),pdf_params%thl_2(:,:),pdf_params%varnce_rt_1(:,:),pdf_params%stdev_eta_2(:,:),pdf_params%thl_1(:,:),pdf_params%varnce_rt_2(:,:),pdf_params%varnce_thl_1(:,:),pdf_params%corr_w_eta_2(:,:),pdf_params%corr_w_rt_1(:,:),pdf_params%corr_w_rt_2(:,:),pdf_params%corr_w_thl_1(:,:),pdf_params%corr_chi_eta_2(:,:),pdf_params%corr_rt_thl_1(:,:),pdf_params%alpha_rt(:,:)) [if not already present]
Generating copyin(pdf_params) [if not already present]
Generating create(pdf_params%covar_chi_eta_2(:,:),pdf_params%crt_1(:,:),pdf_params%crt_2(:,:),pdf_params%cthl_1(:,:),pdf_params%alpha_thl(:,:),pdf_params%chi_1(:,:),pdf_params%rt_2(:,:),pdf_params%stdev_chi_1(:,:),pdf_params%stdev_chi_2(:,:),pdf_params%stdev_eta_1(:,:),pdf_params%corr_w_thl_2(:,:),pdf_params%covar_chi_eta_1(:,:),pdf_params%corr_rt_thl_2(:,:),pdf_params%corr_w_chi_1(:,:),pdf_params%corr_w_chi_2(:,:),pdf_params%corr_w_eta_1(:,:),pdf_params%cloud_frac_2(:,:),pdf_params%corr_chi_eta_1(:,:),pdf_params%rc_2(:,:),pdf_params%rsatl_1(:,:)) [if not already present]
Generating copyin(pdf_params%mixt_frac(:,:)) [if not already present]
Generating create(pdf_params%rc_1(:,:),pdf_params%chi_2(:,:),pdf_params%cloud_frac_1(:,:),pdf_params%cthl_2(:,:),pdf_params%ice_supersat_frac_1(:,:),pdf_params_zm%rsatl_2(:,:),pdf_params_zm%rt_1(:,:),pdf_params_zm%thl_2(:,:),pdf_params_zm%varnce_rt_1(:,:),pdf_params_zm%stdev_eta_2(:,:),pdf_params_zm%thl_1(:,:),pdf_params_zm%varnce_rt_2(:,:),pdf_params_zm%varnce_thl_1(:,:),pdf_params_zm%corr_w_eta_2(:,:),pdf_params_zm%corr_w_rt_1(:,:),pdf_params_zm%corr_w_rt_2(:,:),pdf_params_zm%corr_w_thl_1(:,:),pdf_params_zm%corr_chi_eta_2(:,:),pdf_params_zm%corr_rt_thl_1(:,:),pdf_params_zm%alpha_rt(:,:)) [if not already present]
Generating copyin(pdf_params_zm) [if not already present]
Generating create(pdf_params_zm%covar_chi_eta_2(:,:),pdf_params_zm%crt_1(:,:),pdf_params_zm%crt_2(:,:),pdf_params_zm%cthl_1(:,:),pdf_params_zm%alpha_thl(:,:),pdf_params_zm%chi_1(:,:),pdf_params_zm%rt_2(:,:),pdf_params_zm%stdev_chi_1(:,:),pdf_params_zm%stdev_chi_2(:,:),pdf_params_zm%stdev_eta_1(:,:),pdf_params_zm%corr_w_thl_2(:,:),pdf_params_zm%covar_chi_eta_1(:,:),pdf_params_zm%corr_rt_thl_2(:,:),pdf_params_zm%corr_w_chi_1(:,:),pdf_params_zm%corr_w_chi_2(:,:),pdf_params_zm%corr_w_eta_1(:,:),pdf_params_zm%cloud_frac_2(:,:),pdf_params_zm%corr_chi_eta_1(:,:),pdf_params_zm%rc_2(:,:),pdf_params_zm%rsatl_1(:,:)) [if not already present]
Generating copyin(pdf_params_zm%mixt_frac(:,:)) [if not already present]
Generating create(pdf_params_zm%rc_1(:,:),pdf_params_zm%chi_2(:,:),pdf_params_zm%cloud_frac_1(:,:),pdf_params_zm%cthl_2(:,:),pdf_params_zm%ice_supersat_frac_1(:,:),x_nl_all_levs(:,:,:,:)) [if not already present]
2383, Generating create(sclrm(:,:,:),wpsclrp(:,:,:)) [if not already present]
Generating copyin(sclr_tol(:)) [if not already present]
Generating create(sclrpthvp(:,:,:),sclrm_forcing(:,:,:),sclrp2(:,:,:),sclrp3(:,:,:),sclrprtp(:,:,:),sclrpthlp(:,:,:),wpsclrp_sfc(:,:)) [if not already present]
2388, Generating create(edsclrm_forcing(:,:,:),edsclrm(:,:,:),wpedsclrp_sfc(:,:)) [if not already present]
2391, Generating create(wphydrometp(:,:,:),wp2hmp(:,:,:),thlphmp_zt(:,:,:)) [if not already present]
Generating copyin(hm_metadata%l_mix_rat_hm(:)) [if not already present]
Generating create(rtphmp_zt(:,:,:)) [if not already present]
2396, Generating implicit firstprivate(ngrdcol,lh_num_samples)
Generating NVIDIA GPU code
2397, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2398, ! blockidx%x threadidx%x collapsed
2399, ! blockidx%x threadidx%x collapsed
2400, !$acc loop seq
2400, Loop is parallelizable
2407, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2408, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2409, ! blockidx%x threadidx%x collapsed
2463, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2464, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2465, ! blockidx%x threadidx%x collapsed
2510, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2511, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
2524, Generating implicit firstprivate(sclr_dim,ngrdcol)
Generating NVIDIA GPU code
2525, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2526, ! blockidx%x threadidx%x collapsed
2527, ! blockidx%x threadidx%x collapsed
2524, Generating default present(sclrm_forcing(:,:,:),sclrm(:,:,:),sclrp3(:,:,:),sclrm_init(1:gr%nzt,1:sclr_dim))
2535, Generating implicit firstprivate(sclr_dim,ngrdcol)
Generating NVIDIA GPU code
2536, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2537, ! blockidx%x threadidx%x collapsed
2538, ! blockidx%x threadidx%x collapsed
2535, Generating default present(sclrpthlp(:,:,:),sclr_tol(:),sclrp2(:,:,:),sclrprtp(:,:,:),wpsclrp(:,:,:),sclrpthvp(:,:,:))
2548, Generating implicit firstprivate(sclr_dim,ngrdcol)
Generating NVIDIA GPU code
2549, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2550, ! blockidx%x threadidx%x collapsed
2548, Generating default present(wpsclrp_sfc(:,:))
2559, Generating implicit firstprivate(edsclr_dim,ngrdcol)
Generating NVIDIA GPU code
2560, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2561, ! blockidx%x threadidx%x collapsed
2562, ! blockidx%x threadidx%x collapsed
2559, Generating default present(edsclrm_init(1:gr%nzt,1:edsclr_dim),edsclrm_forcing(:,:,:),edsclrm(:,:,:))
2569, Generating implicit firstprivate(ngrdcol,edsclr_dim)
Generating NVIDIA GPU code
2570, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2571, ! blockidx%x threadidx%x collapsed
2569, Generating default present(wpedsclrp_sfc(:,:))
2580, Generating implicit firstprivate(ngrdcol,hydromet_dim)
Generating NVIDIA GPU code
2581, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2582, ! blockidx%x threadidx%x collapsed
2583, ! blockidx%x threadidx%x collapsed
2580, Generating default present(rtphmp_zt(:,:,:),wp2hmp(:,:,:),thlphmp_zt(:,:,:))
2591, Generating implicit firstprivate(ngrdcol,hydromet_dim)
Generating NVIDIA GPU code
2592, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
2593, ! blockidx%x threadidx%x collapsed
2594, ! blockidx%x threadidx%x collapsed
2591, Generating default present(wphydrometp(:,:,:))
2612, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2613, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2614, ! blockidx%x threadidx%x collapsed
2612, Generating default present(gr_dycore)
2764, Generating update self(thlp2(:,:),rtpthlp(:,:),wp2(:,:),wp2thvp(:,:),vm(:,:),rtp2(:,:),thlm(:,:),rtm(:,:),wprtp(:,:),rtpthvp(:,:),wp3(:,:),um(:,:),thlpthvp(:,:),wpthlp(:,:))
2767, Generating update self(sclrm(:,:,:))
2768, Generating update self(edsclrm(:,:,:))
2832, Generating update self(rho_zm(:,:),wpthlp_sfc(:),wprtp_sfc(:),p_sfc(:))
2843, Generating update device(veg_t_in_k(:),sfc_soil_t_in_k(:),deep_soil_t_in_k(:))
2847, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2848, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2849, ! blockidx%x threadidx%x collapsed
2865, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
2866, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
2867, ! blockidx%x threadidx%x collapsed
2878, Generating update self(rfrzm(:,:))
2888, Generating update device(rfrzm(:,:))
3024, Generating update self(cloud_frac(:,:),ice_supersat_frac(:,:),kh_zm(:,:))
3026, Generating update self(wphydrometp(:,:,:))
3075, Generating update device(corr_cholesky_mtx_1(:,:,:,:),corr_array_2_n(:,:,:,:),corr_array_1_n(:,:,:,:),sigma_x_1_n(:,:,:),mu_x_2_n(:,:,:),mu_x_1_n(:,:,:),corr_cholesky_mtx_2(:,:,:,:),sigma_x_2_n(:,:,:))
3078, Generating update device(rtphmp_zt(:,:,:),wp2hmp(:,:,:),thlphmp_zt(:,:,:))
3161, Generating update self(lh_rt_clipped(:,:,:),lh_nc_clipped(:,:,:),lh_sample_point_weights(:,:,:),lh_rc_clipped(:,:,:),x_nl_all_levs(:,:,:,:),rho_ds_zt(:,:),lh_rv_clipped(:,:,:),lh_thl_clipped(:,:,:))
3192, Generating update self(pdf_params%varnce_w_1(:,:),pdf_params%thl_2(:,:),pdf_params%stdev_chi_1(:,:),pdf_params%rt_2(:,:),pdf_params%crt_1(:,:),pdf_params%cloud_frac_2(:,:),pdf_params%cthl_1(:,:),pdf_params%crt_2(:,:),pdf_params%cloud_frac_1(:,:),pdf_params%chi_2(:,:),pdf_params%w_1(:,:),pdf_params%varnce_w_2(:,:),pdf_params%thl_1(:,:),pdf_params%stdev_chi_2(:,:),pdf_params%rc_1(:,:),pdf_params%mixt_frac(:,:),pdf_params%rt_1(:,:),pdf_params%rc_2(:,:),pdf_params%chi_1(:,:),p_in_pa(:,:),pdf_params%cthl_2(:,:),kh_zm(:,:),lh_rt_clipped(:,:,:),lh_nc_clipped(:,:,:),lh_sample_point_weights(:,:,:),lh_rc_clipped(:,:,:),corr_array_1_n(:,:,:,:),cloud_frac(:,:),sigma_x_1_n(:,:,:),rtm(:,:),mu_x_1_n(:,:,:),lh_thl_clipped(:,:,:),lh_rv_clipped(:,:,:),wp3(:,:),x_nl_all_levs(:,:,:,:),x_mixt_comp_all_levs(:,:,:),exner(:,:),rho_ds_zm(:,:),rho(:,:),invrs_rho_ds_zt(:,:),wp2(:,:),wm_zt(:,:),thlm(:,:),wm_zm(:,:),pdf_params%w_2(:,:),rho_zm(:,:),rho_ds_zt(:,:),rcm(:,:),corr_array_2_n(:,:,:,:),mu_x_2_n(:,:,:),sigma_x_2_n(:,:,:))
3207, Generating copyout(skw_zm(:,:)) [if not already present]
Generating copyin(wp3_zm(:,:),wp2(:,:),clubb_params(:,:)) [if not already present]
3281, Generating update device(rtp2_mc(:,:),thlm_mc(:,:),rcm_mc(:,:),wprtp_mc(:,:),thlp2_mc(:,:),rvm_mc(:,:),rtpthlp_mc(:,:),wpthlp_mc(:,:))
3283, Generating update device(wphydrometp(:,:,:))
3302, Generating update self(cloud_frac(:,:))
3318, Generating update device(thlm_mc(:,:),rcm_mc(:,:))
3324, Generating update self(cloud_frac(:,:))
3386, Generating update self(p_in_pa(:,:),rho_zm(:,:),thlm(:,:),rtm(:,:),exner(:,:),cloud_frac(:,:),ice_supersat_frac(:,:),rho(:,:),rcm(:,:))
3401, Generating update device(radht(:,:))
prescribe_forcings:
6076, Generating enter data create(thlm_bot(:),um_bot(:),vm_bot(:),z_bot(:),exner_bot(:),rtm_bot(:),rho_bot(:),ustar(:),ubar(:))
6091, Generating implicit firstprivate(ngrdcol,nzt)
Generating NVIDIA GPU code
6092, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6093, ! blockidx%x threadidx%x collapsed
6091, Generating default present(thlm_forcing(:ngrdcol,:nzt),rtm_forcing(:ngrdcol,:nzt))
6099, Generating implicit firstprivate(nzm,ngrdcol)
Generating NVIDIA GPU code
6100, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6101, ! blockidx%x threadidx%x collapsed
6099, Generating default present(rtp2_forcing(:ngrdcol,:nzm),rtpthlp_forcing(:ngrdcol,:nzm),wpthlp_forcing(:ngrdcol,:nzm),wprtp_forcing(:ngrdcol,:nzm),thlp2_forcing(:ngrdcol,:nzm))
6146, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6147, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6146, Generating default present(thlm_forcing(:ngrdcol,nzt),rtm_forcing(:ngrdcol,nzt))
6147, Generating implicit firstprivate(nzt)
6199, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6200, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6201, ! blockidx%x threadidx%x collapsed
6199, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
6223, Generating update self(p_in_pa(:,:))
6229, Generating update device(rtm_forcing(:,:),um_ref(:,:),thlm_forcing(:,:),edsclrm_forcing(:,:,:),sclrm_forcing(:,:,:),vm_ref(:,:),wm_zt(:,:),wm_zm(:,:))
6247, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6248, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6249, ! blockidx%x threadidx%x collapsed
6247, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
6256, Generating implicit firstprivate(sclr_dim,ngrdcol)
Generating NVIDIA GPU code
6257, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6258, ! blockidx%x threadidx%x collapsed
6259, !$acc loop seq
6256, Generating default present(sclrm_forcing(:ngrdcol,:gr%nzt,:sclr_dim),gr)
6259, Loop is parallelizable
6267, Generating implicit firstprivate(ngrdcol,edsclr_dim)
Generating NVIDIA GPU code
6268, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6269, ! blockidx%x threadidx%x collapsed
6270, !$acc loop seq
6267, Generating default present(gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:edsclr_dim))
6270, Loop is parallelizable
6348, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6349, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6348, Generating default present(ustar(:ngrdcol))
6372, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6373, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6372, Generating default present(ustar(:ngrdcol))
6386, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6387, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6386, Generating default present(ustar(:ngrdcol))
6408, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6409, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6408, Generating default present(ustar(:ngrdcol))
6538, Generating update self(rho_bot(:))
6541, Generating update device(ustar(:),wpthlp_sfc(:),wprtp_sfc(:))
6599, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6600, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6599, Generating default present(wpthlp_sfc(:ngrdcol),wprtp_sfc(:ngrdcol))
6600, Generating implicit firstprivate(sens_ht,latent_ht)
6606, Generating implicit firstprivate(ngrdcol,nzm)
Generating NVIDIA GPU code
6607, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6608, ! blockidx%x threadidx%x collapsed
6606, Generating default present(wpsclrp(:ngrdcol,:nzm,sclr_idx%iisclr_thl),sclr_idx)
6608, Generating implicit firstprivate(sens_ht)
6615, Generating implicit firstprivate(ngrdcol,nzm)
Generating NVIDIA GPU code
6616, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
6617, ! blockidx%x threadidx%x collapsed
6615, Generating default present(wpsclrp(:ngrdcol,:nzm,sclr_idx%iisclr_rt),sclr_idx)
6617, Generating implicit firstprivate(latent_ht)
6628, Generating update self(rho_zm(:,:),upwp_sfc(:),ustar(:),t_sfc(:),vpwp_sfc(:),wpthlp_sfc(:),wprtp_sfc(:))
6658, Generating exit data delete(thlm_bot(:),um_bot(:),z_bot(:),vm_bot(:),exner_bot(:),rtm_bot(:),rho_bot(:),ustar(:),ubar(:))
read_surface_var_for_bc:
6763, Generating create(thlm_zm(:,:),um_zm(:,:),vm_zm(:,:),k_min(:),rtm_zm(:,:),exner_zm(:,:)) [if not already present]
6768, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6769, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6768, Generating default present(exner_bot(:ngrdcol),gr,z_bot(:ngrdcol),vm_bot(:ngrdcol),thlm_bot(:ngrdcol),um(:ngrdcol,:1),um_bot(:ngrdcol),vm(:ngrdcol,:1),rho_zm(:ngrdcol,:1),rtm(:ngrdcol,:1),rtm_bot(:ngrdcol),thlm(:ngrdcol,:1),rho_bot(:ngrdcol),p_sfc(:ngrdcol),gr%zt(1:ngrdcol,1))
6788, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6789, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6796, !$acc loop seq
6788, Generating default present(gr,z_bot(:ngrdcol),gr%zt(1:ngrdcol,:))
6789, Generating implicit firstprivate(k,min_val)
6796, Loop carried scalar dependence for min_val at line 6797
Loop carried reuse of k_min prevents parallelization
6806, Generating update self(k_min(:))
6839, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6840, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6839, Generating default present(gr,rho_bot(:ngrdcol),p_sfc(:ngrdcol),exner_bot(:ngrdcol),z_bot(:),vm_bot(:ngrdcol),thlm_bot(:ngrdcol),um_bot(:ngrdcol),rtm_bot(:ngrdcol),rho_zm(:ngrdcol,:))
6840, Generating implicit firstprivate(k00,km1,kp2,kp1)
nvfortran-Warning-The flag -Mcuda has been deprecated, please use -cuda and -gpu instead.
nvfortran-Warning-The flag -Mcuda has been deprecated, please use -cuda and -gpu instead.
nvfortran-Warning-The flag -Mcuda has been deprecated, please use -cuda and -gpu instead.
nvfortran-Warning-The flag -Mcuda has been deprecated, please use -cuda and -gpu instead.
nvfortran-Warning-The flag -Mcuda has been deprecated, please use -cuda and -gpu instead.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
213 : stats_sfc(i) ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/soil_vegetation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/sounding.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function.
CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning
../src/error.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
../src/generalized_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
725 : pdf_params_zm_flip%ice_supersat_frac_1(i,:) = flip( pdf_params_zm%ice_supersat_frac_1(i,:), nzm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
726 : pdf_params_zm_flip%ice_supersat_frac_2(i,:) = flip( pdf_params_zm%ice_supersat_frac_2(i,:), nzm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
891 : rtm_ref_flip, thlm_ref_flip, um_ref_flip, vm_ref_flip, ug_flip, vg_flip, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
903 : um_flip, vm_flip, upwp_flip, vpwp_flip, up2_flip, vp2_flip, up3_flip, vp3_flip, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
905 : wp2_flip, wp3_flip, rtp2_flip, rtp3_flip, thlp2_flip, thlp3_flip, rtpthlp_flip, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
911 : wp2rtp_flip, wp2thlp_flip, uprcp_flip, vprcp_flip, rc_coef_zm_flip, wp4_flip, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
912 : wpup2_flip, wpvp2_flip, wp2up2_flip, wp2vp2_flip, ice_supersat_frac_flip, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/generalized_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1864 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1865 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2180 : ! Initialize statistics output, note that this will allocate/initialize stats variables for all
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2202 : ! Initialize statistics output, note that this will allocate/initialize stats variables for all
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2346 : !$acc rcm_in_layer, cloud_cover, wprcp, w_up_in_cloud, w_down_in_cloud, cloudy_updraft_frac, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2357 : !$acc pdf_params%corr_w_thl_2, pdf_params%corr_rt_thl_1, pdf_params%corr_rt_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2358 : !$acc pdf_params%alpha_thl, pdf_params%alpha_rt, pdf_params%crt_1, pdf_params%crt_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2361 : !$acc pdf_params%stdev_eta_2, pdf_params%covar_chi_eta_1, pdf_params%covar_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2363 : !$acc pdf_params%corr_w_eta_2, pdf_params%corr_chi_eta_1, pdf_params%corr_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2369 : !$acc pdf_params_zm%thl_2, pdf_params_zm%varnce_thl_1, pdf_params_zm%varnce_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2370 : !$acc pdf_params_zm%corr_w_rt_1, pdf_params_zm%corr_w_rt_2, pdf_params_zm%corr_w_thl_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2371 : !$acc pdf_params_zm%corr_w_thl_2, pdf_params_zm%corr_rt_thl_1, pdf_params_zm%corr_rt_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2372 : !$acc pdf_params_zm%alpha_thl, pdf_params_zm%alpha_rt, pdf_params_zm%crt_1, pdf_params_zm%crt_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2373 : !$acc pdf_params_zm%cthl_1, pdf_params_zm%cthl_2, pdf_params_zm%chi_1, pdf_params_zm%chi_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2374 : !$acc pdf_params_zm%stdev_chi_1, pdf_params_zm%stdev_chi_2, pdf_params_zm%stdev_eta_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2375 : !$acc pdf_params_zm%stdev_eta_2, pdf_params_zm%covar_chi_eta_1, pdf_params_zm%covar_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2376 : !$acc pdf_params_zm%corr_w_chi_1, pdf_params_zm%corr_w_chi_2, pdf_params_zm%corr_w_eta_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2377 : !$acc pdf_params_zm%corr_w_eta_2, pdf_params_zm%corr_chi_eta_1, pdf_params_zm%corr_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2378 : !$acc pdf_params_zm%rsatl_1, pdf_params_zm%rsatl_2, pdf_params_zm%rc_1, pdf_params_zm%rc_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2425 : invrs_rho_ds_zt(i,k) = invrs_rho_ds_zt_init(k) ! inv. dry, static density: t-levs
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2431 : um_pert(i,k) = zero ! Variables used to track perturbed version of winds.
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2433 : wm_zt(i,k) = wm_zt_init(k) ! Imposed large scale w - Thermodynamic levels
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2775 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3029 : call setup_pdf_parameters( gr, gr%nzm, gr%nzt, ngrdcol, pdf_dim, hydromet_dim, dt_main, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3030 : Nc_in_cloud, cloud_frac, Kh_zm, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3031 : ice_supersat_frac, hydromet, wphydrometp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3032 : corr_array_n_cloud, corr_array_n_below, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3033 : hm_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3034 : pdf_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3035 : clubb_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3036 : clubb_config_flags%iiPDF_type, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3037 : l_use_precip_frac, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3038 : clubb_config_flags%l_predict_upwp_vpwp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3039 : clubb_config_flags%l_diagnose_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3040 : clubb_config_flags%l_calc_w_corr, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3041 : clubb_config_flags%l_const_Nc_in_cloud, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3042 : clubb_config_flags%l_fix_w_chi_eta_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3043 : stats_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3044 : stats_zt, stats_zm, stats_sfc, err_code, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3045 : hydrometp2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3046 : mu_x_1_n, mu_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3047 : sigma_x_1_n, sigma_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3048 : corr_array_1_n, corr_array_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3049 : corr_cholesky_mtx_1, corr_cholesky_mtx_2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3050 : precip_fracs, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3051 : hydromet_pdf_params ) ! Optional(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3071 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3075 : !$acc update device( mu_x_1_n, mu_x_2_n, sigma_x_1_n, sigma_x_2_n, corr_array_1_n, corr_array_2_n, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3162 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3194 : !$acc X_nl_all_levs, X_mixt_comp_all_levs, lh_sample_point_weights, mu_x_1_n, mu_x_2_n, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3196 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3200 : !$acc pdf_params%cloud_frac_1, pdf_params%cloud_frac_2, pdf_params%cthl_1, pdf_params%cthl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3201 : !$acc pdf_params%crt_1, pdf_params%crt_2, pdf_params%stdev_chi_1, pdf_params%stdev_chi_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3224 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3225 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3226 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3242 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3243 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3244 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3245 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3246 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3247 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3248 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3249 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3250 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3274 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3275 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3276 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3277 : thlm_mc(i,:), err_code, & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3278 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3281 : !$acc update device( rcm_mc, rvm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3343 : call stat_update_var( stats_metadata%irtm_mc, rvm_mc(i,:)+rcm_mc(i,:), stats_zt(i) ) ! kg/kg/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3345 : call stat_update_var( stats_metadata%iwprtp_mc, wprtp_mc(i,:), stats_zm(i) ) ! m*(kg/kg)/s^2
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3347 : call stat_update_var( stats_metadata%irtp2_mc, rtp2_mc(i,:), stats_zm(i) ) ! (kg/kg)^2/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3349 : call stat_update_var( stats_metadata%irtpthlp_mc, rtpthlp_mc(i,:), stats_zm(i) ) ! K*(kg/kg)/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3366 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, X_nl_all_levs, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3386 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, thlm, rtm, rcm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3423 : call update_radiation_variables( gr%nzm, gr%nzt, radht(i,:), Frad_SW_up(i,:), Frad_LW_up(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3452 : if ( ( stats_metadata%l_stats_last .or. stats_metadata%l_stats .or. l_output_multi_col ) .and. l_stdout ) then
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6076 : !$acc enter data create( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6229 : !$acc update device( wm_zt, wm_zm, thlm_forcing, rtm_forcing, um_ref, vm_ref, sclrm_forcing, edsclrm_forcing )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6631 : call stat_update_var_pt( stats_metadata%ish, 1, wpthlp_sfc(i)*rho_zm(i,1)*Cp,& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6634 : call stat_update_var_pt( stats_metadata%ilh, 1, wprtp_sfc(i)*rho_zm(i,1)*Lv, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6637 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6640 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6643 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6646 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6649 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6652 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6658 : !$acc exit data delete( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6860 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6864 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6868 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6869 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6872 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6873 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6876 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6877 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
995 : call windm_edsclrm_rhs( nzm, nzt, ngrdcol, gr, windm_edsclrm_scalar, dt, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
996 : lhs_diff, edsclrm(:,:,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
997 : edsclrm_forcing(:,:,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
998 : rho_ds_zm, invrs_rho_ds_zt, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
999 : l_imp_sfc_momentum_flux, wpedsclrp(:,gr%k_lb_zm,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1000 : stats_metadata, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1001 : stats_zt, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1002 : rhs(:,:,edsclr) ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_windm_edsclrm_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED!
CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function.
../src/CLUBB_core/mt95.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2471 : call setup_grid( nzmax, 1, sfc_elevation_col, l_implemented, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2472 : l_ascending_grid, grid_type, deltaz_col, zm_init_col, zm_top_col, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2473 : momentum_heights_col, thermodynamic_heights_col, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2474 : gr, err_code_api ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3370 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3573 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/clubb_api_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1308 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1309 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1310 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1362 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1363 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1364 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1410 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1411 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1413 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1540 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/output_netcdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
685 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
836 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted "
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/mono_flux_limiter.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
772 : call sfc_varnce_check( sclr_dim, wp2(i,gr%k_lb_zm), up2(i,gr%k_lb_zm), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
773 : vp2(i,gr%k_lb_zm), thlp2(i,gr%k_lb_zm), rtp2(i,gr%k_lb_zm), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
774 : rtpthlp(i,gr%k_lb_zm), sclrp2(i,gr%k_lb_zm,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
775 : sclrprtp(i,gr%k_lb_zm,:), sclrpthlp(i,gr%k_lb_zm,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
776 : err_code ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/sfc_varnce_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
775 : call wpxp_term_pr1_lhs( nzm, ngrdcol, gr, C6rt_Skw_fnc, C6thl_Skw_fnc, C7_Skw_fnc, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
776 : invrs_tau_C6_zm, l_scalar_calc, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
777 : lhs_pr1_wprtp, lhs_pr1_wpthlp, lhs_pr1_wpsclrp ) ! Intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
855 : stats_zt, stats_zm, stats_sfc, & ! InOut
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
856 : rtm, wprtp, thlm, wpthlp, sclrm, wpsclrp, & ! InOut
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
857 : err_code ) ! InOut
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xm_wpxp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2026 : ! calculate p_in_Pa instead of remapping directly since it can run into problems if for example
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/grid_adaptation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2266 : call stat_update_var( stats_metadata%icovar_chi_eta_1, pdf_params%covar_chi_eta_1(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2268 : call stat_update_var( stats_metadata%icovar_chi_eta_2, pdf_params%covar_chi_eta_2(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2278 : call stat_update_var( stats_metadata%icorr_chi_eta_1, pdf_params%corr_chi_eta_1(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2280 : call stat_update_var( stats_metadata%icorr_chi_eta_2, pdf_params%corr_chi_eta_2(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2341 : chip2 = compute_variance_binormal( chi, pdf_params%chi_1(icol,:), pdf_params%chi_2(icol,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2342 : pdf_params%stdev_chi_1(icol,:), pdf_params%stdev_chi_2(icol,:), &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1311 : sclrprtp(:,:,sclr) ) ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1346 : sclrpthlp(:,:,sclr) ) ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xp2_xpyp_module.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/bomex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf01.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf02.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/lba.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/gabls2.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_b.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_a.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/rico.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/wangara.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
../src/G_unit_test_types/rev_direction_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
192 : !seed used = -1102123834 1480475276 -248259584 525496705 1614213535 -1267052688 6290033 -78466652
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
193 : !seed_output = (/ -1102123834, 1480475276, -248259584, 525496705, 1614213535, -1267052688, 6290033, -78466652 /)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
705 : call xpyp_term_ta_pdf_lhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
709 : call xpyp_term_ta_pdf_lhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
750 : call xpyp_term_ta_pdf_rhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
756 : call xpyp_term_ta_pdf_rhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/G_unit_test_types/rev_direction_grid_test.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
Directory 1 is 13ad3cfe7872df2fe91250265f4a81baa621a882
Directory 2 is ed9ae72a5eb28dbc036dd3e14b9312eea840feac
Using reporting threshold: 0.0
The following cases will be compared: ['arm', 'arm_97', 'atex', 'bomex', 'dycoms2_rf01', 'dycoms2_rf02_ds', 'gabls3_night', 'lba', 'rico', 'twp_ice', 'wangara']
###DIFFING arm netCDF (*.nc) files###
>The linux diff detected differences in arm_zm.nc<
Traceback (most recent call last):
File "/home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test/run_scripts/run_bindiff_all.py", line 447, in <module>
main()
File "/home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test/run_scripts/run_bindiff_all.py", line 88, in main
linux_diff, diff_in_files, file_skipped = find_diffs_in_all_files(args.dirs[0], args.dirs[1], args.fileout, args.verbose, tot_abs_diff_thresh, args.ghostbuster)
File "/home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test/run_scripts/run_bindiff_all.py", line 248, in find_diffs_in_all_files
diff_in_case, new_content = find_diffs_in_common_vars(ncfname, dir1, dir2, save_to_file, verbose, thresh, l_ghostbuster) or diff_in_case
File "/home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test/run_scripts/run_bindiff_all.py", line 380, in find_diffs_in_common_vars
abs_diff = abs( dset1[var][:,:,:,:] - dset2[var][:,:,:,:] )
File "/usr/lib/python3/dist-packages/numpy/ma/core.py", line 4157, in __sub__
return subtract(self, other)
File "/usr/lib/python3/dist-packages/numpy/ma/core.py", line 1015, in __call__
result = self.f(da, db, *args, **kwargs)
ValueError: operands could not be broadcast together with shapes (870,134,1,1) (0,134,1,1)
Directory 1 is 9c51ff7531cfb93015cf6eea5b4604a0277a680b
Directory 2 is 13ad3cfe7872df2fe91250265f4a81baa621a882
Using reporting threshold: 0.0
The following cases will be compared: ['arm', 'arm_97', 'atex', 'bomex', 'dycoms2_rf01', 'dycoms2_rf02_ds', 'gabls3_night', 'lba', 'rico', 'twp_ice', 'wangara']
###DIFFING arm netCDF (*.nc) files###
>No differences detected by the linux diff in arm_zm.nc<
>No differences detected by the linux diff in arm_zt.nc<
>No differences detected by the linux diff in arm_sfc.nc<
>No differences detected by the linux diff in arm_multi_col_zm.nc<
>No differences detected by the linux diff in arm_multi_col_zt.nc<
>>>The linux diff could not detect any differences in the file pairs for case arm.<<<
**********************************************************************************************************
###DIFFING arm_97 netCDF (*.nc) files###
>No differences detected by the linux diff in arm_97_zm.nc<
>No differences detected by the linux diff in arm_97_zt.nc<
>No differences detected by the linux diff in arm_97_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case arm_97.<<<
**********************************************************************************************************
###DIFFING atex netCDF (*.nc) files###
>No differences detected by the linux diff in atex_zm.nc<
>No differences detected by the linux diff in atex_zt.nc<
>No differences detected by the linux diff in atex_sfc.nc<
>No differences detected by the linux diff in atex_multi_col_zm.nc<
>No differences detected by the linux diff in atex_multi_col_zt.nc<
>>>The linux diff could not detect any differences in the file pairs for case atex.<<<
**********************************************************************************************************
###DIFFING bomex netCDF (*.nc) files###
>No differences detected by the linux diff in bomex_zm.nc<
>No differences detected by the linux diff in bomex_zt.nc<
>No differences detected by the linux diff in bomex_sfc.nc<
>No differences detected by the linux diff in bomex_multi_col_zm.nc<
>No differences detected by the linux diff in bomex_multi_col_zt.nc<
>>>The linux diff could not detect any differences in the file pairs for case bomex.<<<
**********************************************************************************************************
###DIFFING dycoms2_rf01 netCDF (*.nc) files###
>No differences detected by the linux diff in dycoms2_rf01_zm.nc<
>No differences detected by the linux diff in dycoms2_rf01_zt.nc<
>No differences detected by the linux diff in dycoms2_rf01_sfc.nc<
>No differences detected by the linux diff in dycoms2_rf01_multi_col_zm.nc<
>No differences detected by the linux diff in dycoms2_rf01_multi_col_zt.nc<
>>>The linux diff could not detect any differences in the file pairs for case dycoms2_rf01.<<<
**********************************************************************************************************
###DIFFING dycoms2_rf02_ds netCDF (*.nc) files###
>No differences detected by the linux diff in dycoms2_rf02_ds_zm.nc<
>No differences detected by the linux diff in dycoms2_rf02_ds_zt.nc<
>No differences detected by the linux diff in dycoms2_rf02_ds_sfc.nc<
>No differences detected by the linux diff in dycoms2_rf02_ds_multi_col_zm.nc<
>No differences detected by the linux diff in dycoms2_rf02_ds_multi_col_zt.nc<
>>>The linux diff could not detect any differences in the file pairs for case dycoms2_rf02_ds.<<<
**********************************************************************************************************
###DIFFING gabls3_night netCDF (*.nc) files###
>No differences detected by the linux diff in gabls3_night_zm.nc<
>No differences detected by the linux diff in gabls3_night_zt.nc<
>No differences detected by the linux diff in gabls3_night_sfc.nc<
>No differences detected by the linux diff in gabls3_night_multi_col_zm.nc<
>No differences detected by the linux diff in gabls3_night_multi_col_zt.nc<
>>>The linux diff could not detect any differences in the file pairs for case gabls3_night.<<<
**********************************************************************************************************
###DIFFING lba netCDF (*.nc) files###
>No differences detected by the linux diff in lba_zm.nc<
>No differences detected by the linux diff in lba_zt.nc<
>No differences detected by the linux diff in lba_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case lba.<<<
**********************************************************************************************************
###DIFFING rico netCDF (*.nc) files###
>No differences detected by the linux diff in rico_zm.nc<
>No differences detected by the linux diff in rico_zt.nc<
>No differences detected by the linux diff in rico_sfc.nc<
>No differences detected by the linux diff in rico_multi_col_zm.nc<
>No differences detected by the linux diff in rico_multi_col_zt.nc<
>>>The linux diff could not detect any differences in the file pairs for case rico.<<<
**********************************************************************************************************
###DIFFING twp_ice netCDF (*.nc) files###
>No differences detected by the linux diff in twp_ice_zm.nc<
>No differences detected by the linux diff in twp_ice_zt.nc<
>No differences detected by the linux diff in twp_ice_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case twp_ice.<<<
**********************************************************************************************************
###DIFFING wangara netCDF (*.nc) files###
>No differences detected by the linux diff in wangara_zm.nc<
>No differences detected by the linux diff in wangara_zt.nc<
>No differences detected by the linux diff in wangara_sfc.nc<
>No differences detected by the linux diff in wangara_multi_col_zm.nc<
>No differences detected by the linux diff in wangara_multi_col_zt.nc<
>>>The linux diff could not detect any differences in the file pairs for case wangara.<<<
**********************************************************************************************************
SUMMARY:
Linux diff did not detect any differences in the compared files.
=============================== Configuring Test ===============================
Working directory set to: /home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test
Checking specified repo: /home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test
Using /home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test with origin https://github.com/larson-group/clubb.git
Output Save Mode: all
Using branch: master
Making list from 'UnresolvedCommits':
- ed9ae72a5eb28dbc036dd3e14b9312eea840feac
CheckRange = True: Getting commit range
Run Output Path: output
Run commands: ['compile/compile.bash -c config/linux_x86_64_nvhpc_gpu_openacc.bash', '\nrm -rf output', '\nmkdir output', '\nrun_scripts/create_multi_col_params.py -n 4 -out_file run_scripts/clubb_params_multi_col.in', '\nrun_scripts/run_scm_all.bash --min-cases -p clubb_params_multi_col.in']
Diffing command: run_scripts/run_bindiff_all.py
=============================== Running Test ===============================
Parsing message from commit: 13ad3cfe7872df2fe91250265f4a81baa621a882
Parsing message from commit: 9c51ff7531cfb93015cf6eea5b4604a0277a680b
Found: RESOLVED:ed9ae72a5eb28dbc036dd3e14b9312eea840feac
Checking Commit: 13ad3cfe7872df2fe91250265f4a81baa621a882
Skipping: not final commit and not labelled BIT_CHANGING
Checking Commit: 9c51ff7531cfb93015cf6eea5b4604a0277a680b
Running: final commit to check, not labelled BIT_CHANGING
Checking out 9c51ff7531cfb93015cf6eea5b4604a0277a680b
Running: 'compile/compile.bash -c config/linux_x86_64_nvhpc_gpu_openacc.bash'
Running: 'rm -rf output'
Running: 'mkdir output'
Running: 'run_scripts/create_multi_col_params.py -n 4 -out_file run_scripts/clubb_params_multi_col.in'
Running: 'run_scripts/run_scm_all.bash --min-cases -p clubb_params_multi_col.in'
Checking out ed9ae72a5eb28dbc036dd3e14b9312eea840feac
Running: 'compile/compile.bash -c config/linux_x86_64_nvhpc_gpu_openacc.bash'
Running: 'rm -rf output'
Running: 'mkdir output'
Running: 'run_scripts/create_multi_col_params.py -n 4 -out_file run_scripts/clubb_params_multi_col.in'
Running: 'run_scripts/run_scm_all.bash --min-cases -p clubb_params_multi_col.in'
Diffing: 'run_scripts/run_bindiff_all.py 9c51ff7531cfb93015cf6eea5b4604a0277a680b ed9ae72a5eb28dbc036dd3e14b9312eea840feac'
ISSUE WITH COMMIT DETECTED: 9c51ff7531cfb93015cf6eea5b4604a0277a680b differs from ed9ae72a5eb28dbc036dd3e14b9312eea840feac
Finding all BIT_CHANGING commits in range: ed9ae72a5eb28dbc036dd3e14b9312eea840feac...9c51ff7531cfb93015cf6eea5b4604a0277a680b
Checking out 13ad3cfe7872df2fe91250265f4a81baa621a882
Running: 'compile/compile.bash -c config/linux_x86_64_nvhpc_gpu_openacc.bash'
Running: 'rm -rf output'
Running: 'mkdir output'
Running: 'run_scripts/create_multi_col_params.py -n 4 -out_file run_scripts/clubb_params_multi_col.in'
Running: 'run_scripts/run_scm_all.bash --min-cases -p clubb_params_multi_col.in'
Output from ed9ae72a5eb28dbc036dd3e14b9312eea840feac already saved
Diffing: 'run_scripts/run_bindiff_all.py 13ad3cfe7872df2fe91250265f4a81baa621a882 ed9ae72a5eb28dbc036dd3e14b9312eea840feac'
Output from 9c51ff7531cfb93015cf6eea5b4604a0277a680b already saved
Output from 13ad3cfe7872df2fe91250265f4a81baa621a882 already saved
Diffing: 'run_scripts/run_bindiff_all.py 9c51ff7531cfb93015cf6eea5b4604a0277a680b 13ad3cfe7872df2fe91250265f4a81baa621a882'
Found:
13ad3cfe7872df2fe91250265f4a81baa621a882
=============================== Test Results ===============================
Commit Range Checked = ed9ae72a5eb28dbc036dd3e14b9312eea840feac...9c51ff7531cfb93015cf6eea5b4604a0277a680b
New Unresolved Commits:
13ad3cfe7872df2fe91250265f4a81baa621a882
No fake BIT_CHANGING commits found.
Resolved: ed9ae72a5eb28dbc036dd3e14b9312eea840feac
Remaining Unresolved Commits (oldest commit is listed first):
13ad3cfe7872df2fe91250265f4a81baa621a882
=============================== Updating Config File ===============================
Saving into UnresolvedCommits: 13ad3cfe7872df2fe91250265f4a81baa621a882
Saving into BaselineCommit: 9c51ff7531cfb93015cf6eea5b4604a0277a680b
=============================== Cleanup ===============================
Not removing any generated output.
RENAMING 9c51ff7531cfb93015cf6eea5b4604a0277a680b to latest_revision_validated_9c51ff7531cfb93015cf6eea5b4604a0277a680b
================== Unresolved Commit Status ==================
Remaining Unresolved Commits (oldest commit is listed first):
13ad3cfe7872df2fe91250265f4a81baa621a882
Exiting with code: 1
[Pipeline] }
[Pipeline] // stage
[Pipeline] stage
[Pipeline] { (Declarative: Post Actions)
[Pipeline] script
[Pipeline] {
[Pipeline] emailext
Sending email to: messnermet@uwm.edu
[Pipeline] }
[Pipeline] // script
[Pipeline] }
[Pipeline] // stage
[Pipeline] }
[Pipeline] // withEnv
[Pipeline] }
[Pipeline] // node
[Pipeline] End of Pipeline
ERROR: script returned exit code 1
Finished: FAILURE
![[Jenkins]](/jenkins/static/57c8a776/images/svgs/logo.svg){kind=logo}
