Skipping 319 KB..
Full LogTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTest
828, !$acc loop gang, vector(128) collapse(4) ! blockidx%x threadidx%x
829, ! blockidx%x threadidx%x collapsed
830, ! blockidx%x threadidx%x collapsed
831, ! blockidx%x threadidx%x collapsed
827, Generating default present(x_u_all_levs(:ngrdcol,:num_samples,:nzt,:d_uniform_extra+pdf_dim),rand_pool(:ngrdcol,:num_samples,:nzt,:d_uniform_extra+pdf_dim))
840, Generating implicit firstprivate(ngrdcol,nzt,num_samples)
Generating NVIDIA GPU code
841, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
842, ! blockidx%x threadidx%x collapsed
843, ! blockidx%x threadidx%x collapsed
840, Generating default present(lh_sample_point_weights(:ngrdcol,:num_samples,:nzt))
clip_transform_silhs_output:
1135, Generating implicit firstprivate(ngrdcol,num_samples,nzt)
Generating NVIDIA GPU code
1136, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
1137, ! blockidx%x threadidx%x collapsed
1138, ! blockidx%x threadidx%x collapsed
1135, Generating default present(lh_rc_clipped(:ngrdcol,:num_samples,:nzt),lh_nc_clipped(:ngrdcol,:num_samples,:nzt),lh_rt_clipped(:ngrdcol,:num_samples,:nzt),x_nl_all_levs(:ngrdcol,:num_samples,:nzt,:),lh_rv_clipped(:ngrdcol,:num_samples,:nzt),hm_metadata)
1138, Generating implicit firstprivate(l_use_ncn_to_nc)
compute_arb_overlap:
1913, Generating implicit firstprivate(d_uniform_extra,ngrdcol,pdf_dim,num_samples)
Generating NVIDIA GPU code
1914, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
1915, ! blockidx%x threadidx%x collapsed
1916, ! blockidx%x threadidx%x collapsed
1921, !$acc loop seq
1913, Generating default present(x_u_all_levs(:ngrdcol,:num_samples,:,:d_uniform_extra+pdf_dim),vert_corr(:ngrdcol,:),k_lh_start(:ngrdcol),rand_pool(:ngrdcol,:num_samples,:,:d_uniform_extra+pdf_dim))
1916, Generating implicit firstprivate(k,unbounded_point,nzt,k_lh_start_i)
1921, Loop carried scalar dependence for unbounded_point at line 1924
Generating implicit firstprivate(half_width,offset,min_val)
Loop carried scalar dependence for unbounded_point at line 1924
1947, Generating implicit firstprivate(d_uniform_extra,ngrdcol,pdf_dim,num_samples)
Generating NVIDIA GPU code
1948, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
1949, ! blockidx%x threadidx%x collapsed
1950, ! blockidx%x threadidx%x collapsed
1955, !$acc loop seq
1947, Generating default present(x_u_all_levs(:ngrdcol,:num_samples,:,:d_uniform_extra+pdf_dim),vert_corr(:ngrdcol,:),k_lh_start(:ngrdcol),rand_pool(:ngrdcol,:num_samples,:,:d_uniform_extra+pdf_dim))
1950, Generating implicit firstprivate(k,unbounded_point,k_lh_start_i)
1955, Loop carried scalar dependence for unbounded_point at line 1958
Generating implicit firstprivate(half_width,offset,min_val)
Loop carried scalar dependence for unbounded_point at line 1958
ar: creating /home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test/compile/../lib/libsilhs.a
apply_time_dependent_forcings:
588, Generating create(temp_array(:)) [if not already present]
609, Generating update device(temp_array(:))
617, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
618, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
619, ! blockidx%x threadidx%x collapsed
617, Generating default present(thlm_f(:ngrdcol,:nzt),exner(:ngrdcol,:nzt))
626, Generating implicit firstprivate(ngrdcol,nzt)
Generating NVIDIA GPU code
627, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
628, ! blockidx%x threadidx%x collapsed
626, Generating default present(thlm_f(:ngrdcol,:nzt))
635, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
636, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
637, ! blockidx%x threadidx%x collapsed
635, Generating default present(thlm_f(:ngrdcol,:nzt))
646, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
647, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
648, ! blockidx%x threadidx%x collapsed
646, Generating default present(sclr_idx,thlm_f(:ngrdcol,:nzt),sclrm_forcing(:ngrdcol,:nzt,sclr_idx%iisclr_thl))
657, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
658, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
659, ! blockidx%x threadidx%x collapsed
657, Generating default present(edsclrm_forcing(:ngrdcol,:nzt,sclr_idx%iiedsclr_thl),sclr_idx,thlm_f(:ngrdcol,:nzt))
671, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
672, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
673, ! blockidx%x threadidx%x collapsed
671, Generating default present(rtm_f(:ngrdcol,:nzt),rtm(:ngrdcol,:nzt))
680, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
681, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
682, ! blockidx%x threadidx%x collapsed
680, Generating default present(rtm_f(:ngrdcol,:nzt))
691, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
692, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
693, ! blockidx%x threadidx%x collapsed
691, Generating default present(sclrm_forcing(:ngrdcol,:nzt,sclr_idx%iisclr_rt),sclr_idx,rtm_f(:ngrdcol,:nzt))
702, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
703, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
704, ! blockidx%x threadidx%x collapsed
702, Generating default present(sclr_idx,rtm_f(:ngrdcol,:nzt),edsclrm_forcing(:ngrdcol,:nzt,sclr_idx%iiedsclr_rt))
713, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
714, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
715, ! blockidx%x threadidx%x collapsed
713, Generating default present(um_ref(:ngrdcol,:nzt))
722, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
723, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
724, ! blockidx%x threadidx%x collapsed
722, Generating default present(vm_ref(:ngrdcol,:nzt))
731, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
732, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
733, ! blockidx%x threadidx%x collapsed
731, Generating default present(um_f(:ngrdcol,:nzt))
740, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
741, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
742, ! blockidx%x threadidx%x collapsed
740, Generating default present(vm_f(:ngrdcol,:nzt))
752, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
753, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
754, ! blockidx%x threadidx%x collapsed
752, Generating default present(wm_zt(:ngrdcol,:nzt))
761, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
762, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
763, ! blockidx%x threadidx%x collapsed
761, Generating default present(wm_zt(:ngrdcol,:nzt),rho(:ngrdcol,:nzt))
770, Generating implicit firstprivate(nzt)
Generating NVIDIA GPU code
771, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
775, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
776, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
777, ! blockidx%x threadidx%x collapsed
775, Generating default present(wm_zt(:ngrdcol,:nzt),rho(:ngrdcol,:nzt))
790, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
791, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
792, ! blockidx%x threadidx%x collapsed
790, Generating default present(ug(:ngrdcol,:nzt))
799, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
800, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
801, ! blockidx%x threadidx%x collapsed
799, Generating default present(vg(:ngrdcol,:nzt))
diag_ustar:
36, Generating acc routine seq
Generating NVIDIA GPU code
flux_spec_hum_to_mixing_ratio:
62, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
63, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
62, Generating default present(rtm_zm(:ngrdcol),wprtp(:ngrdcol),wpqtp(:ngrdcol))
force_spec_hum_to_mixing_ratio:
106, Generating implicit firstprivate(nzt,ngrdcol)
Generating NVIDIA GPU code
107, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
108, ! blockidx%x threadidx%x collapsed
106, Generating default present(rtm_forcing(:ngrdcol,:nzt),rtm(:ngrdcol,:nzt),qtm_forcing(:ngrdcol,:nzt))
wangara_tndcy:
68, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
69, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
70, ! blockidx%x threadidx%x collapsed
68, Generating default present(wm_zm(:ngrdcol,:gr%nzm),gr)
75, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
76, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
77, ! blockidx%x threadidx%x collapsed
75, Generating default present(wm_zt(:ngrdcol,:gr%nzt),thlm_forcing(:ngrdcol,:gr%nzt),gr,rtm_forcing(:ngrdcol,:gr%nzt))
90, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
91, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
92, ! blockidx%x threadidx%x collapsed
90, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclrm_forcing(:ngrdcol,:gr%nzt,:),rtm_forcing(:ngrdcol,:gr%nzt),sclr_idx,gr)
101, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
102, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
103, ! blockidx%x threadidx%x collapsed
101, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclr_idx,rtm_forcing(:ngrdcol,:gr%nzt),gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:))
wangara_sfclyr:
171, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
172, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
171, Generating default present(wpthlp_sfc(:ngrdcol),wprtp_sfc(:ngrdcol),ustar(:ngrdcol))
172, Generating implicit firstprivate(time_est)
microphys_lhs:
1845, Generating copyin(gr,gr%invrs_dzm(:,:),invrs_rho_ds_zt_col(:,:),kh_zm(:,:)) [if not already present]
Generating copyout(lhs_ta(:,:,:)) [if not already present]
Generating copyin(gr%invrs_dzt(:,:),rho_ds_zm_col(:,:),nu_col(:),kh_zt(:,:)) [if not already present]
1875, Generating copyin(gr%invrs_dzt(:,:),gr%invrs_dzm(:,:),gr,wm_zt_col(:,:)) [if not already present]
Generating copyout(lhs_ma(:,:)) [if not already present]
Generating copyin(gr%weights_zt2zm(:,:,:)) [if not already present]
microphys_rhs:
2161, Generating copyin(gr,gr%invrs_dzm(:,:),invrs_rho_ds_zt_col(:,:),kh_zm(:,:)) [if not already present]
Generating copyout(lhs_ta(:,:)) [if not already present]
Generating copyin(gr%invrs_dzt(:,:),nu_col(:),rho_ds_zm_col(:,:),kh_zt(:,:)) [if not already present]
compute_momentum_flux:
57, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
58, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
57, Generating default present(upwp_sfc(:ngrdcol),ubar(:ngrdcol),um_sfc(:ngrdcol),ustar(:ngrdcol),vpwp_sfc(:ngrdcol),vm_sfc(:ngrdcol))
compute_ubar:
102, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
103, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
102, Generating default present(vm_sfc(:ngrdcol),um_sfc(:ngrdcol),ubar(:ngrdcol))
compute_wpthlp_sfc:
216, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
217, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
216, Generating default present(t_sfc(:ngrdcol),exner_sfc(:ngrdcol),cd(:ngrdcol),thlm_sfc(:ngrdcol),wpthlp_sfc(:ngrdcol),ubar(:ngrdcol))
compute_wprtp_sfc:
258, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
259, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
258, Generating default present(cd(:ngrdcol),rtm_sfc(:ngrdcol),adjustment(:ngrdcol),wprtp_sfc(:ngrdcol),ubar(:ngrdcol))
set_sclr_sfc_rtm_thlm:
314, Generating implicit firstprivate(ngrdcol,sclr_dim)
Generating NVIDIA GPU code
315, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
316, !$acc loop seq
314, Generating default present(wpsclrp_sfc(:ngrdcol,:sclr_dim))
315, Generating implicit firstprivate(i)
316, Loop is parallelizable
321, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
322, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
321, Generating default present(wpthlp_sfc(:ngrdcol),wpsclrp_sfc(:ngrdcol,:),wprtp_sfc(:ngrdcol),wpedsclrp_sfc(:ngrdcol,:),sclr_idx)
334, Generating implicit firstprivate(ngrdcol,edsclr_dim)
Generating NVIDIA GPU code
335, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
336, !$acc loop seq
334, Generating default present(wpedsclrp_sfc(:ngrdcol,:edsclr_dim))
336, Loop is parallelizable
convert_sens_ht_to_km_s:
348, Generating acc routine seq
Generating NVIDIA GPU code
convert_latent_ht_to_m_s:
375, Generating acc routine seq
Generating NVIDIA GPU code
bomex_tndcy:
82, Generating enter data create(qtm_forcing(:,:))
87, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
88, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
89, ! blockidx%x threadidx%x collapsed
87, Generating default present(gr%zt(1:ngrdcol,1:gr%nzt),gr,qtm_forcing(:ngrdcol,:gr%nzt),thlm_forcing(:ngrdcol,:gr%nzt))
114, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
115, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
116, ! blockidx%x threadidx%x collapsed
114, Generating default present(sclrm_forcing(:ngrdcol,:gr%nzt,:),thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),sclr_idx,gr)
124, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
125, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
126, ! blockidx%x threadidx%x collapsed
124, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclr_idx,rtm_forcing(:ngrdcol,:gr%nzt),gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:))
133, Generating exit data delete(qtm_forcing(:,:))
bomex_sfclyr:
193, Generating enter data copyin(wpqtp_sfc(:))
208, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
209, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
208, Generating default present(wpqtp_sfc(:ngrdcol),wpthlp_sfc(:ngrdcol),ustar(:ngrdcol))
209, Generating implicit firstprivate(wpqtp_sfc_calc,wpthlp_sfc_calc)
224, Generating exit data delete(wpqtp_sfc(:))
nov11_altocu_rtm_adjust:
91, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
92, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
93, ! blockidx%x threadidx%x collapsed
91, Generating default present(gr,gr%zm(1:ngrdcol,1),gr%zt(1:ngrdcol,1:gr%nzt),rtm(:ngrdcol,:gr%nzt))
neutral_case_sfclyr:
76, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
77, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
76, Generating default present(wpthlp_sfc(:ngrdcol),wprtp_sfc(:ngrdcol),ustar(:ngrdcol))
77, Generating implicit firstprivate(time)
rico_tndcy:
88, Generating enter data create(qtm_forcing(:,:))
93, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
94, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
95, ! blockidx%x threadidx%x collapsed
93, Generating default present(exner(:ngrdcol,:gr%nzt),gr,gr%zt(1:ngrdcol,1:gr%nzt),thlm_forcing(:ngrdcol,:gr%nzt))
95, Generating implicit firstprivate(t_tendency)
116, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
117, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
118, ! blockidx%x threadidx%x collapsed
116, Generating default present(qtm_forcing(:ngrdcol,:gr%nzt),gr%zt(1:ngrdcol,1:gr%nzt),gr)
145, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
146, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
147, ! blockidx%x threadidx%x collapsed
145, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclrm_forcing(:ngrdcol,:gr%nzt,:),rtm_forcing(:ngrdcol,:gr%nzt),sclr_idx,gr)
156, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
157, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
158, ! blockidx%x threadidx%x collapsed
156, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclr_idx,rtm_forcing(:ngrdcol,:gr%nzt),gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:))
165, Generating exit data delete(qtm_forcing(:,:))
rico_sfclyr:
270, Generating enter data create(cm(:),ch(:),cq(:),ubar(:),rsat(:),cz(:))
287, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
288, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
287, Generating default present(t_sfc(:),ustar(:ngrdcol),rsat(:ngrdcol),p_sfc(:))
288, Generating implicit firstprivate(t_sfc_interp,saturation_formula)
318, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
319, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
318, Generating default present(z_bot(:ngrdcol),cq(:ngrdcol),ch(:ngrdcol),cm(:ngrdcol))
344, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
345, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
344, Generating default present(cm(:ngrdcol),ubar(:ngrdcol),um_sfc(:ngrdcol),upwp_sfc(:ngrdcol),vpwp_sfc(:ngrdcol),vm_sfc(:ngrdcol))
352, Generating exit data delete(cm(:),ch(:),cq(:),ubar(:),rsat(:),cz(:))
twp_ice_sfclyr:
96, Generating enter data create(ch(:),rsat(:),cq(:))
106, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
107, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
106, Generating default present(t_sfc(:),z(:ngrdcol),ustar(:ngrdcol),ch(:ngrdcol),rsat(:ngrdcol),cq(:ngrdcol),p_sfc(:))
107, Generating implicit firstprivate(t_sfc_interp,saturation_formula)
138, Generating exit data delete(ch(:),rsat(:),cq(:))
arm_sfclyr:
98, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
99, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
98, Generating default present(thlm_sfc(:ngrdcol),z(:),wpthlp_sfc(:ngrdcol),ubar(:),wprtp_sfc(:ngrdcol),ustar(:ngrdcol))
99, Generating implicit firstprivate(bflx,moisture_flx2,heat_flx2)
arm_0003_sfclyr:
91, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
92, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
91, Generating default present(wprtp_sfc(:ngrdcol),ustar(:ngrdcol),rho_sfc(:),thlm_sfc(:ngrdcol),z(:),wpthlp_sfc(:ngrdcol),ubar(:))
92, Generating implicit firstprivate(bflx,moisture_flx,heat_flx)
arm_3year_sfclyr:
79, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
80, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
79, Generating default present(wprtp_sfc(:ngrdcol),ustar(:ngrdcol),rho_sfc(:),thlm_sfc(:ngrdcol),z(:),wpthlp_sfc(:ngrdcol),ubar(:))
80, Generating implicit firstprivate(bflx,moisture_flx,heat_flx)
astex_a209_sfclyr:
193, Generating enter data create(ch(:),cq(:),rsat(:))
207, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
208, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
207, Generating default present(ustar(:ngrdcol),t_sfc(:),rsat(:ngrdcol),lowestlevel(:ngrdcol),p_sfc(:),cq(:ngrdcol),ch(:ngrdcol))
208, Generating implicit firstprivate(t_sfc_interp,saturation_formula)
238, Generating exit data delete(ch(:),rsat(:),cq(:))
atex_tndcy:
102, Generating enter data create(z_inversion(:),z_lev(:))
108, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
109, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
108, Generating default present(rtm(:ngrdcol,:),z_lev(:ngrdcol),gr)
111, Complex loop carried dependence of z_lev prevents parallelization
Loop carried reuse of z_lev prevents parallelization
118, Generating update self(z_lev(:),rtm(:,:))
132, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
133, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
132, Generating default present(z_lev(:ngrdcol),z_inversion(:ngrdcol),gr,gr%zt(1:ngrdcol,:))
138, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
139, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
140, ! blockidx%x threadidx%x collapsed
138, Generating default present(z_inversion(:ngrdcol),wm_zt(:ngrdcol,:gr%nzt),gr,gr%zt(1:ngrdcol,1:gr%nzt))
157, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
158, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
157, Generating default present(wm_zm(:ngrdcol,:),gr)
164, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
165, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
166, ! blockidx%x threadidx%x collapsed
164, Generating default present(rtm_forcing(:ngrdcol,:gr%nzt),gr,z_inversion(:ngrdcol),thlm_forcing(:ngrdcol,:gr%nzt),gr%zt(1:ngrdcol,1:gr%nzt))
194, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
195, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
196, ! blockidx%x threadidx%x collapsed
194, Generating default present(wm_zt(:ngrdcol,:gr%nzt),thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
203, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
204, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
205, ! blockidx%x threadidx%x collapsed
203, Generating default present(wm_zm(:ngrdcol,:gr%nzm),gr)
213, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
214, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
215, ! blockidx%x threadidx%x collapsed
213, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclrm_forcing(:ngrdcol,:gr%nzt,:),rtm_forcing(:ngrdcol,:gr%nzt),sclr_idx,gr)
224, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
225, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
226, ! blockidx%x threadidx%x collapsed
224, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclr_idx,rtm_forcing(:ngrdcol,:gr%nzt),gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:))
233, Generating exit data delete(z_lev(:),z_inversion(:))
arm_97_sfclyr:
96, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
97, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
96, Generating default present(wprtp_sfc(:ngrdcol),ustar(:ngrdcol),rho_sfc(:),thlm_sfc(:ngrdcol),z(:),wpthlp_sfc(:ngrdcol),ubar(:))
97, Generating implicit firstprivate(bflx,moisture_flx,heat_flx)
atex_sfclyr:
299, Generating enter data create(c_10(:),adjustment(:))
309, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
310, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
309, Generating default present(adjustment(:ngrdcol),ustar(:ngrdcol),t_sfc(:ngrdcol),c_10(:ngrdcol))
310, Generating implicit firstprivate(t_sfc_interp)
324, Generating exit data delete(c_10(:),adjustment(:))
cloud_feedback_sfclyr:
103, Generating enter data create(cq(:),ch(:),exner_sfc(:),rsat(:))
115, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
116, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
115, Generating default present(cq(:ngrdcol),ustar(:ngrdcol),t_sfc(:),exner_sfc(:ngrdcol),ch(:ngrdcol),rsat(:ngrdcol),lowest_level(:ngrdcol),p_sfc(:))
116, Generating implicit firstprivate(saturation_formula,t_sfc_interp)
163, Generating exit data delete(cq(:),ch(:),rsat(:),exner_sfc(:))
cobra_sfclyr:
144, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
145, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
144, Generating default present(rho_sfc(:),t_sfc(:ngrdcol),thlm_sfc(:ngrdcol),wpthlp_sfc(:ngrdcol),z(:),ubar(:),wprtp_sfc(:ngrdcol),ustar(:ngrdcol))
145, Generating implicit firstprivate(t_sfc_calc,moisture_flx2,co2_flx2,heat_flx,heat_flx2,moisture_flx,bflx,co2_flx)
176, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
177, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
176, Generating default present(wpthlp_sfc(:ngrdcol),wpsclrp_sfc(:ngrdcol,:),wprtp_sfc(:ngrdcol),sclr_idx)
177, Generating implicit firstprivate(co2_flx2)
185, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
186, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
185, Generating default present(wpthlp_sfc(:ngrdcol),wprtp_sfc(:ngrdcol),sclr_idx,wpedsclrp_sfc(:ngrdcol,:))
186, Generating implicit firstprivate(co2_flx2)
dycoms2_rf01_tndcy:
66, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
67, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
68, ! blockidx%x threadidx%x collapsed
66, Generating default present(rtm_forcing(:ngrdcol,:gr%nzt),thlm_forcing(:ngrdcol,:gr%nzt),gr)
77, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
78, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
79, ! blockidx%x threadidx%x collapsed
77, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclrm_forcing(:ngrdcol,:gr%nzt,:),rtm_forcing(:ngrdcol,:gr%nzt),sclr_idx,gr)
88, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
89, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
90, ! blockidx%x threadidx%x collapsed
88, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclr_idx,rtm_forcing(:ngrdcol,:gr%nzt),gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:))
dycoms2_rf01_sfclyr:
176, Generating enter data create(rsat(:),cd(:))
192, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
193, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
192, Generating default present(t_sfc(:ngrdcol),rho_sfc(:),wprtp_sfc(:ngrdcol),wpthlp_sfc(:ngrdcol),ustar(:ngrdcol))
193, Generating implicit firstprivate(t_sfc_interp,sens_ht,latent_ht)
202, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
203, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
202, Generating default present(ustar(:ngrdcol),t_sfc(:),rsat(:ngrdcol),cd(:ngrdcol),p_sfc(:))
203, Generating implicit firstprivate(t_sfc_interp,saturation_formula)
223, Generating exit data delete(rsat(:),cd(:))
fire_sfclyr:
92, Generating enter data create(cz(:),rsat(:))
102, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
103, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
102, Generating default present(t_sfc(:),ustar(:ngrdcol),rsat(:ngrdcol),cz(:ngrdcol),p_sfc(:))
103, Generating implicit firstprivate(t_sfc_interp,saturation_formula)
118, Generating exit data delete(rsat(:),cz(:))
dycoms2_rf02_tndcy:
90, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
91, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
90, Generating default present(wm_zt(:ngrdcol,gr%nzt),wm_zm(:ngrdcol,gr%nzm),gr)
96, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
97, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
98, ! blockidx%x threadidx%x collapsed
96, Generating default present(rtm_forcing(:ngrdcol,:gr%nzt),thlm_forcing(:ngrdcol,:gr%nzt),gr)
107, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
108, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
109, ! blockidx%x threadidx%x collapsed
107, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclrm_forcing(:ngrdcol,:gr%nzt,:),rtm_forcing(:ngrdcol,:gr%nzt),sclr_idx,gr)
118, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
119, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
120, ! blockidx%x threadidx%x collapsed
118, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclr_idx,rtm_forcing(:ngrdcol,:gr%nzt),gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:))
dycoms2_rf02_sfclyr:
194, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
195, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
194, Generating default present(wpthlp_sfc(:ngrdcol),wprtp_sfc(:ngrdcol),ustar(:ngrdcol))
195, Generating implicit firstprivate(sens_ht,latent_ht)
gabls3_sfclyr:
98, Generating enter data create(c_10(:),offset(:))
101, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
102, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
101, Generating default present(c_10(:ngrdcol),offset(:ngrdcol))
114, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
115, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
114, Generating default present(veg_t_in_k(:ngrdcol),ustar(:ngrdcol),wpthlp_sfc(:ngrdcol),wprtp_sfc(:ngrdcol),lowest_level(:),exner_sfc(:ngrdcol),ubar(:))
115, Generating implicit firstprivate(veg_theta_in_k,bflx)
122, Generating exit data delete(offset(:),c_10(:))
gabls2_tndcy:
91, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
92, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
93, ! blockidx%x threadidx%x collapsed
91, Generating default present(wm_zt(:ngrdcol,:gr%nzt),gr%zt(1:ngrdcol,1:gr%nzt),gr)
106, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
107, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
108, ! blockidx%x threadidx%x collapsed
106, Generating default present(wm_zt(:ngrdcol,:gr%nzt),gr)
118, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
119, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
118, Generating default present(wm_zm(:ngrdcol,:),gr)
124, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
125, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
126, ! blockidx%x threadidx%x collapsed
124, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
138, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
139, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
140, ! blockidx%x threadidx%x collapsed
138, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclrm_forcing(:ngrdcol,:gr%nzt,:),rtm_forcing(:ngrdcol,:gr%nzt),sclr_idx,gr)
149, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
150, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
151, ! blockidx%x threadidx%x collapsed
149, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclr_idx,rtm_forcing(:ngrdcol,:gr%nzt),gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:))
gabls2_sfclyr:
241, Generating enter data create(rsat(:),cz(:))
276, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
277, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
276, Generating default present(cz(:ngrdcol),t_sfc(:),rsat(:ngrdcol),lowest_level(:ngrdcol),p_sfc(:))
277, Generating implicit firstprivate(t_sfc_calc,saturation_formula)
293, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
294, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
293, Generating default present(ustar(:ngrdcol),lowest_level(:),p_sfc(:ngrdcol),wpthlp_sfc(:ngrdcol),wprtp_sfc(:ngrdcol),t_sfc(:ngrdcol),ubar(:))
294, Generating implicit firstprivate(sstheta,bflx)
305, Generating exit data delete(rsat(:),cz(:))
gabls3_night_sfclyr:
97, Generating enter data create(ubar(:))
113, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
114, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
113, Generating default present(um_sfc(:),thlm_sfc(:),vm_sfc(:),wpthlp_sfc(:),wprtp_sfc(:),ustar(:),ubar(:),lowest_level(:),rtm_sfc(:))
114, Generating implicit firstprivate(ts,qs)
129, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
130, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
129, Generating default present(vpwp_sfc(:ngrdcol),upwp_sfc(:ngrdcol))
130, Generating implicit firstprivate(vpwp_sfc_interp,upwp_sfc_interp)
143, Generating exit data delete(ubar(:))
psi_h:
150, Generating implicit acc routine seq
Generating acc routine seq
Generating NVIDIA GPU code
gm1:
163, Generating implicit acc routine seq
Generating acc routine seq
Generating NVIDIA GPU code
gh1:
175, Generating implicit acc routine seq
Generating acc routine seq
Generating NVIDIA GPU code
fm1:
188, Generating implicit acc routine seq
Generating acc routine seq
Generating NVIDIA GPU code
fh1:
206, Generating implicit acc routine seq
Generating acc routine seq
Generating NVIDIA GPU code
landflx:
220, Generating acc routine seq
Generating NVIDIA GPU code
lba_tndcy:
68, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
69, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
70, ! blockidx%x threadidx%x collapsed
68, Generating default present(rtm_forcing(:ngrdcol,:gr%nzt),thlm_forcing(:ngrdcol,:gr%nzt),gr)
82, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
83, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
84, ! blockidx%x threadidx%x collapsed
82, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclrm_forcing(:ngrdcol,:gr%nzt,:),rtm_forcing(:ngrdcol,:gr%nzt),sclr_idx,gr)
93, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
94, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
95, ! blockidx%x threadidx%x collapsed
93, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclr_idx,rtm_forcing(:ngrdcol,:gr%nzt),gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:))
lba_sfclyr:
172, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
173, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
172, Generating default present(wprtp_sfc(:ngrdcol),ustar(:ngrdcol),rho_sfc(:),thlm_sfc(:ngrdcol),z(:),wpthlp_sfc(:ngrdcol),ubar(:))
173, Generating implicit firstprivate(ft,bflx)
mpace_b_tndcy:
106, Generating enter data create(t_tendency,velocity_omega)
109, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
110, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
111, ! blockidx%x threadidx%x collapsed
109, Generating default present(gr,p_in_pa(:ngrdcol,:gr%nzt),wm_zt(:ngrdcol,:gr%nzt),thvm(:ngrdcol,:gr%nzt))
111, Generating implicit firstprivate(velocity_omega)
121, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
122, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
121, Generating default present(wm_zm(:ngrdcol,:),gr)
128, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
129, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
130, ! blockidx%x threadidx%x collapsed
128, Generating default present(gr,thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),p_in_pa(:ngrdcol,:gr%nzt))
130, Generating implicit firstprivate(t_tendency)
143, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
144, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
145, ! blockidx%x threadidx%x collapsed
143, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclrm_forcing(:ngrdcol,:gr%nzt,:),rtm_forcing(:ngrdcol,:gr%nzt),sclr_idx,gr)
154, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
155, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
156, ! blockidx%x threadidx%x collapsed
154, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclr_idx,rtm_forcing(:ngrdcol,:gr%nzt),gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:))
163, Generating exit data delete(velocity_omega,t_tendency)
mpace_b_sfclyr:
232, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
233, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
232, Generating default present(rho_sfc(:),wprtp_sfc(:ngrdcol),wpthlp_sfc(:ngrdcol),ustar(:ngrdcol))
233, Generating implicit firstprivate(latent_heat_flx,sensible_heat_flx)
NVFORTRAN-W-0435-Array declared with zero size (../src/clubb_driver.F90: 450)
run_clubb:
2451, Generating copy(rtpthlp_forcing(:,:)) [if not already present]
Generating copyin(exner(:,:),gr%zm(:,:),gr) [if not already present]
Generating copy(ug(:,:),vg(:,:),t_sfc(:)) [if not already present]
Generating copyin(gr%zt(:,:)) [if not already present]
Generating copy(p_sfc(:),thlp2_forcing(:,:)) [if not already present]
Generating copyin(rho(:,:)) [if not already present]
Generating copy(upwp_sfc(:)) [if not already present]
Generating copyin(rho_zm(:,:)) [if not already present]
Generating copy(wm_zm(:,:)) [if not already present]
Generating copyin(thvm(:,:),veg_t_in_k(:)) [if not already present]
Generating copy(um_forcing(:,:),vm_forcing(:,:)) [if not already present]
Generating copyin(thlm(:,:)) [if not already present]
Generating copy(rtm(:,:)) [if not already present]
Generating copyin(um(:,:),vm(:,:)) [if not already present]
Generating copy(vpwp_sfc(:),wm_zt(:,:),wprtp_sfc(:),rtm_forcing(:,:),thlm_forcing(:,:),rtp2_forcing(:,:),wpthlp_forcing(:,:),wprtp_forcing(:,:),um_ref(:,:),vm_ref(:,:)) [if not already present]
Generating copyin(sclr_idx,p_in_pa(:,:)) [if not already present]
Generating copy(wpthlp_sfc(:)) [if not already present]
2457, Generating copy(sclrm_forcing(:,:,:),wpsclrp(:,:,:),wpsclrp_sfc(:,:)) [if not already present]
2460, Generating copy(wpedsclrp_sfc(:,:),edsclrm_forcing(:,:,:)) [if not already present]
2717, Generating copyout(lh_thl_clipped(:,:,:),x_nl_all_levs(:,:,:,:),x_mixt_comp_all_levs(:,:,:),lh_rv_clipped(:,:,:),lh_rc_clipped(:,:,:),lh_sample_point_weights(:,:,:),lh_nc_clipped(:,:,:),lh_rt_clipped(:,:,:)) [if not already present]
Generating copyin(hm_metadata) [if not already present]
2820, Generating copyout(skw_zm(:,:)) [if not already present]
Generating copyin(wp3_zm(:,:),wp2(:,:),clubb_params(:,:)) [if not already present]
prescribe_forcings:
5413, Generating enter data create(thlm_bot(:),um_bot(:),vm_bot(:),z_bot(:),exner_bot(:),rtm_bot(:),rho_bot(:),ustar(:),ubar(:))
5428, Generating implicit firstprivate(ngrdcol,nzt)
Generating NVIDIA GPU code
5429, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5430, ! blockidx%x threadidx%x collapsed
5428, Generating default present(thlm_forcing(:ngrdcol,:nzt),rtm_forcing(:ngrdcol,:nzt))
5436, Generating implicit firstprivate(nzm,ngrdcol)
Generating NVIDIA GPU code
5437, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5438, ! blockidx%x threadidx%x collapsed
5436, Generating default present(rtp2_forcing(:ngrdcol,:nzm),rtpthlp_forcing(:ngrdcol,:nzm),wpthlp_forcing(:ngrdcol,:nzm),wprtp_forcing(:ngrdcol,:nzm),thlp2_forcing(:ngrdcol,:nzm))
5467, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5468, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5467, Generating default present(thlm_forcing(:ngrdcol,nzt),rtm_forcing(:ngrdcol,nzt))
5468, Generating implicit firstprivate(nzt)
5516, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5517, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5518, ! blockidx%x threadidx%x collapsed
5516, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
5540, Generating update self(p_in_pa(:,:))
5546, Generating update device(rtm_forcing(:,:),um_ref(:,:),thlm_forcing(:,:),edsclrm_forcing(:,:,:),sclrm_forcing(:,:,:),vm_ref(:,:),wm_zt(:,:),wm_zm(:,:))
5564, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5565, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5566, ! blockidx%x threadidx%x collapsed
5564, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
5573, Generating implicit firstprivate(sclr_dim,ngrdcol)
Generating NVIDIA GPU code
5574, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5575, ! blockidx%x threadidx%x collapsed
5576, !$acc loop seq
5573, Generating default present(sclrm_forcing(:ngrdcol,:gr%nzt,:sclr_dim),gr)
5576, Loop is parallelizable
5584, Generating implicit firstprivate(ngrdcol,edsclr_dim)
Generating NVIDIA GPU code
5585, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5586, ! blockidx%x threadidx%x collapsed
5587, !$acc loop seq
5584, Generating default present(gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:edsclr_dim))
5587, Loop is parallelizable
5665, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5666, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5665, Generating default present(ustar(:ngrdcol))
5689, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5690, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5689, Generating default present(ustar(:ngrdcol))
5703, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5704, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5703, Generating default present(ustar(:ngrdcol))
5725, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5726, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5725, Generating default present(ustar(:ngrdcol))
5855, Generating update self(rho_bot(:))
5858, Generating update device(ustar(:),wpthlp_sfc(:),wprtp_sfc(:))
5916, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5917, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5916, Generating default present(wpthlp_sfc(:ngrdcol),wprtp_sfc(:ngrdcol))
5917, Generating implicit firstprivate(sens_ht,latent_ht)
5923, Generating implicit firstprivate(ngrdcol,nzm)
Generating NVIDIA GPU code
5924, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5925, ! blockidx%x threadidx%x collapsed
5923, Generating default present(wpsclrp(:ngrdcol,:nzm,sclr_idx%iisclr_thl),sclr_idx)
5925, Generating implicit firstprivate(sens_ht)
5932, Generating implicit firstprivate(ngrdcol,nzm)
Generating NVIDIA GPU code
5933, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5934, ! blockidx%x threadidx%x collapsed
5932, Generating default present(wpsclrp(:ngrdcol,:nzm,sclr_idx%iisclr_rt),sclr_idx)
5934, Generating implicit firstprivate(latent_ht)
5945, Generating update self(rho_zm(:,:),upwp_sfc(:),ustar(:),t_sfc(:),vpwp_sfc(:),wpthlp_sfc(:),wprtp_sfc(:))
5975, 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:
6080, Generating create(thlm_zm(:,:),um_zm(:,:),vm_zm(:,:),k_min(:),rtm_zm(:,:),exner_zm(:,:)) [if not already present]
6085, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6086, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6085, 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))
6105, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6106, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6113, !$acc loop seq
6105, Generating default present(gr,z_bot(:ngrdcol),gr%zt(1:ngrdcol,:))
6106, Generating implicit firstprivate(k,min_val)
6113, Loop carried scalar dependence for min_val at line 6114
Loop carried reuse of k_min prevents parallelization
6123, Generating update self(k_min(:))
6156, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6157, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6156, 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,:))
6157, Generating implicit firstprivate(k00,km1,kp2,kp1)
ar: creating /home/jenkins/workspace/clubb_BFB_multi_col_gpu_nvhpc_test/compile/../lib/libclubb_other.a
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-W-0435-Array declared with zero size (../src/G_unit_test_types/spurious_source_test.F90: 218)
NVFORTRAN-W-0435-Array declared with zero size (../src/G_unit_test_types/spurious_source_test.F90: 222)
NVFORTRAN-W-0435-Array declared with zero size (../src/G_unit_test_types/spurious_source_test.F90: 275)
NVFORTRAN-W-0435-Array declared with zero size (../src/G_unit_test_types/spurious_source_test.F90: 278)
NVFORTRAN-W-0435-Array declared with zero size (../src/G_unit_test_types/pdf_parameter_tests.F90: 413)
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.
91 : call run_clubb( ngrdcol, calls_per_out, clubb_params, namelist_filename, l_stdout, l_output_multi_col )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_standalone.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: Line has exceeded 100 characters.
165 : 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.
166 : 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.
200 : 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.
201 : 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: Line has exceeded 100 characters.
45 : subroutine run_clubb ( ngrdcol, calls_per_out, clubb_params, runfile, l_stdout, l_output_multi_col, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1735 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1736 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2217 : ! Initialize statistics output, note that this will allocate/initialize stats variables for all
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2238 : ! Initialize statistics output, note that this will allocate/initialize stats variables for all
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2412 : wp2_zt = max( zm2zt( gr%nzm, gr%nzt, ngrdcol, gr, wp2 ), w_tol_sqd ) ! Positive definite quantity
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2428 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2451 : !$acc data copyin( sclr_idx, gr, gr%zt, gr%zm, um, vm, thlm, p_in_Pa, exner, rho, thvm, rho_zm, veg_T_in_K ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2623 : 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.
2624 : Nc_in_cloud, cloud_frac, Kh_zm, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2625 : ice_supersat_frac, hydromet, wphydrometp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2626 : corr_array_n_cloud, corr_array_n_below, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2627 : hm_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2628 : pdf_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2629 : clubb_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2630 : clubb_config_flags%iiPDF_type, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2631 : l_use_precip_frac, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2632 : clubb_config_flags%l_predict_upwp_vpwp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2633 : clubb_config_flags%l_diagnose_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2634 : clubb_config_flags%l_calc_w_corr, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2635 : clubb_config_flags%l_const_Nc_in_cloud, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2636 : clubb_config_flags%l_fix_w_chi_eta_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2637 : stats_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2638 : stats_zt, stats_zm, stats_sfc, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2644 : precip_fracs, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2645 : hydromet_pdf_params ) ! Optional(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2665 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2666 : rtphmp_zt(i,:,:), thlphmp_zt(i,:,:), wp2hmp(i,:,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2777 : wp2_zt = max( zm2zt( gr%nzm, gr%nzt, ngrdcol, gr, wp2 ), w_tol_sqd ) ! Positive definite quantity
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2783 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2784 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2785 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2801 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2802 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2803 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2804 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2805 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2806 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2807 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2808 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2809 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2847 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2848 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), thlm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2905 : call stat_update_var( stats_metadata%iwprtp_mc, wprtp_mc, stats_zm(i) ) ! m*(kg/kg)/s^2
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2929 : time_current, time_initial, rho(i,:), rho_zm(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2930 : p_in_Pa(i,:), exner(i,:), cloud_frac(i,:), ice_supersat_frac(i,:), X_nl_all_levs(i,:,:,:), & !In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2932 : lh_sample_point_weights(i,:,:), hydromet(i,:,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2933 : stats_metadata, stats_sfc(i), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2934 : radht(i,:), Frad(i,:), Frad_SW_up(i,:), Frad_LW_up(i,:), Frad_SW_down(i,:), Frad_LW_down(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2961 : 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.
2990 : 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.
5413 : !$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.
5546 : !$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.
5640 : !gr%zt(1,2), 299.8_core_rknd, 101540._core_rknd, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5948 : 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.
5951 : 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.
5954 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5957 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5960 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5963 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5966 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5969 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5975 : !$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.
6177 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6181 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6185 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6186 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6189 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6190 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6193 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6194 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6863 : hm_metadata, stats_metadata, stats_sfc, & ! Intent(in)
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: 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.
1277 : status = nf90_def_var( ncid_zm, "columns", NF90_DOUBLE, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1278 : status = nf90_def_var( ncid_zm, "altitude", NF90_DOUBLE, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1279 : status = nf90_def_var( ncid_zm, "time", NF90_DOUBLE, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1336 : status = nf90_def_var( ncid_zt, "columns", NF90_DOUBLE, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1337 : status = nf90_def_var( ncid_zt, "altitude", NF90_DOUBLE, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1338 : status = nf90_def_var( ncid_zt, "time", NF90_DOUBLE, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1390 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1391 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1393 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1460 : !!$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.
718 : ! 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.
1548 : !$acc data copyin( C_uu_shr_zeros, C_uu_shr_plus_one, C11_Skw_fnc_zeros, C11_Skw_fnc_plus_one ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1571 : lhs_wp3_pr2_term ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2677 : !$acc data copyin( C_uu_buoy_zeros, C_uu_buoy_plus_one, C11_Skw_fnc_zeros, C11_Skw_fnc_plus_one ) &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_wp2_wp3_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4228 : ( any(abs(params(:,iC1) - params(:,iC14)) > abs(params(:,iC1) + params(:,iC14)) / 2 * eps) .or. &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_clubb_core_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1916 : rhs_bp ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1921 : call wpxp_terms_bp_pr3_rhs( nzm, ngrdcol, C7_Skw_fnc_plus_one, thv_ds_zm, xpthvp, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1922 : rhs_pr3 ) ! intent(out)
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.
709 : call stats_zero( stats_zt(i)%ii, stats_zt(i)%jj, stats_zt(i)%kk, stats_zt(i)%num_output_fields, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
710 : stats_zt(i)%accum_field_values, stats_zt(i)%accum_num_samples, stats_zt(i)%l_in_update ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
738 : call open_netcdf_for_writing( nlat, nlon, fdir, fname, 1, stats_zt(1)%kk, stats_zt(1)%z, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
817 : allocate( stats_lh_zt(i)%l_in_update( stats_lh_zt(i)%ii, stats_lh_zt(i)%jj, stats_lh_zt(i)%kk, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1148 : call stats_zero( stats_zm(i)%ii, stats_zm(i)%jj, stats_zm(i)%kk, stats_zm(i)%num_output_fields, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1149 : stats_zm(i)%accum_field_values, stats_zm(i)%accum_num_samples, stats_zm(i)%l_in_update ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1174 : call open_netcdf_for_writing( nlat, nlon, fdir, fname, 1, stats_zm(1)%kk, stats_zm(1)%z, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1238 : stats_rad_zt(i)%accum_num_samples, stats_rad_zt(i)%l_in_update )! intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1325 : stats_rad_zm(i)%accum_num_samples, stats_rad_zm(i)%l_in_update ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1415 : call stats_zero( stats_sfc(i)%ii, stats_sfc(i)%jj, stats_sfc(i)%kk, stats_sfc(i)%num_output_fields, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1416 : stats_sfc(i)%accum_field_values, stats_sfc(i)%accum_num_samples, stats_sfc(i)%l_in_update ) ! out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1440 : call open_netcdf_for_writing( nlat, nlon, fdir, fname, 1, stats_sfc(1)%kk, stats_sfc(1)%z, & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
144 : else if ( gr%zt(i,k) > z_inversion(i) .and. gr%zt(i,k) <= z_inversion(i)+300._core_rknd ) then
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
172 : else if ( gr%zt(i,k) > z_inversion(i) .and. gr%zt(i,k) <= z_inversion(i)+300._core_rknd ) then
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
227 : 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.
228 : 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/atex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
132 : ! sat_mixrat_liq( p_sfc, T_in_K ) * 0.8_core_rknd )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/cloud_feedback.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.
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.
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.
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 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 has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
.......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................transform_uniform_samples_to_pdf:
111, Generating create(std_normal(:,:,:,:)) [if not already present]
125, Generating implicit firstprivate(ngrdcol,num_samples,pdf_dim,nzt)
Generating NVIDIA GPU code
126, !$acc loop gang, vector(128) collapse(4) ! blockidx%x threadidx%x
127, ! blockidx%x threadidx%x collapsed
128, ! blockidx%x threadidx%x collapsed
129, ! blockidx%x threadidx%x collapsed
125, Generating default present(x_nl_all_levs(:ngrdcol,:num_samples,:nzt,:),hm_metadata)
137, Generating implicit firstprivate(ngrdcol,num_samples,pdf_dim,nzt)
Generating NVIDIA GPU code
138, !$acc loop gang, vector(128) collapse(4) ! blockidx%x threadidx%x
139, ! blockidx%x threadidx%x collapsed
140, ! blockidx%x threadidx%x collapsed
141, ! blockidx%x threadidx%x collapsed
137, Generating default present(hm_metadata,l_in_precip_all_levs(:ngrdcol,:num_samples,:nzt),x_nl_all_levs(:ngrdcol,:num_samples,:nzt,hm_metadata%iipdf_ncn+1:pdf_dim))
162, Generating implicit firstprivate(ngrdcol,nzt,num_samples)
Generating NVIDIA GPU code
163, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
164, ! blockidx%x threadidx%x collapsed
165, ! blockidx%x threadidx%x collapsed
162, Generating default present(x_nl_all_levs(:ngrdcol,:num_samples,:nzt,hm_metadata%iipdf_chi),hm_metadata,cloud_frac(:ngrdcol,:num_samples,:nzt))
cdfnorminv:
256, Generating implicit firstprivate(pdf_dim,nzt,num_samples,ngrdcol)
Generating NVIDIA GPU code
257, !$acc loop gang, vector(128) collapse(4) ! blockidx%x threadidx%x
258, ! blockidx%x threadidx%x collapsed
259, ! blockidx%x threadidx%x collapsed
260, ! blockidx%x threadidx%x collapsed
256, Generating implicit copy(std_normal(:pdf_dim,:ngrdcol,:nzt,:num_samples)) [if not already present]
Generating implicit copyin(x_u_all_levs(:ngrdcol,:num_samples,:nzt,:pdf_dim)) [if not already present]
260, Generating implicit firstprivate(x,w)
multiply_cholesky:
546, Generating copyin(mu2(:,:,:),sigma_cholesky1(:,:,:,:),sigma_cholesky2(:,:,:,:),mu1(:,:,:)) [if not already present]
548, Generating implicit firstprivate(num_samples,ngrdcol,pdf_dim,nzt)
Generating NVIDIA GPU code
549, !$acc loop gang, vector(128) collapse(4) ! blockidx%x threadidx%x
550, ! blockidx%x threadidx%x collapsed
551, ! blockidx%x threadidx%x collapsed
552, ! blockidx%x threadidx%x collapsed
562, !$acc loop seq
548, Generating default present(x_nl_all_levs(:ngrdcol,:num_samples,:nzt,:pdf_dim),x_mixt_comp_all_levs(:ngrdcol,:num_samples,:nzt),std_normal(:,:ngrdcol,:nzt,:num_samples))
552, Generating implicit firstprivate(j,x_nl_k_sample_i_tmp,l_first_comp)
562, Loop carried scalar dependence for x_nl_k_sample_i_tmp at line 565,568
Scalar last value needed after loop for x_nl_k_sample_i_tmp at line 573
chi_eta_2_rtthl:
651, Generating copyin(mu_chi_2(:,:),rt_1(:,:),rt_2(:,:),thl_2(:,:),thl_1(:,:),chi(:,:,:),crt_1(:,:),crt_2(:,:),cthl_1(:,:),eta(:,:,:),mu_chi_1(:,:),cthl_2(:,:)) [if not already present]
655, Generating implicit firstprivate(nzt,num_samples,ngrdcol)
Generating NVIDIA GPU code
656, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
657, ! blockidx%x threadidx%x collapsed
658, ! blockidx%x threadidx%x collapsed
655, Generating default present(lh_rt(:ngrdcol,:num_samples,:nzt),x_mixt_comp_all_levs(:ngrdcol,:num_samples,:nzt),lh_thl(:ngrdcol,:num_samples,:nzt))
658, Generating implicit firstprivate(lh_dev_thl_lim)
generate_silhs_sample:
295, Generating copyin(k_lh_start(:)) [if not already present]
Generating create(rand_pool(:,:,:,:),x_u_all_levs(:,:,:,:)) [if not already present]
Generating copyin(x_vert_corr(:,:)) [if not already present]
323, Generating create(cloud_frac(:,:,:),l_in_precip(:,:,:)) [if not already present]
Generating copyin(pdf_params%mixt_frac(:,:),pdf_params%cloud_frac_2(:,:),pdf_params,pdf_params%cloud_frac_1(:,:),precip_fracs,precip_fracs%precip_frac_2(:,:),precip_fracs%precip_frac_1(:,:)) [if not already present]
329, Generating implicit firstprivate(ngrdcol,nzt,num_samples)
Generating NVIDIA GPU code
330, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
331, ! blockidx%x threadidx%x collapsed
332, ! blockidx%x threadidx%x collapsed
329, Generating default present(x_mixt_comp_all_levs(:ngrdcol,:num_samples,:nzt))
332, Generating implicit firstprivate(pdf_dim)
388, Generating update self(lh_sample_point_weights(:,:,:),l_in_precip(:,:,:),x_u_all_levs(:,:,:,:),x_mixt_comp_all_levs(:,:,:))
425, Generating update self(x_mixt_comp_all_levs(:,:,:),x_u_all_levs(:,:,:,:),x_nl_all_levs(:,:,:,:))
generate_all_uniform_samples:
718, Generating implicit firstprivate(d_uniform_extra,ngrdcol,num_samples,pdf_dim,nzt)
Generating NVIDIA GPU code
719, !$acc loop gang, vector(128) collapse(4) ! blockidx%x threadidx%x
720, ! blockidx%x threadidx%x collapsed
721, ! blockidx%x threadidx%x collapsed
722, ! blockidx%x threadidx%x collapsed
718, Generating default present(x_u_all_levs(:ngrdcol,:num_samples,:nzt,:d_uniform_extra+pdf_dim),rand_pool(:ngrdcol,:num_samples,:nzt,:d_uniform_extra+pdf_dim))
731, Generating implicit firstprivate(ngrdcol,num_samples,nzt)
Generating NVIDIA GPU code
732, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
733, ! blockidx%x threadidx%x collapsed
734, ! blockidx%x threadidx%x collapsed
731, Generating default present(lh_sample_point_weights(:ngrdcol,:num_samples,:nzt))
814, Generating implicit firstprivate(d_uniform_extra,ngrdcol,num_samples,pdf_dim,nzt)
Generating NVIDIA GPU code
815, !$acc loop gang, vector(128) collapse(4) ! blockidx%x threadidx%x
816, ! blockidx%x threadidx%x collapsed
817, ! blockidx%x threadidx%x collapsed
818, ! blockidx%x threadidx%x collapsed
814, Generating default present(x_u_all_levs(:ngrdcol,:num_samples,:nzt,:d_uniform_extra+pdf_dim),rand_pool(:ngrdcol,:num_samples,:nzt,:d_uniform_extra+pdf_dim))
827, Generating implicit firstprivate(ngrdcol,nzt,num_samples)
Generating NVIDIA GPU code
828, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
829, ! blockidx%x threadidx%x collapsed
830, ! blockidx%x threadidx%x collapsed
827, Generating default present(lh_sample_point_weights(:ngrdcol,:num_samples,:nzt))
clip_transform_silhs_output:
1122, Generating implicit firstprivate(ngrdcol,num_samples,nzt)
Generating NVIDIA GPU code
1123, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
1124, ! blockidx%x threadidx%x collapsed
1125, ! blockidx%x threadidx%x collapsed
1122, Generating default present(lh_rc_clipped(:ngrdcol,:num_samples,:nzt),lh_nc_clipped(:ngrdcol,:num_samples,:nzt),lh_rt_clipped(:ngrdcol,:num_samples,:nzt),x_nl_all_levs(:ngrdcol,:num_samples,:nzt,:),lh_rv_clipped(:ngrdcol,:num_samples,:nzt),hm_metadata)
1125, Generating implicit firstprivate(l_use_ncn_to_nc)
compute_arb_overlap:
1900, Generating implicit firstprivate(d_uniform_extra,ngrdcol,pdf_dim,num_samples)
Generating NVIDIA GPU code
1901, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
1902, ! blockidx%x threadidx%x collapsed
1903, ! blockidx%x threadidx%x collapsed
1908, !$acc loop seq
1900, Generating default present(x_u_all_levs(:ngrdcol,:num_samples,:,:d_uniform_extra+pdf_dim),vert_corr(:ngrdcol,:),k_lh_start(:ngrdcol),rand_pool(:ngrdcol,:num_samples,:,:d_uniform_extra+pdf_dim))
1903, Generating implicit firstprivate(k,unbounded_point,nzt,k_lh_start_i)
1908, Loop carried scalar dependence for unbounded_point at line 1911
Generating implicit firstprivate(half_width,offset,min_val)
Loop carried scalar dependence for unbounded_point at line 1911
1934, Generating implicit firstprivate(d_uniform_extra,ngrdcol,pdf_dim,num_samples)
Generating NVIDIA GPU code
1935, !$acc loop gang, vector(128) collapse(3) ! blockidx%x threadidx%x
1936, ! blockidx%x threadidx%x collapsed
1937, ! blockidx%x threadidx%x collapsed
1942, !$acc loop seq
1934, Generating default present(x_u_all_levs(:ngrdcol,:num_samples,:,:d_uniform_extra+pdf_dim),vert_corr(:ngrdcol,:),k_lh_start(:ngrdcol),rand_pool(:ngrdcol,:num_samples,:,:d_uniform_extra+pdf_dim))
1937, Generating implicit firstprivate(k,unbounded_point,k_lh_start_i)
1942, Loop carried scalar dependence for unbounded_point at line 1945
Generating implicit firstprivate(half_width,offset,min_val)
Loop carried scalar dependence for unbounded_point at line 1945
atex_tndcy:
102, Generating enter data create(z_inversion(:),z_lev(:))
108, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
109, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
108, Generating default present(rtm(:ngrdcol,:),z_lev(:ngrdcol),gr)
111, Complex loop carried dependence of z_lev prevents parallelization
Loop carried reuse of z_lev prevents parallelization
118, Generating update self(z_lev(:),rtm(:,:))
132, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
133, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
132, Generating default present(z_lev(:ngrdcol),z_inversion(:ngrdcol),gr,gr%zt(1:ngrdcol,:))
138, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
139, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
140, ! blockidx%x threadidx%x collapsed
138, Generating default present(z_inversion(:ngrdcol),wm_zt(:ngrdcol,:gr%nzt),gr,gr%zt(1:ngrdcol,1:gr%nzt))
157, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
158, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
157, Generating default present(wm_zm(:ngrdcol,:),gr)
164, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
165, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
166, ! blockidx%x threadidx%x collapsed
164, Generating default present(rtm_forcing(:ngrdcol,:gr%nzt),gr,z_inversion(:ngrdcol),thlm_forcing(:ngrdcol,:gr%nzt),gr%zt(1:ngrdcol,1:gr%nzt))
194, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
195, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
196, ! blockidx%x threadidx%x collapsed
194, Generating default present(wm_zt(:ngrdcol,:gr%nzt),thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
203, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
204, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
205, ! blockidx%x threadidx%x collapsed
203, Generating default present(wm_zm(:ngrdcol,:gr%nzm),gr)
213, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
214, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
215, ! blockidx%x threadidx%x collapsed
213, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclrm_forcing(:ngrdcol,:gr%nzt,:),rtm_forcing(:ngrdcol,:gr%nzt),sclr_idx,gr)
224, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
225, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
226, ! blockidx%x threadidx%x collapsed
224, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),sclr_idx,rtm_forcing(:ngrdcol,:gr%nzt),gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:))
233, Generating exit data delete(z_lev(:),z_inversion(:))
atex_sfclyr:
299, Generating enter data create(adjustment(:),c_10(:))
323, Generating exit data delete(c_10(:),adjustment(:))
NVFORTRAN-W-0435-Array declared with zero size (../src/clubb_driver.F90: 450)
run_clubb:
2449, Generating copy(rtpthlp_forcing(:,:)) [if not already present]
Generating copyin(exner(:,:),gr%zm(:,:),gr) [if not already present]
Generating copy(ug(:,:),vg(:,:),t_sfc(:)) [if not already present]
Generating copyin(gr%zt(:,:)) [if not already present]
Generating copy(p_sfc(:),thlp2_forcing(:,:)) [if not already present]
Generating copyin(rho(:,:)) [if not already present]
Generating copy(upwp_sfc(:)) [if not already present]
Generating copyin(rho_zm(:,:)) [if not already present]
Generating copy(wm_zm(:,:)) [if not already present]
Generating copyin(thvm(:,:),veg_t_in_k(:)) [if not already present]
Generating copy(um_forcing(:,:),vm_forcing(:,:)) [if not already present]
Generating copyin(thlm(:,:)) [if not already present]
Generating copy(rtm(:,:)) [if not already present]
Generating copyin(um(:,:),vm(:,:)) [if not already present]
Generating copy(vpwp_sfc(:),wm_zt(:,:),wprtp_sfc(:),rtm_forcing(:,:),thlm_forcing(:,:),rtp2_forcing(:,:),wpthlp_forcing(:,:),wprtp_forcing(:,:),um_ref(:,:),vm_ref(:,:)) [if not already present]
Generating copyin(sclr_idx,p_in_pa(:,:)) [if not already present]
Generating copy(wpthlp_sfc(:)) [if not already present]
2455, Generating copy(sclrm_forcing(:,:,:),wpsclrp(:,:,:),wpsclrp_sfc(:,:)) [if not already present]
2458, Generating copy(wpedsclrp_sfc(:,:),edsclrm_forcing(:,:,:)) [if not already present]
2716, Generating copyout(lh_thl_clipped(:,:,:),x_nl_all_levs(:,:,:,:),x_mixt_comp_all_levs(:,:,:),lh_rv_clipped(:,:,:),lh_rc_clipped(:,:,:),lh_sample_point_weights(:,:,:),lh_nc_clipped(:,:,:),lh_rt_clipped(:,:,:)) [if not already present]
Generating copyin(hm_metadata) [if not already present]
2820, Generating copyout(skw_zm(:,:)) [if not already present]
Generating copyin(wp3_zm(:,:),wp2(:,:),clubb_params(:,:)) [if not already present]
prescribe_forcings:
5413, Generating enter data create(thlm_bot(:),um_bot(:),vm_bot(:),z_bot(:),exner_bot(:),rtm_bot(:),rho_bot(:),ustar(:),ubar(:))
5428, Generating implicit firstprivate(ngrdcol,nzt)
Generating NVIDIA GPU code
5429, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5430, ! blockidx%x threadidx%x collapsed
5428, Generating default present(thlm_forcing(:ngrdcol,:nzt),rtm_forcing(:ngrdcol,:nzt))
5436, Generating implicit firstprivate(nzm,ngrdcol)
Generating NVIDIA GPU code
5437, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5438, ! blockidx%x threadidx%x collapsed
5436, Generating default present(rtp2_forcing(:ngrdcol,:nzm),rtpthlp_forcing(:ngrdcol,:nzm),wpthlp_forcing(:ngrdcol,:nzm),wprtp_forcing(:ngrdcol,:nzm),thlp2_forcing(:ngrdcol,:nzm))
5467, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5468, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5467, Generating default present(thlm_forcing(:ngrdcol,nzt),rtm_forcing(:ngrdcol,nzt))
5468, Generating implicit firstprivate(nzt)
5516, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5517, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5518, ! blockidx%x threadidx%x collapsed
5516, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
5540, Generating update self(p_in_pa(:,:))
5546, Generating update device(rtm_forcing(:,:),um_ref(:,:),thlm_forcing(:,:),edsclrm_forcing(:,:,:),sclrm_forcing(:,:,:),vm_ref(:,:),wm_zt(:,:),wm_zm(:,:))
5564, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5565, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5566, ! blockidx%x threadidx%x collapsed
5564, Generating default present(thlm_forcing(:ngrdcol,:gr%nzt),rtm_forcing(:ngrdcol,:gr%nzt),gr)
5573, Generating implicit firstprivate(sclr_dim,ngrdcol)
Generating NVIDIA GPU code
5574, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5575, ! blockidx%x threadidx%x collapsed
5576, !$acc loop seq
5573, Generating default present(sclrm_forcing(:ngrdcol,:gr%nzt,:sclr_dim),gr)
5576, Loop is parallelizable
5584, Generating implicit firstprivate(ngrdcol,edsclr_dim)
Generating NVIDIA GPU code
5585, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5586, ! blockidx%x threadidx%x collapsed
5587, !$acc loop seq
5584, Generating default present(gr,edsclrm_forcing(:ngrdcol,:gr%nzt,:edsclr_dim))
5587, Loop is parallelizable
5665, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5666, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5665, Generating default present(ustar(:ngrdcol))
5689, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5690, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5689, Generating default present(ustar(:ngrdcol))
5703, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5704, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5703, Generating default present(ustar(:ngrdcol))
5725, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5726, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5725, Generating default present(ustar(:ngrdcol))
5855, Generating update self(rho_bot(:))
5858, Generating update device(ustar(:),wpthlp_sfc(:),wprtp_sfc(:))
5916, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
5917, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
5916, Generating default present(wpthlp_sfc(:ngrdcol),wprtp_sfc(:ngrdcol))
5917, Generating implicit firstprivate(sens_ht,latent_ht)
5923, Generating implicit firstprivate(ngrdcol,nzm)
Generating NVIDIA GPU code
5924, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5925, ! blockidx%x threadidx%x collapsed
5923, Generating default present(wpsclrp(:ngrdcol,:nzm,sclr_idx%iisclr_thl),sclr_idx)
5925, Generating implicit firstprivate(sens_ht)
5932, Generating implicit firstprivate(ngrdcol,nzm)
Generating NVIDIA GPU code
5933, !$acc loop gang, vector(128) collapse(2) ! blockidx%x threadidx%x
5934, ! blockidx%x threadidx%x collapsed
5932, Generating default present(wpsclrp(:ngrdcol,:nzm,sclr_idx%iisclr_rt),sclr_idx)
5934, Generating implicit firstprivate(latent_ht)
5945, Generating update self(rho_zm(:,:),upwp_sfc(:),ustar(:),t_sfc(:),vpwp_sfc(:),wpthlp_sfc(:),wprtp_sfc(:))
5975, 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:
6080, Generating create(thlm_zm(:,:),um_zm(:,:),vm_zm(:,:),k_min(:),rtm_zm(:,:),exner_zm(:,:)) [if not already present]
6085, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6086, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6085, 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))
6105, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6106, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6113, !$acc loop seq
6105, Generating default present(gr,z_bot(:ngrdcol),gr%zt(1:ngrdcol,:))
6106, Generating implicit firstprivate(k,min_val)
6113, Loop carried scalar dependence for min_val at line 6114
Loop carried reuse of k_min prevents parallelization
6123, Generating update self(k_min(:))
6156, Generating implicit firstprivate(ngrdcol)
Generating NVIDIA GPU code
6157, !$acc loop gang, vector(128) ! blockidx%x threadidx%x
6156, 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,:))
6157, 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.
91 : call run_clubb( ngrdcol, calls_per_out, clubb_params, namelist_filename, l_stdout, l_output_multi_col )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_standalone.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
165 : 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.
166 : 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.
200 : 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.
201 : stats_sfc(i) ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/soil_vegetation.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: 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: Line has exceeded 100 characters.
45 : subroutine run_clubb ( ngrdcol, calls_per_out, clubb_params, runfile, l_stdout, l_output_multi_col, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1733 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1734 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2215 : ! Initialize statistics output, note that this will allocate/initialize stats variables for all
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2236 : ! Initialize statistics output, note that this will allocate/initialize stats variables for all
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2410 : wp2_zt = max( zm2zt( gr%nzm, gr%nzt, ngrdcol, gr, wp2 ), w_tol_sqd ) ! Positive definite quantity
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2426 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2449 : !$acc data copyin( sclr_idx, gr, gr%zt, gr%zm, um, vm, thlm, p_in_Pa, exner, rho, thvm, rho_zm, veg_T_in_K ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2622 : 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.
2623 : Nc_in_cloud, cloud_frac, Kh_zm, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2624 : ice_supersat_frac, hydromet, wphydrometp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2625 : corr_array_n_cloud, corr_array_n_below, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2626 : hm_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2627 : pdf_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2628 : clubb_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2629 : clubb_config_flags%iiPDF_type, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2630 : l_use_precip_frac, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2631 : clubb_config_flags%l_predict_upwp_vpwp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2632 : clubb_config_flags%l_diagnose_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2633 : clubb_config_flags%l_calc_w_corr, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2634 : clubb_config_flags%l_const_Nc_in_cloud, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2635 : clubb_config_flags%l_fix_w_chi_eta_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2636 : stats_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2637 : stats_zt, stats_zm, stats_sfc, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2643 : precip_fracs, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2644 : hydromet_pdf_params ) ! Optional(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2664 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2665 : rtphmp_zt(i,:,:), thlphmp_zt(i,:,:), wp2hmp(i,:,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2777 : wp2_zt = max( zm2zt( gr%nzm, gr%nzt, ngrdcol, gr, wp2 ), w_tol_sqd ) ! Positive definite quantity
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2783 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2784 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2785 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2801 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2802 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2803 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2804 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2805 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2806 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2807 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2808 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2809 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2847 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2848 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), thlm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2905 : call stat_update_var( stats_metadata%iwprtp_mc, wprtp_mc, stats_zm(i) ) ! m*(kg/kg)/s^2
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2929 : time_current, time_initial, rho(i,:), rho_zm(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2930 : p_in_Pa(i,:), exner(i,:), cloud_frac(i,:), ice_supersat_frac(i,:), X_nl_all_levs(i,:,:,:), & !In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2932 : lh_sample_point_weights(i,:,:), hydromet(i,:,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2933 : stats_metadata, stats_sfc(i), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2934 : radht(i,:), Frad(i,:), Frad_SW_up(i,:), Frad_LW_up(i,:), Frad_SW_down(i,:), Frad_LW_down(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2961 : call update_radiation_variables( gr%nzm, gr%nzt, radht, Frad_SW_up(i,:), Frad_LW_up(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2990 : 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.
5413 : !$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.
5546 : !$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.
5640 : !gr%zt(1,2), 299.8_core_rknd, 101540._core_rknd, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5948 : 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.
5951 : 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.
5954 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5957 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5960 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5963 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5966 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5969 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
5975 : !$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.
6177 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6181 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6185 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6186 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6189 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6190 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6193 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6194 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6863 : hm_metadata, stats_metadata, stats_sfc, & ! Intent(in)
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: 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.
1277 : status = nf90_def_var( ncid_zm, "columns", NF90_DOUBLE, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1278 : status = nf90_def_var( ncid_zm, "altitude", NF90_DOUBLE, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1279 : status = nf90_def_var( ncid_zm, "time", NF90_DOUBLE, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1336 : status = nf90_def_var( ncid_zt, "columns", NF90_DOUBLE, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1337 : status = nf90_def_var( ncid_zt, "altitude", NF90_DOUBLE, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1338 : status = nf90_def_var( ncid_zt, "time", NF90_DOUBLE, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1390 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1391 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1393 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1460 : !!$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.
718 : ! 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.
1548 : !$acc data copyin( C_uu_shr_zeros, C_uu_shr_plus_one, C11_Skw_fnc_zeros, C11_Skw_fnc_plus_one ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1571 : lhs_wp3_pr2_term ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2677 : !$acc data copyin( C_uu_buoy_zeros, C_uu_buoy_plus_one, C11_Skw_fnc_zeros, C11_Skw_fnc_plus_one ) &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_wp2_wp3_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4228 : ( any(abs(params(:,iC1) - params(:,iC14)) > abs(params(:,iC1) + params(:,iC14)) / 2 * eps) .or. &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_clubb_core_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1916 : rhs_bp ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1921 : call wpxp_terms_bp_pr3_rhs( nzm, ngrdcol, C7_Skw_fnc_plus_one, thv_ds_zm, xpthvp, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1922 : rhs_pr3 ) ! intent(out)
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.
709 : call stats_zero( stats_zt(i)%ii, stats_zt(i)%jj, stats_zt(i)%kk, stats_zt(i)%num_output_fields, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
710 : stats_zt(i)%accum_field_values, stats_zt(i)%accum_num_samples, stats_zt(i)%l_in_update ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
738 : call open_netcdf_for_writing( nlat, nlon, fdir, fname, 1, stats_zt(1)%kk, stats_zt(1)%z, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
817 : allocate( stats_lh_zt(i)%l_in_update( stats_lh_zt(i)%ii, stats_lh_zt(i)%jj, stats_lh_zt(i)%kk, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1148 : call stats_zero( stats_zm(i)%ii, stats_zm(i)%jj, stats_zm(i)%kk, stats_zm(i)%num_output_fields, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1149 : stats_zm(i)%accum_field_values, stats_zm(i)%accum_num_samples, stats_zm(i)%l_in_update ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1174 : call open_netcdf_for_writing( nlat, nlon, fdir, fname, 1, stats_zm(1)%kk, stats_zm(1)%z, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1238 : stats_rad_zt(i)%accum_num_samples, stats_rad_zt(i)%l_in_update )! intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1325 : stats_rad_zm(i)%accum_num_samples, stats_rad_zm(i)%l_in_update ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1415 : call stats_zero( stats_sfc(i)%ii, stats_sfc(i)%jj, stats_sfc(i)%kk, stats_sfc(i)%num_output_fields, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1416 : stats_sfc(i)%accum_field_values, stats_sfc(i)%accum_num_samples, stats_sfc(i)%l_in_update ) ! out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1440 : call open_netcdf_for_writing( nlat, nlon, fdir, fname, 1, stats_sfc(1)%kk, stats_sfc(1)%z, & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
144 : else if ( gr%zt(i,k) > z_inversion(i) .and. gr%zt(i,k) <= z_inversion(i)+300._core_rknd ) then
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
172 : else if ( gr%zt(i,k) > z_inversion(i) .and. gr%zt(i,k) <= z_inversion(i)+300._core_rknd ) then
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
227 : 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.
228 : 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/atex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
132 : ! sat_mixrat_liq( p_sfc, T_in_K ) * 0.8_core_rknd )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/cloud_feedback.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.
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.
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.
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 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 has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
Directory 1 is c13dc43f7deeb933c47f48557f841b5d6d4cd621
Directory 2 is c365e917824d4ca09c1a28b5c1f782bfd1773562
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<
>The linux diff detected differences in arm_multi_col_zm.nc<
>>Differences above threshold were detected in the common fields in file arm_multi_col_zm.nc<<
>The linux diff detected differences in arm_multi_col_zt.nc<
>>Differences above threshold were detected in the common fields in file arm_multi_col_zt.nc<<
>>>Differences in common variables detected 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###
>The linux diff detected differences in atex_zm.nc<
>>Differences above threshold were detected in the common fields in file atex_zm.nc<<
>The linux diff detected differences in atex_zt.nc<
>>Differences above threshold were detected in the common fields in file atex_zt.nc<<
>The linux diff detected differences in atex_sfc.nc<
>>Differences above threshold were detected in the common fields in file atex_sfc.nc<<
>The linux diff detected differences in atex_multi_col_zm.nc<
>>Differences above threshold were detected in the common fields in file atex_multi_col_zm.nc<<
>The linux diff detected differences in atex_multi_col_zt.nc<
>>Differences above threshold were detected in the common fields in file atex_multi_col_zt.nc<<
>>>Differences in common variables detected for case atex<<<
**********************************************************************************************************
###DIFFING bomex netCDF (*.nc) files###
>The linux diff detected differences in bomex_zm.nc<
>>Differences above threshold were detected in the common fields in file bomex_zm.nc<<
>The linux diff detected differences in bomex_zt.nc<
>>Differences above threshold were detected in the common fields in file bomex_zt.nc<<
>The linux diff detected differences in bomex_sfc.nc<
>>Differences above threshold were detected in the common fields in file bomex_sfc.nc<<
>The linux diff detected differences in bomex_multi_col_zm.nc<
>>Differences above threshold were detected in the common fields in file bomex_multi_col_zm.nc<<
>The linux diff detected differences in bomex_multi_col_zt.nc<
>>Differences above threshold were detected in the common fields in file bomex_multi_col_zt.nc<<
>>>Differences in common variables detected for case bomex<<<
**********************************************************************************************************
###DIFFING dycoms2_rf01 netCDF (*.nc) files###
>The linux diff detected differences in dycoms2_rf01_zm.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf01_zm.nc<<
>The linux diff detected differences in dycoms2_rf01_zt.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf01_zt.nc<<
>The linux diff detected differences in dycoms2_rf01_sfc.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf01_sfc.nc<<
>The linux diff detected differences in dycoms2_rf01_multi_col_zm.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf01_multi_col_zm.nc<<
>The linux diff detected differences in dycoms2_rf01_multi_col_zt.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf01_multi_col_zt.nc<<
>>>Differences in common variables detected for case dycoms2_rf01<<<
**********************************************************************************************************
###DIFFING dycoms2_rf02_ds netCDF (*.nc) files###
>The linux diff detected differences in dycoms2_rf02_ds_zm.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf02_ds_zm.nc<<
>The linux diff detected differences in dycoms2_rf02_ds_zt.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf02_ds_zt.nc<<
>The linux diff detected differences in dycoms2_rf02_ds_sfc.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf02_ds_sfc.nc<<
>The linux diff detected differences in dycoms2_rf02_ds_multi_col_zm.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf02_ds_multi_col_zm.nc<<
>The linux diff detected differences in dycoms2_rf02_ds_multi_col_zt.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf02_ds_multi_col_zt.nc<<
>>>Differences in common variables detected 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<
>The linux diff detected differences in gabls3_night_multi_col_zm.nc<
>>Differences above threshold were detected in the common fields in file gabls3_night_multi_col_zm.nc<<
>The linux diff detected differences in gabls3_night_multi_col_zt.nc<
>>Differences above threshold were detected in the common fields in file gabls3_night_multi_col_zt.nc<<
>>>Differences in common variables detected 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###
>The linux diff detected differences in rico_zm.nc<
>>Differences above threshold were detected in the common fields in file rico_zm.nc<<
>The linux diff detected differences in rico_zt.nc<
>>Differences above threshold were detected in the common fields in file rico_zt.nc<<
>No differences detected by the linux diff in rico_sfc.nc<
>The linux diff detected differences in rico_multi_col_zm.nc<
>>Differences above threshold were detected in the common fields in file rico_multi_col_zm.nc<<
>The linux diff detected differences in rico_multi_col_zt.nc<
>>Differences above threshold were detected in the common fields in file rico_multi_col_zt.nc<<
>>>Differences in common variables detected 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<
>The linux diff detected differences in wangara_multi_col_zm.nc<
>>Differences above threshold were detected in the common fields in file wangara_multi_col_zm.nc<<
>The linux diff detected differences in wangara_multi_col_zt.nc<
>>Differences above threshold were detected in the common fields in file wangara_multi_col_zt.nc<<
>>>Differences in common variables detected for case wangara<<<
**********************************************************************************************************
SUMMARY:
There were differences detected in the common variables in netCDF (*.nc) 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: none
Using branch: master
Making list from 'UnresolvedCommits':
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 -param_file input/tunable_parameters/tunable_parameters.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: c13dc43f7deeb933c47f48557f841b5d6d4cd621
Found: BIT_CHANGING
Checking Commit: c13dc43f7deeb933c47f48557f841b5d6d4cd621
Checking out c13dc43f7deeb933c47f48557f841b5d6d4cd621
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 -param_file input/tunable_parameters/tunable_parameters.in'
Running: 'run_scripts/run_scm_all.bash --min-cases -p clubb_params_multi_col.in'
Checking out c365e917824d4ca09c1a28b5c1f782bfd1773562
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 -param_file input/tunable_parameters/tunable_parameters.in'
Running: 'run_scripts/run_scm_all.bash --min-cases -p clubb_params_multi_col.in'
Diffing: 'run_scripts/run_bindiff_all.py c13dc43f7deeb933c47f48557f841b5d6d4cd621 c365e917824d4ca09c1a28b5c1f782bfd1773562'
Commit 'c13dc43f7deeb933c47f48557f841b5d6d4cd621' is BIT_CHANGING and properly labelled as such.
=============================== Test Results ===============================
Commit Range Checked = c365e917824d4ca09c1a28b5c1f782bfd1773562...c13dc43f7deeb933c47f48557f841b5d6d4cd621
No new Unresolved commits found.
No fake BIT_CHANGING commits found.
No remaining Unresolved Commits.
=============================== Updating Config File ===============================
Saving into UnresolvedCommits:
Saving into BaselineCommit: c13dc43f7deeb933c47f48557f841b5d6d4cd621
=============================== Cleanup ===============================
Removing all generated output
REMOVING: c365e917824d4ca09c1a28b5c1f782bfd1773562
REMOVING: c13dc43f7deeb933c47f48557f841b5d6d4cd621
================== Unresolved Commit Status ==================
No remaining Unresolved Commits.
Exiting with code: 0
[Pipeline] }
[Pipeline] // stage
[Pipeline] }
[Pipeline] // withEnv
[Pipeline] }
[Pipeline] // node
[Pipeline] End of Pipeline
Finished: SUCCESS
![[Jenkins]](/jenkins/static/57c8a776/images/svgs/logo.svg){kind=logo}
