Skipping 75 KB..
Full LogTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTest
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
342 : call calc_coefs_wpxpyp_semiimpl( nz, wp2(i,:), rtp2(i,:), thlp2(i,:), wprtp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/new_pdf_main.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
43 : ! lower(k)*upper(k-1)+l_diag(k)*1 = lhs( 0,k) => l_diag(k) = lhs( 0,k) - lower(k)*upper(k-1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
205 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
292 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/tridiag_lu_solver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
365 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
613 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
977 : ! if l_avg_Lscale is true, compute_mixing_length is called two additional
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1428 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1429 : ! for a plot on how output behaves with varying min_max_smth_mag
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1432 : logical, parameter :: l_smooth_min_max = .false. ! whether to apply smooth min and max functions
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1514 : ustar(i) = smooth_max( ( upwp_sfc(i)**2 + vpwp_sfc(i)**2 )**one_fourth, ufmin, min_max_smth_mag )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1613 : 1.e8_core_rknd * abs(brunt_vaisala_freq_sqd(i,k))**3)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1641 : brunt_vaisala_freq_clipped = smooth_max( nz, ngrdcol, 1.0e-7_core_rknd, brunt_vaisala_freq_sqd_smth, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1781 : * sqrt(em(i,k)) / ( gr%zm(i,k) - sfc_elevation(i) + z_displace ) ! small
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1866 : invrs_tau_wpxp_zm(i,k) = invrs_tau_zm(i,k) + C_invrs_tau_N2_wpxp * brunt_freq_out_cloud(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1992 : tau_zt = smooth_min( nz, ngrdcol, tau_zt_unclipped, tau_max_zt, 1.0e3_core_rknd * min_max_smth_mag )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/mixing_length.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
528 : wstar = ( one/T0 * grav * wpthlp(i,1) * 0.2_core_rknd * depth_pos_wpthlp(i) )**(one_third)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/sfc_varnce_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
939 : write(iunit,*) "l_fix_w_chi_eta_correlations = ", clubb_config_flags%l_fix_w_chi_eta_correlations
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
956 : write(iunit,*) "l_use_tke_in_wp3_pr_turb_term = ", clubb_config_flags%l_use_tke_in_wp3_pr_turb_term
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
958 : write(iunit,*) "l_use_wp3_lim_with_smth_Heaviside = ", clubb_config_flags%l_use_wp3_lim_with_smth_Heaviside
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
960 : write(iunit,*) "l_modify_limiters_for_cnvg_test = ", clubb_config_flags%l_modify_limiters_for_cnvg_test
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/model_flags.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
458 : esat(i,k) = 10._core_rknd**(-7.90298_core_rknd*(373.16_core_rknd/T_in_K_clipped-1._core_rknd)+ &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/saturation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2304 : integer :: grid_level = 1 ! grid level for stats where there is only one sensible level (eg timeseries)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2864 : write(fstderr, *) "Warning: tot_vartn_normlzd_thlm tried to divide by zero denominator ", &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2877 : write(fstderr, *) "Warning: tot_vartn_normlzd_wprtp tried to divide by zero denominator ", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
296 : iRichardson_num_min, iRichardson_num_max, ia3_coef_min, ia_const, iCx_min, iCx_max, ibv_efold
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1232 : um_col, vm_col, upwp_col, vpwp_col, up2_col, vp2_col, up3_col, vp3_col, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1234 : wp2_col, wp3_col, rtp2_col, rtp3_col, thlp2_col, thlp3_col, rtpthlp_col, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1976 : field ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/clubb_api_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
235 : real( kind = core_rknd ), dimension(ngrdcol, nz, min(1,sclr_dim), 2 ), intent(in) :: & ! h1g, 2010-06-15
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
591 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
592 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
622 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
623 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
634 : call LY93_driver( nz, wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
635 : thlp2(i,:), Skw(i,:), Skrt(i,:), Skthl(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
989 : pdf_params%rsatl_1(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl1(i,:) ) * RH_crit(i, :, 1, 1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1004 : pdf_params%rsatl_2(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl2(i,:) ) * RH_crit(i, :, 1, 2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1131 : rcm(i,k) = pdf_params%mixt_frac(i,k) * pdf_params%rc_1(i,k) + ( one - pdf_params%mixt_frac(i,k) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1306 : = pdf_params%mixt_frac(i,k) * ( ( sclr1(i,k,j) - sclrm(i,k,j) ) * pdf_params%rc_1(i,k) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1312 : + ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_rt_2(i,k,j) * pdf_params%crt_2(i,k) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1318 : - ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_thl_2(i,k,j) * pdf_params%cthl_2(i,k) &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/pdf_closure_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
899 : !$acc wprtp_sfc, upwp_sfc, vpwp_sfc, sclrm_forcing, wpsclrp_sfc, edsclrm_forcing, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
975 : !$acc rc_coef_zm, Km_zm, Kmh_zm, gamma_Skw_fnc, sigma_sqd_w, sigma_sqd_w_tmp, sigma_sqd_w_zt, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1054 : ( nz, thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1055 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1056 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1057 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1058 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1059 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1060 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1061 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1064 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1065 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1860 : call stat_update_var(ibrunt_vaisala_freq_sqd_splat, brunt_vaisala_freq_sqd_splat(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1878 : clubb_config_flags%l_modify_limiters_for_cnvg_test, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1879 : stats_zm, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1904 : call advance_xm_wpxp( nz, ngrdcol, gr, dt_advance, sigma_sqd_w, wm_zm, wm_zt, wp2, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1968 : sclrm(i,:,:), sclrm_trsport_only(i,:,:), & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2745 : thlm(i,:), rtm(i,:), wprtp(i,:), wpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2746 : wp2(i,:), wp3(i,:), rtp2(i,:), rtp3(i,:), thlp2(i,:), thlp3(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2747 : wpthvp(i,:), wp2thvp(i,:), rtpthvp(i,:), thlpthvp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2748 : p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2749 : rho_ds_zm(i,:), rho_ds_zt(i,:), thv_ds_zm(i,:), thv_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2750 : wm_zt(i,:), wm_zm(i,:), rcm(i,:), wprcp(i,:), rc_coef(i,:), rc_coef_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2751 : rcm_zm(i,:), rtm_zm(i,:), thlm_zm(i,:), cloud_frac(i,:), ice_supersat_frac(i,:),& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2754 : thvm(i,:), ug(i,:), vg(i,:), Lscale(i,:), wpthlp2(i,:), wp2thlp(i,:), wprtp2(i,:), wp2rtp(i,:),& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2755 : Lscale_up(i,:), Lscale_down(i,:), tau_zt(i,:), Kh_zt(i,:), wp2rcp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2756 : wprtpthlp(i,:), sigma_sqd_w_zt(i,:), rsat(i,:), wp2_zt(i,:), thlp2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2757 : wpthlp_zt(i,:), wprtp_zt(i,:), rtp2_zt(i,:), rtpthlp_zt(i,:), up2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2758 : vp2_zt(i,:), upwp_zt(i,:), vpwp_zt(i,:), wpup2(i,:), wpvp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2761 : rtprcp(i,:), rcp2(i,:), em(i,:), a3_coef(i,:), a3_coef_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2762 : wp3_zm(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), Skw_velocity(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2765 : pdf_params_single_col(i), pdf_params_zm_single_col(i), sclrm(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2766 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), sclrpthvp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2767 : wpsclrp(i,:,:), sclrprcp(i,:,:), wp2sclrp(i,:,:), wpsclrp2(i,:,:), wpsclrprtp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2768 : wpsclrpthlp(i,:,:), wpedsclrp(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2788 : nz, thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2789 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2790 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2791 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2792 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2793 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2794 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2795 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2798 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2799 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2891 : !$acc rc_coef_zm, Km_zm, Kmh_zm, gamma_Skw_fnc, sigma_sqd_w, sigma_sqd_w_tmp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2892 : !$acc sqrt_em_zt, xp3_coef_fnc, w_1_zm, w_2_zm, varnce_w_1_zm, varnce_w_2_zm, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2897 : !$acc invrs_tau_C4_zm, invrs_tau_C14_zm, invrs_tau_wp2_zm, invrs_tau_wpxp_zm, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2898 : !$acc invrs_tau_wp3_zm, invrs_tau_no_N2_zm, invrs_tau_bkgnd, invrs_tau_shear, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4303 : write(fstderr,*) "l_stability_correct_tau_zm = ", clubb_config_flags%l_stability_correct_tau_zm
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4341 : write(fstderr,*) "Unknown type of double Gaussian PDF selected: ", clubb_config_flags%iiPDF_type
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.
509 : write(fstderr,*) "l_mono_flux_lim_rtm=T with l_mono_flux_lim_spikefix=F can lead to spikes aloft."
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
944 : dt, sigma_sqd_w(i,:), wm_zm(i,:), wm_zt(i,:), wp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
945 : Lscale(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
946 : Kh_zt(i,:), Kh_zm(i,:), invrs_tau_C6_zm(i,:), Skw_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
950 : wpthlp_forcing(i,:), thlm_ref(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
956 : wp2sclrp(i,:,:), sclrpthvp(i,:,:), sclrm_forcing(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
957 : sclrp2(i,:,:), exner(i,:), rcm(i,:), p_in_Pa(i,:), thvm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
960 : um_forcing(i,:), vm_forcing(i,:), ug(i,:), vg(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
961 : wpthvp(i,:), fcor(i), um_ref(i,:), vm_ref(i,:), up2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
962 : vp2(i,:), uprcp(i,:), vprcp(i,:), rc_coef(i,:), rtm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
963 : wprtp(i,:), thlm(i,:), wpthlp(i,:), sclrm(i,:,:), wpsclrp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
964 : um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), rtm_old(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
966 : sclrm_old(i,:,:), wpsclrp_old(i,:,:), um_old(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3021 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4111 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In
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.
567 : call calc_xp2_xpyp_ta_terms( nz, ngrdcol, gr, wprtp, wprtp2, wpthlp, wpthlp2, wprtpthlp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1391 : subroutine solve_xp2_xpyp_with_single_lhs( nz, ngrdcol, gr, C2x, invrs_tau_xp2_zm, rtm, thlm, wprtp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1783 : rhs_ta_wpsclrp2, rhs_ta_wprtpsclrp, rhs_ta_wpthlpsclrp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2648 : real( kind = core_rknd ), dimension(ngrdcol) :: rcond ! Est. of the reciprocal of the condition # on the matrix
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4001 : wp_coef(i,k) = ( one - one_third * beta ) * a1(i,k)**2 * wp3_on_wp2(i,k) / wp2(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4002 : wp_coef_zt(i,k) = ( one - one_third * beta ) * a1_zt(i,k)**2 * wp3_on_wp2_zt(i,k) / wp2_zt(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4183 : sgn_t_vel_sclrprtp(i,k) = sign(one,term_wprtpsclrp_explicit_zm(i,k)*sclrprtp(i,k,sclr))
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4217 : sgn_t_vel_sclrpthlp(i,k) = sign(one,term_wpthlpsclrp_explicit_zm(i,k)*sclrpthlp(i,k,sclr))
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4310 : invrs_rho_ds_zm, rho_ds_zm, & ! Intent(in) & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xp2_xpyp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1326 : var_description="rt'^3, Third-order moment of total water, rt", var_units="(kg/kg)^3", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_zt_module.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has forbidden elements: .gt. .
71 : if (time.gt.80880_time_precision) then
CLUBBStandardsCheck.pl WARNING: File has forbidden elements.
../src/Benchmark_cases/neutral_case.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : result = smooth_min(4, 1, input, zero, min_max_smth_mag) ! Order of nz and ngrdcol is opposite to order of indexing! This is very unintuitive!
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
174 : ! Case 3: Make sure that on a large number of arbitrarily chosen points with small min_max_smth_mag,
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/G_unit_test_types/smooth_min_max_tests.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1586 : wp2(1,:), rtp2(1,:), thlp2(1,:), up2(1,:), vp2(1,:), &! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/G_unit_test_types/pdf_parameter_tests.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
configurable_multi_column_nl not found, setting num_standalone_columns = 1
Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
configurable_multi_column_nl not found, setting num_standalone_columns = 1
Warning: ../input/case_setups/dycoms2_rf01_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
292 : z_i = lin_interpolate_two_points( 8.0e-3_core_rknd, rtm(k), rtm(k-1), gr%zt(1,k), gr%zt(1,k-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/simple_rad_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
377 : z(kp2), p_in_Pa(km1), p_in_Pa(k00), p_in_Pa(kp1), p_in_Pa(kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
426 : press(i) = lin_interpolate_two_points( gr%zt(1,i), z(k), z(k-1), p_in_Pa(k), p_in_Pa(k-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/sounding.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: 'use' statement w/o 'only' found in the following line:
6481 : use netcdf
CLUBBStandardsCheck.pl WARNING: Use check FAILED!
CLUBBStandardsCheck.pl WARNING: Check that comma is on same line as 'use', as CLUBB requires.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1289 : call write_text( "l_modify_ic_with_cubic_int = ", l_modify_ic_with_cubic_int, l_write_to_file, iunit )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1290 : call write_text( "l_modify_bc_for_cnvg_test = ", l_modify_bc_for_cnvg_test, l_write_to_file, iunit )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2545 : stats_zt, stats_zm, stats_sfc, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2551 : precip_fracs, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2691 : thlm(1,:), p_in_Pa, exner(1,:), rho, rho_zm, rtm(1,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2795 : exner(1,:), cloud_frac, ice_supersat_frac, thlm(1,:), rtm(1,:), rcm(1,:), hydromet, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3413 : ! em(k) = ( 0.15_core_rknd * (1.0_core_rknd - gr%zm(1,k)/150.0_core_rknd) ) / rho_zm(k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
327 : stability_correction(i,k) = one + min( lambda0_stability(i,k) * brunt_vaisala_freq_sqd(i,k) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
628 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
629 : ! for a plot on how output behaves with varying min_max_smth_mag
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
763 : Richardson_num(i,k) = brunt_vaisala_freq_sqd(i,k) / max( shear_sqd(i,k), turb_freq_sqd(i,k), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
764 : Richardson_num_divisor_threshold )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_helper_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
452 : call stat_update_var( ixp3_dp, -(C_xp3_dissipation * invrs_tau_zt(i,:))*xp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xp3_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
462 : = + gr%invrs_dzt(i,k) * ( K_zt(i,k) + nu(i) ) * ( gr%invrs_dzm(i,k) + gr%invrs_dzm(i,k-1) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1106 : = + gr%invrs_dzm(i,k) * ( K_zm(i,k) + nu(i) ) * ( gr%invrs_dzt(i,k+1) + gr%invrs_dzt(i,k) ) &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/diffusion.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
683 : * ( one - Skw(i,k) / sqrt( four * ( one - sigma_sqd_w(i,k) )**3 + Skw(i,k)**2 ) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/adg1_adg2_3d_luhar_pdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
480 : write(fstderr,*) "grdcol #", i, "rhs # ", n, "band_solvex backward error est. =", berr(i,n)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/lapack_wrap.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
../src/CLUBB_core/matrix_solver_wrapper.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
123 : !$acc enter data create( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
141 : !$acc exit data delete( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
227 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_field_below_threshold)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
239 : !$acc exit data delete( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/fill_holes.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
43 : ! lower_1(2)*upper_1(1)+l_diag(2)*1 = lhs(0,2) => l_diag(2) = lhs(0,2) - lower_1(2)*upper_1(1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
44 : ! lower_1(2)*upper_2(1)+l_diag(2)*upper_1(2) = lhs(-1,2) => upper_1(2) = ( lhs(-1,2)-lower_1(2)*upper_2(1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
46 : ! l_diag(2)*upper_2(2) = lhs(-2,2) => upper_2(2) = lhs(-2,2) / l_diag(2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
52 : ! l_2(k)*upper_1(k-2)+lower_1(k)*1 = lhs(1,k) => lower_1(k) = lhs(1,k) - l_2(k)*upper_1(k-2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
53 : ! l_2(k)*upper_2(k-2)+lower_1(k)*upper_1(k-1) = lhs( 0,k) => l_diag(k) = lhs(0,k) - l_2(k)*upper_2(k-2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
54 : ! +l_diag(k)*1 + lower_1(k)*upper_1(k-1)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/penta_lu_solver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
342 : call calc_coefs_wpxpyp_semiimpl( nz, wp2(i,:), rtp2(i,:), thlp2(i,:), wprtp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/new_pdf_main.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
528 : wstar = ( one/T0 * grav * wpthlp(i,1) * 0.2_core_rknd * depth_pos_wpthlp(i) )**(one_third)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/sfc_varnce_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
458 : esat(i,k) = 10._core_rknd**(-7.90298_core_rknd*(373.16_core_rknd/T_in_K_clipped-1._core_rknd)+ &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/saturation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
939 : write(iunit,*) "l_fix_w_chi_eta_correlations = ", clubb_config_flags%l_fix_w_chi_eta_correlations
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
956 : write(iunit,*) "l_use_tke_in_wp3_pr_turb_term = ", clubb_config_flags%l_use_tke_in_wp3_pr_turb_term
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
958 : write(iunit,*) "l_use_wp3_lim_with_smth_Heaviside = ", clubb_config_flags%l_use_wp3_lim_with_smth_Heaviside
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
960 : write(iunit,*) "l_modify_limiters_for_cnvg_test = ", clubb_config_flags%l_modify_limiters_for_cnvg_test
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/model_flags.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
365 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
613 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
977 : ! if l_avg_Lscale is true, compute_mixing_length is called two additional
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1428 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1429 : ! for a plot on how output behaves with varying min_max_smth_mag
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1432 : logical, parameter :: l_smooth_min_max = .false. ! whether to apply smooth min and max functions
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1514 : ustar(i) = smooth_max( ( upwp_sfc(i)**2 + vpwp_sfc(i)**2 )**one_fourth, ufmin, min_max_smth_mag )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1613 : 1.e8_core_rknd * abs(brunt_vaisala_freq_sqd(i,k))**3)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1641 : brunt_vaisala_freq_clipped = smooth_max( nz, ngrdcol, 1.0e-7_core_rknd, brunt_vaisala_freq_sqd_smth, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1781 : * sqrt(em(i,k)) / ( gr%zm(i,k) - sfc_elevation(i) + z_displace ) ! small
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1866 : invrs_tau_wpxp_zm(i,k) = invrs_tau_zm(i,k) + C_invrs_tau_N2_wpxp * brunt_freq_out_cloud(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1992 : tau_zt = smooth_min( nz, ngrdcol, tau_zt_unclipped, tau_max_zt, 1.0e3_core_rknd * min_max_smth_mag )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/mixing_length.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
43 : ! lower(k)*upper(k-1)+l_diag(k)*1 = lhs( 0,k) => l_diag(k) = lhs( 0,k) - lower(k)*upper(k-1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
205 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
292 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/tridiag_lu_solver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2304 : integer :: grid_level = 1 ! grid level for stats where there is only one sensible level (eg timeseries)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2864 : write(fstderr, *) "Warning: tot_vartn_normlzd_thlm tried to divide by zero denominator ", &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2877 : write(fstderr, *) "Warning: tot_vartn_normlzd_wprtp tried to divide by zero denominator ", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
235 : real( kind = core_rknd ), dimension(ngrdcol, nz, min(1,sclr_dim), 2 ), intent(in) :: & ! h1g, 2010-06-15
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
591 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
592 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
622 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
623 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
634 : call LY93_driver( nz, wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
635 : thlp2(i,:), Skw(i,:), Skrt(i,:), Skthl(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
989 : pdf_params%rsatl_1(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl1(i,:) ) * RH_crit(i, :, 1, 1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1004 : pdf_params%rsatl_2(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl2(i,:) ) * RH_crit(i, :, 1, 2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1131 : rcm(i,k) = pdf_params%mixt_frac(i,k) * pdf_params%rc_1(i,k) + ( one - pdf_params%mixt_frac(i,k) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1306 : = pdf_params%mixt_frac(i,k) * ( ( sclr1(i,k,j) - sclrm(i,k,j) ) * pdf_params%rc_1(i,k) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1312 : + ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_rt_2(i,k,j) * pdf_params%crt_2(i,k) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1318 : - ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_thl_2(i,k,j) * pdf_params%cthl_2(i,k) &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/pdf_closure_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
509 : write(fstderr,*) "l_mono_flux_lim_rtm=T with l_mono_flux_lim_spikefix=F can lead to spikes aloft."
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
944 : dt, sigma_sqd_w(i,:), wm_zm(i,:), wm_zt(i,:), wp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
945 : Lscale(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
946 : Kh_zt(i,:), Kh_zm(i,:), invrs_tau_C6_zm(i,:), Skw_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
950 : wpthlp_forcing(i,:), thlm_ref(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
956 : wp2sclrp(i,:,:), sclrpthvp(i,:,:), sclrm_forcing(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
957 : sclrp2(i,:,:), exner(i,:), rcm(i,:), p_in_Pa(i,:), thvm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
960 : um_forcing(i,:), vm_forcing(i,:), ug(i,:), vg(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
961 : wpthvp(i,:), fcor(i), um_ref(i,:), vm_ref(i,:), up2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
962 : vp2(i,:), uprcp(i,:), vprcp(i,:), rc_coef(i,:), rtm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
963 : wprtp(i,:), thlm(i,:), wpthlp(i,:), sclrm(i,:,:), wpsclrp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
964 : um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), rtm_old(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
966 : sclrm_old(i,:,:), wpsclrp_old(i,:,:), um_old(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3021 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4111 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In
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.
296 : iRichardson_num_min, iRichardson_num_max, ia3_coef_min, ia_const, iCx_min, iCx_max, ibv_efold
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1232 : um_col, vm_col, upwp_col, vpwp_col, up2_col, vp2_col, up3_col, vp3_col, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1234 : wp2_col, wp3_col, rtp2_col, rtp3_col, thlp2_col, thlp3_col, rtpthlp_col, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1976 : field ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/clubb_api_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
899 : !$acc wprtp_sfc, upwp_sfc, vpwp_sfc, sclrm_forcing, wpsclrp_sfc, edsclrm_forcing, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
975 : !$acc rc_coef_zm, Km_zm, Kmh_zm, gamma_Skw_fnc, sigma_sqd_w, sigma_sqd_w_tmp, sigma_sqd_w_zt, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1054 : ( nz, thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1055 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1056 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1057 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1058 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1059 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1060 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1061 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1064 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1065 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1860 : call stat_update_var(ibrunt_vaisala_freq_sqd_splat, brunt_vaisala_freq_sqd_splat(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1878 : clubb_config_flags%l_modify_limiters_for_cnvg_test, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1879 : stats_zm, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1904 : call advance_xm_wpxp( nz, ngrdcol, gr, dt_advance, sigma_sqd_w, wm_zm, wm_zt, wp2, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1968 : sclrm(i,:,:), sclrm_trsport_only(i,:,:), & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2745 : thlm(i,:), rtm(i,:), wprtp(i,:), wpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2746 : wp2(i,:), wp3(i,:), rtp2(i,:), rtp3(i,:), thlp2(i,:), thlp3(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2747 : wpthvp(i,:), wp2thvp(i,:), rtpthvp(i,:), thlpthvp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2748 : p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2749 : rho_ds_zm(i,:), rho_ds_zt(i,:), thv_ds_zm(i,:), thv_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2750 : wm_zt(i,:), wm_zm(i,:), rcm(i,:), wprcp(i,:), rc_coef(i,:), rc_coef_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2751 : rcm_zm(i,:), rtm_zm(i,:), thlm_zm(i,:), cloud_frac(i,:), ice_supersat_frac(i,:),& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2754 : thvm(i,:), ug(i,:), vg(i,:), Lscale(i,:), wpthlp2(i,:), wp2thlp(i,:), wprtp2(i,:), wp2rtp(i,:),& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2755 : Lscale_up(i,:), Lscale_down(i,:), tau_zt(i,:), Kh_zt(i,:), wp2rcp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2756 : wprtpthlp(i,:), sigma_sqd_w_zt(i,:), rsat(i,:), wp2_zt(i,:), thlp2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2757 : wpthlp_zt(i,:), wprtp_zt(i,:), rtp2_zt(i,:), rtpthlp_zt(i,:), up2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2758 : vp2_zt(i,:), upwp_zt(i,:), vpwp_zt(i,:), wpup2(i,:), wpvp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2761 : rtprcp(i,:), rcp2(i,:), em(i,:), a3_coef(i,:), a3_coef_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2762 : wp3_zm(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), Skw_velocity(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2765 : pdf_params_single_col(i), pdf_params_zm_single_col(i), sclrm(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2766 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), sclrpthvp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2767 : wpsclrp(i,:,:), sclrprcp(i,:,:), wp2sclrp(i,:,:), wpsclrp2(i,:,:), wpsclrprtp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2768 : wpsclrpthlp(i,:,:), wpedsclrp(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2788 : nz, thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2789 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2790 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2791 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2792 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2793 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2794 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2795 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2798 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2799 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2891 : !$acc rc_coef_zm, Km_zm, Kmh_zm, gamma_Skw_fnc, sigma_sqd_w, sigma_sqd_w_tmp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2892 : !$acc sqrt_em_zt, xp3_coef_fnc, w_1_zm, w_2_zm, varnce_w_1_zm, varnce_w_2_zm, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2897 : !$acc invrs_tau_C4_zm, invrs_tau_C14_zm, invrs_tau_wp2_zm, invrs_tau_wpxp_zm, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2898 : !$acc invrs_tau_wp3_zm, invrs_tau_no_N2_zm, invrs_tau_bkgnd, invrs_tau_shear, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4303 : write(fstderr,*) "l_stability_correct_tau_zm = ", clubb_config_flags%l_stability_correct_tau_zm
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4341 : write(fstderr,*) "Unknown type of double Gaussian PDF selected: ", clubb_config_flags%iiPDF_type
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.
567 : call calc_xp2_xpyp_ta_terms( nz, ngrdcol, gr, wprtp, wprtp2, wpthlp, wpthlp2, wprtpthlp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1391 : subroutine solve_xp2_xpyp_with_single_lhs( nz, ngrdcol, gr, C2x, invrs_tau_xp2_zm, rtm, thlm, wprtp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1783 : rhs_ta_wpsclrp2, rhs_ta_wprtpsclrp, rhs_ta_wpthlpsclrp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2648 : real( kind = core_rknd ), dimension(ngrdcol) :: rcond ! Est. of the reciprocal of the condition # on the matrix
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4001 : wp_coef(i,k) = ( one - one_third * beta ) * a1(i,k)**2 * wp3_on_wp2(i,k) / wp2(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4002 : wp_coef_zt(i,k) = ( one - one_third * beta ) * a1_zt(i,k)**2 * wp3_on_wp2_zt(i,k) / wp2_zt(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4183 : sgn_t_vel_sclrprtp(i,k) = sign(one,term_wprtpsclrp_explicit_zm(i,k)*sclrprtp(i,k,sclr))
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4217 : sgn_t_vel_sclrpthlp(i,k) = sign(one,term_wpthlpsclrp_explicit_zm(i,k)*sclrpthlp(i,k,sclr))
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4310 : invrs_rho_ds_zm, rho_ds_zm, & ! Intent(in) & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xp2_xpyp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1326 : var_description="rt'^3, Third-order moment of total water, rt", var_units="(kg/kg)^3", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_zt_module.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has forbidden elements: .gt. .
71 : if (time.gt.80880_time_precision) then
CLUBBStandardsCheck.pl WARNING: File has forbidden elements.
../src/Benchmark_cases/neutral_case.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : result = smooth_min(4, 1, input, zero, min_max_smth_mag) ! Order of nz and ngrdcol is opposite to order of indexing! This is very unintuitive!
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
174 : ! Case 3: Make sure that on a large number of arbitrarily chosen points with small min_max_smth_mag,
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/G_unit_test_types/smooth_min_max_tests.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1586 : wp2(1,:), rtp2(1,:), thlp2(1,:), up2(1,:), vp2(1,:), &! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/G_unit_test_types/pdf_parameter_tests.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
configurable_multi_column_nl not found, setting num_standalone_columns = 1
Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
configurable_multi_column_nl not found, setting num_standalone_columns = 1
Warning: ../input/case_setups/dycoms2_rf01_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
Directory 1 is /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/b0101dc46f5324451c8273188032bda60d135e41.
Directory 2 is /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/0c7fc1f05bfd096c03e190497c2f2b6b7bba4582.
Diffing bomex netCDF (*.nc) files
*** Differences detected in bomex_zm.nc! ***
Diffing dycoms2_rf01 netCDF (*.nc) files
*** Differences detected in dycoms2_rf01_zm.nc! ***
There were some differences detected!
There were differences detected in netCDF (*.nc) files.
........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
292 : z_i = lin_interpolate_two_points( 8.0e-3_core_rknd, rtm(k), rtm(k-1), gr%zt(1,k), gr%zt(1,k-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/simple_rad_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
377 : z(kp2), p_in_Pa(km1), p_in_Pa(k00), p_in_Pa(kp1), p_in_Pa(kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
426 : press(i) = lin_interpolate_two_points( gr%zt(1,i), z(k), z(k-1), p_in_Pa(k), p_in_Pa(k-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/sounding.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: 'use' statement w/o 'only' found in the following line:
6481 : use netcdf
CLUBBStandardsCheck.pl WARNING: Use check FAILED!
CLUBBStandardsCheck.pl WARNING: Check that comma is on same line as 'use', as CLUBB requires.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1289 : call write_text( "l_modify_ic_with_cubic_int = ", l_modify_ic_with_cubic_int, l_write_to_file, iunit )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1290 : call write_text( "l_modify_bc_for_cnvg_test = ", l_modify_bc_for_cnvg_test, l_write_to_file, iunit )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2545 : stats_zt, stats_zm, stats_sfc, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2551 : precip_fracs, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2691 : thlm(1,:), p_in_Pa, exner(1,:), rho, rho_zm, rtm(1,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2795 : exner(1,:), cloud_frac, ice_supersat_frac, thlm(1,:), rtm(1,:), rcm(1,:), hydromet, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3413 : ! em(k) = ( 0.15_core_rknd * (1.0_core_rknd - gr%zm(1,k)/150.0_core_rknd) ) / rho_zm(k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
452 : call stat_update_var( ixp3_dp, -(C_xp3_dissipation * invrs_tau_zt(i,:))*xp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xp3_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
683 : * ( one - Skw(i,k) / sqrt( four * ( one - sigma_sqd_w(i,k) )**3 + Skw(i,k)**2 ) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/adg1_adg2_3d_luhar_pdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
../src/CLUBB_core/matrix_solver_wrapper.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
327 : stability_correction(i,k) = one + min( lambda0_stability(i,k) * brunt_vaisala_freq_sqd(i,k) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
628 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
629 : ! for a plot on how output behaves with varying min_max_smth_mag
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
763 : Richardson_num(i,k) = brunt_vaisala_freq_sqd(i,k) / max( shear_sqd(i,k), turb_freq_sqd(i,k), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
764 : Richardson_num_divisor_threshold )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_helper_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
480 : write(fstderr,*) "grdcol #", i, "rhs # ", n, "band_solvex backward error est. =", berr(i,n)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/lapack_wrap.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
123 : !$acc enter data create( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
141 : !$acc exit data delete( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
227 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_field_below_threshold)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
239 : !$acc exit data delete( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/fill_holes.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
462 : = + gr%invrs_dzt(i,k) * ( K_zt(i,k) + nu(i) ) * ( gr%invrs_dzm(i,k) + gr%invrs_dzm(i,k-1) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1106 : = + gr%invrs_dzm(i,k) * ( K_zm(i,k) + nu(i) ) * ( gr%invrs_dzt(i,k+1) + gr%invrs_dzt(i,k) ) &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/diffusion.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
342 : call calc_coefs_wpxpyp_semiimpl( nz, wp2(i,:), rtp2(i,:), thlp2(i,:), wprtp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/new_pdf_main.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
43 : ! lower_1(2)*upper_1(1)+l_diag(2)*1 = lhs(0,2) => l_diag(2) = lhs(0,2) - lower_1(2)*upper_1(1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
44 : ! lower_1(2)*upper_2(1)+l_diag(2)*upper_1(2) = lhs(-1,2) => upper_1(2) = ( lhs(-1,2)-lower_1(2)*upper_2(1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
46 : ! l_diag(2)*upper_2(2) = lhs(-2,2) => upper_2(2) = lhs(-2,2) / l_diag(2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
52 : ! l_2(k)*upper_1(k-2)+lower_1(k)*1 = lhs(1,k) => lower_1(k) = lhs(1,k) - l_2(k)*upper_1(k-2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
53 : ! l_2(k)*upper_2(k-2)+lower_1(k)*upper_1(k-1) = lhs( 0,k) => l_diag(k) = lhs(0,k) - l_2(k)*upper_2(k-2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
54 : ! +l_diag(k)*1 + lower_1(k)*upper_1(k-1)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/penta_lu_solver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
43 : ! lower(k)*upper(k-1)+l_diag(k)*1 = lhs( 0,k) => l_diag(k) = lhs( 0,k) - lower(k)*upper(k-1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
205 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
292 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/tridiag_lu_solver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
528 : wstar = ( one/T0 * grav * wpthlp(i,1) * 0.2_core_rknd * depth_pos_wpthlp(i) )**(one_third)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/sfc_varnce_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
458 : esat(i,k) = 10._core_rknd**(-7.90298_core_rknd*(373.16_core_rknd/T_in_K_clipped-1._core_rknd)+ &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/saturation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
939 : write(iunit,*) "l_fix_w_chi_eta_correlations = ", clubb_config_flags%l_fix_w_chi_eta_correlations
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
956 : write(iunit,*) "l_use_tke_in_wp3_pr_turb_term = ", clubb_config_flags%l_use_tke_in_wp3_pr_turb_term
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
958 : write(iunit,*) "l_use_wp3_lim_with_smth_Heaviside = ", clubb_config_flags%l_use_wp3_lim_with_smth_Heaviside
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
960 : write(iunit,*) "l_modify_limiters_for_cnvg_test = ", clubb_config_flags%l_modify_limiters_for_cnvg_test
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/model_flags.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
365 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
613 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
977 : ! if l_avg_Lscale is true, compute_mixing_length is called two additional
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1428 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1429 : ! for a plot on how output behaves with varying min_max_smth_mag
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1432 : logical, parameter :: l_smooth_min_max = .false. ! whether to apply smooth min and max functions
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1514 : ustar(i) = smooth_max( ( upwp_sfc(i)**2 + vpwp_sfc(i)**2 )**one_fourth, ufmin, min_max_smth_mag )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1613 : 1.e8_core_rknd * abs(brunt_vaisala_freq_sqd(i,k))**3)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1641 : brunt_vaisala_freq_clipped = smooth_max( nz, ngrdcol, 1.0e-7_core_rknd, brunt_vaisala_freq_sqd_smth, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1781 : * sqrt(em(i,k)) / ( gr%zm(i,k) - sfc_elevation(i) + z_displace ) ! small
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1866 : invrs_tau_wpxp_zm(i,k) = invrs_tau_zm(i,k) + C_invrs_tau_N2_wpxp * brunt_freq_out_cloud(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1992 : tau_zt = smooth_min( nz, ngrdcol, tau_zt_unclipped, tau_max_zt, 1.0e3_core_rknd * min_max_smth_mag )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/mixing_length.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
296 : iRichardson_num_min, iRichardson_num_max, ia3_coef_min, ia_const, iCx_min, iCx_max, ibv_efold
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1232 : um_col, vm_col, upwp_col, vpwp_col, up2_col, vp2_col, up3_col, vp3_col, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1234 : wp2_col, wp3_col, rtp2_col, rtp3_col, thlp2_col, thlp3_col, rtpthlp_col, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1976 : field ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/clubb_api_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
235 : real( kind = core_rknd ), dimension(ngrdcol, nz, min(1,sclr_dim), 2 ), intent(in) :: & ! h1g, 2010-06-15
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
591 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
592 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
622 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
623 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
634 : call LY93_driver( nz, wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
635 : thlp2(i,:), Skw(i,:), Skrt(i,:), Skthl(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
989 : pdf_params%rsatl_1(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl1(i,:) ) * RH_crit(i, :, 1, 1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1004 : pdf_params%rsatl_2(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl2(i,:) ) * RH_crit(i, :, 1, 2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1131 : rcm(i,k) = pdf_params%mixt_frac(i,k) * pdf_params%rc_1(i,k) + ( one - pdf_params%mixt_frac(i,k) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1306 : = pdf_params%mixt_frac(i,k) * ( ( sclr1(i,k,j) - sclrm(i,k,j) ) * pdf_params%rc_1(i,k) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1312 : + ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_rt_2(i,k,j) * pdf_params%crt_2(i,k) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1318 : - ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_thl_2(i,k,j) * pdf_params%cthl_2(i,k) &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/pdf_closure_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2304 : integer :: grid_level = 1 ! grid level for stats where there is only one sensible level (eg timeseries)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2864 : write(fstderr, *) "Warning: tot_vartn_normlzd_thlm tried to divide by zero denominator ", &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2877 : write(fstderr, *) "Warning: tot_vartn_normlzd_wprtp tried to divide by zero denominator ", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
509 : write(fstderr,*) "l_mono_flux_lim_rtm=T with l_mono_flux_lim_spikefix=F can lead to spikes aloft."
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
944 : dt, sigma_sqd_w(i,:), wm_zm(i,:), wm_zt(i,:), wp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
945 : Lscale(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
946 : Kh_zt(i,:), Kh_zm(i,:), invrs_tau_C6_zm(i,:), Skw_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
950 : wpthlp_forcing(i,:), thlm_ref(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
956 : wp2sclrp(i,:,:), sclrpthvp(i,:,:), sclrm_forcing(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
957 : sclrp2(i,:,:), exner(i,:), rcm(i,:), p_in_Pa(i,:), thvm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
960 : um_forcing(i,:), vm_forcing(i,:), ug(i,:), vg(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
961 : wpthvp(i,:), fcor(i), um_ref(i,:), vm_ref(i,:), up2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
962 : vp2(i,:), uprcp(i,:), vprcp(i,:), rc_coef(i,:), rtm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
963 : wprtp(i,:), thlm(i,:), wpthlp(i,:), sclrm(i,:,:), wpsclrp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
964 : um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), rtm_old(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
966 : sclrm_old(i,:,:), wpsclrp_old(i,:,:), um_old(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3021 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4111 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In
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.
899 : !$acc wprtp_sfc, upwp_sfc, vpwp_sfc, sclrm_forcing, wpsclrp_sfc, edsclrm_forcing, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
975 : !$acc rc_coef_zm, Km_zm, Kmh_zm, gamma_Skw_fnc, sigma_sqd_w, sigma_sqd_w_tmp, sigma_sqd_w_zt, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1054 : ( nz, thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1055 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1056 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1057 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1058 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1059 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1060 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1061 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1064 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1065 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1860 : call stat_update_var(ibrunt_vaisala_freq_sqd_splat, brunt_vaisala_freq_sqd_splat(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1878 : clubb_config_flags%l_modify_limiters_for_cnvg_test, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1879 : stats_zm, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1904 : call advance_xm_wpxp( nz, ngrdcol, gr, dt_advance, sigma_sqd_w, wm_zm, wm_zt, wp2, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1968 : sclrm(i,:,:), sclrm_trsport_only(i,:,:), & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2745 : thlm(i,:), rtm(i,:), wprtp(i,:), wpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2746 : wp2(i,:), wp3(i,:), rtp2(i,:), rtp3(i,:), thlp2(i,:), thlp3(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2747 : wpthvp(i,:), wp2thvp(i,:), rtpthvp(i,:), thlpthvp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2748 : p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2749 : rho_ds_zm(i,:), rho_ds_zt(i,:), thv_ds_zm(i,:), thv_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2750 : wm_zt(i,:), wm_zm(i,:), rcm(i,:), wprcp(i,:), rc_coef(i,:), rc_coef_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2751 : rcm_zm(i,:), rtm_zm(i,:), thlm_zm(i,:), cloud_frac(i,:), ice_supersat_frac(i,:),& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2754 : thvm(i,:), ug(i,:), vg(i,:), Lscale(i,:), wpthlp2(i,:), wp2thlp(i,:), wprtp2(i,:), wp2rtp(i,:),& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2755 : Lscale_up(i,:), Lscale_down(i,:), tau_zt(i,:), Kh_zt(i,:), wp2rcp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2756 : wprtpthlp(i,:), sigma_sqd_w_zt(i,:), rsat(i,:), wp2_zt(i,:), thlp2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2757 : wpthlp_zt(i,:), wprtp_zt(i,:), rtp2_zt(i,:), rtpthlp_zt(i,:), up2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2758 : vp2_zt(i,:), upwp_zt(i,:), vpwp_zt(i,:), wpup2(i,:), wpvp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2761 : rtprcp(i,:), rcp2(i,:), em(i,:), a3_coef(i,:), a3_coef_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2762 : wp3_zm(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), Skw_velocity(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2765 : pdf_params_single_col(i), pdf_params_zm_single_col(i), sclrm(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2766 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), sclrpthvp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2767 : wpsclrp(i,:,:), sclrprcp(i,:,:), wp2sclrp(i,:,:), wpsclrp2(i,:,:), wpsclrprtp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2768 : wpsclrpthlp(i,:,:), wpedsclrp(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2788 : nz, thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2789 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2790 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2791 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2792 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2793 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2794 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2795 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2798 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2799 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2891 : !$acc rc_coef_zm, Km_zm, Kmh_zm, gamma_Skw_fnc, sigma_sqd_w, sigma_sqd_w_tmp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2892 : !$acc sqrt_em_zt, xp3_coef_fnc, w_1_zm, w_2_zm, varnce_w_1_zm, varnce_w_2_zm, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2897 : !$acc invrs_tau_C4_zm, invrs_tau_C14_zm, invrs_tau_wp2_zm, invrs_tau_wpxp_zm, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2898 : !$acc invrs_tau_wp3_zm, invrs_tau_no_N2_zm, invrs_tau_bkgnd, invrs_tau_shear, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4303 : write(fstderr,*) "l_stability_correct_tau_zm = ", clubb_config_flags%l_stability_correct_tau_zm
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4341 : write(fstderr,*) "Unknown type of double Gaussian PDF selected: ", clubb_config_flags%iiPDF_type
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.
567 : call calc_xp2_xpyp_ta_terms( nz, ngrdcol, gr, wprtp, wprtp2, wpthlp, wpthlp2, wprtpthlp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1391 : subroutine solve_xp2_xpyp_with_single_lhs( nz, ngrdcol, gr, C2x, invrs_tau_xp2_zm, rtm, thlm, wprtp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1783 : rhs_ta_wpsclrp2, rhs_ta_wprtpsclrp, rhs_ta_wpthlpsclrp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2648 : real( kind = core_rknd ), dimension(ngrdcol) :: rcond ! Est. of the reciprocal of the condition # on the matrix
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4001 : wp_coef(i,k) = ( one - one_third * beta ) * a1(i,k)**2 * wp3_on_wp2(i,k) / wp2(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4002 : wp_coef_zt(i,k) = ( one - one_third * beta ) * a1_zt(i,k)**2 * wp3_on_wp2_zt(i,k) / wp2_zt(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4183 : sgn_t_vel_sclrprtp(i,k) = sign(one,term_wprtpsclrp_explicit_zm(i,k)*sclrprtp(i,k,sclr))
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4217 : sgn_t_vel_sclrpthlp(i,k) = sign(one,term_wpthlpsclrp_explicit_zm(i,k)*sclrpthlp(i,k,sclr))
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4310 : invrs_rho_ds_zm, rho_ds_zm, & ! Intent(in) & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xp2_xpyp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1326 : var_description="rt'^3, Third-order moment of total water, rt", var_units="(kg/kg)^3", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_zt_module.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has forbidden elements: .gt. .
71 : if (time.gt.80880_time_precision) then
CLUBBStandardsCheck.pl WARNING: File has forbidden elements.
../src/Benchmark_cases/neutral_case.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : result = smooth_min(4, 1, input, zero, min_max_smth_mag) ! Order of nz and ngrdcol is opposite to order of indexing! This is very unintuitive!
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
174 : ! Case 3: Make sure that on a large number of arbitrarily chosen points with small min_max_smth_mag,
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/G_unit_test_types/smooth_min_max_tests.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1586 : wp2(1,:), rtp2(1,:), thlp2(1,:), up2(1,:), vp2(1,:), &! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/G_unit_test_types/pdf_parameter_tests.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
configurable_multi_column_nl not found, setting num_standalone_columns = 1
Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
configurable_multi_column_nl not found, setting num_standalone_columns = 1
Warning: ../input/case_setups/dycoms2_rf01_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
Directory 1 is /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/9324242cc87f0d692e5bc39f32ac50f3be0b928b.
Directory 2 is /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/0c7fc1f05bfd096c03e190497c2f2b6b7bba4582.
Diffing bomex netCDF (*.nc) files
*** Differences detected in bomex_zm.nc! ***
Diffing dycoms2_rf01 netCDF (*.nc) files
*** Differences detected in dycoms2_rf01_zm.nc! ***
There were some differences detected!
There were differences detected in netCDF (*.nc) files.
........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
292 : z_i = lin_interpolate_two_points( 8.0e-3_core_rknd, rtm(k), rtm(k-1), gr%zt(1,k), gr%zt(1,k-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/simple_rad_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
377 : z(kp2), p_in_Pa(km1), p_in_Pa(k00), p_in_Pa(kp1), p_in_Pa(kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
426 : press(i) = lin_interpolate_two_points( gr%zt(1,i), z(k), z(k-1), p_in_Pa(k), p_in_Pa(k-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/sounding.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: 'use' statement w/o 'only' found in the following line:
6481 : use netcdf
CLUBBStandardsCheck.pl WARNING: Use check FAILED!
CLUBBStandardsCheck.pl WARNING: Check that comma is on same line as 'use', as CLUBB requires.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1289 : call write_text( "l_modify_ic_with_cubic_int = ", l_modify_ic_with_cubic_int, l_write_to_file, iunit )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1290 : call write_text( "l_modify_bc_for_cnvg_test = ", l_modify_bc_for_cnvg_test, l_write_to_file, iunit )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2545 : stats_zt, stats_zm, stats_sfc, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2551 : precip_fracs, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2691 : thlm(1,:), p_in_Pa, exner(1,:), rho, rho_zm, rtm(1,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2795 : exner(1,:), cloud_frac, ice_supersat_frac, thlm(1,:), rtm(1,:), rcm(1,:), hydromet, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3413 : ! em(k) = ( 0.15_core_rknd * (1.0_core_rknd - gr%zm(1,k)/150.0_core_rknd) ) / rho_zm(k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
452 : call stat_update_var( ixp3_dp, -(C_xp3_dissipation * invrs_tau_zt(i,:))*xp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xp3_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
683 : * ( one - Skw(i,k) / sqrt( four * ( one - sigma_sqd_w(i,k) )**3 + Skw(i,k)**2 ) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/adg1_adg2_3d_luhar_pdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
327 : stability_correction(i,k) = one + min( lambda0_stability(i,k) * brunt_vaisala_freq_sqd(i,k) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
628 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
629 : ! for a plot on how output behaves with varying min_max_smth_mag
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
763 : Richardson_num(i,k) = brunt_vaisala_freq_sqd(i,k) / max( shear_sqd(i,k), turb_freq_sqd(i,k), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
764 : Richardson_num_divisor_threshold )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_helper_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
462 : = + gr%invrs_dzt(i,k) * ( K_zt(i,k) + nu(i) ) * ( gr%invrs_dzm(i,k) + gr%invrs_dzm(i,k-1) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1106 : = + gr%invrs_dzm(i,k) * ( K_zm(i,k) + nu(i) ) * ( gr%invrs_dzt(i,k+1) + gr%invrs_dzt(i,k) ) &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/diffusion.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
../src/CLUBB_core/matrix_solver_wrapper.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
480 : write(fstderr,*) "grdcol #", i, "rhs # ", n, "band_solvex backward error est. =", berr(i,n)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/lapack_wrap.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
123 : !$acc enter data create( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
141 : !$acc exit data delete( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
227 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_field_below_threshold)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
239 : !$acc exit data delete( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/fill_holes.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
43 : ! lower_1(2)*upper_1(1)+l_diag(2)*1 = lhs(0,2) => l_diag(2) = lhs(0,2) - lower_1(2)*upper_1(1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
44 : ! lower_1(2)*upper_2(1)+l_diag(2)*upper_1(2) = lhs(-1,2) => upper_1(2) = ( lhs(-1,2)-lower_1(2)*upper_2(1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
46 : ! l_diag(2)*upper_2(2) = lhs(-2,2) => upper_2(2) = lhs(-2,2) / l_diag(2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
52 : ! l_2(k)*upper_1(k-2)+lower_1(k)*1 = lhs(1,k) => lower_1(k) = lhs(1,k) - l_2(k)*upper_1(k-2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
53 : ! l_2(k)*upper_2(k-2)+lower_1(k)*upper_1(k-1) = lhs( 0,k) => l_diag(k) = lhs(0,k) - l_2(k)*upper_2(k-2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
54 : ! +l_diag(k)*1 + lower_1(k)*upper_1(k-1)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/penta_lu_solver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
342 : call calc_coefs_wpxpyp_semiimpl( nz, wp2(i,:), rtp2(i,:), thlp2(i,:), wprtp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/new_pdf_main.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
939 : write(iunit,*) "l_fix_w_chi_eta_correlations = ", clubb_config_flags%l_fix_w_chi_eta_correlations
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
956 : write(iunit,*) "l_use_tke_in_wp3_pr_turb_term = ", clubb_config_flags%l_use_tke_in_wp3_pr_turb_term
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
958 : write(iunit,*) "l_use_wp3_lim_with_smth_Heaviside = ", clubb_config_flags%l_use_wp3_lim_with_smth_Heaviside
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
960 : write(iunit,*) "l_modify_limiters_for_cnvg_test = ", clubb_config_flags%l_modify_limiters_for_cnvg_test
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/model_flags.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
528 : wstar = ( one/T0 * grav * wpthlp(i,1) * 0.2_core_rknd * depth_pos_wpthlp(i) )**(one_third)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/sfc_varnce_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
365 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
613 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
977 : ! if l_avg_Lscale is true, compute_mixing_length is called two additional
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1428 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1429 : ! for a plot on how output behaves with varying min_max_smth_mag
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1432 : logical, parameter :: l_smooth_min_max = .false. ! whether to apply smooth min and max functions
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1514 : ustar(i) = smooth_max( ( upwp_sfc(i)**2 + vpwp_sfc(i)**2 )**one_fourth, ufmin, min_max_smth_mag )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1613 : 1.e8_core_rknd * abs(brunt_vaisala_freq_sqd(i,k))**3)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1641 : brunt_vaisala_freq_clipped = smooth_max( nz, ngrdcol, 1.0e-7_core_rknd, brunt_vaisala_freq_sqd_smth, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1781 : * sqrt(em(i,k)) / ( gr%zm(i,k) - sfc_elevation(i) + z_displace ) ! small
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1866 : invrs_tau_wpxp_zm(i,k) = invrs_tau_zm(i,k) + C_invrs_tau_N2_wpxp * brunt_freq_out_cloud(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1992 : tau_zt = smooth_min( nz, ngrdcol, tau_zt_unclipped, tau_max_zt, 1.0e3_core_rknd * min_max_smth_mag )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/mixing_length.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
458 : esat(i,k) = 10._core_rknd**(-7.90298_core_rknd*(373.16_core_rknd/T_in_K_clipped-1._core_rknd)+ &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/saturation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
43 : ! lower(k)*upper(k-1)+l_diag(k)*1 = lhs( 0,k) => l_diag(k) = lhs( 0,k) - lower(k)*upper(k-1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
205 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
292 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/tridiag_lu_solver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
296 : iRichardson_num_min, iRichardson_num_max, ia3_coef_min, ia_const, iCx_min, iCx_max, ibv_efold
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1232 : um_col, vm_col, upwp_col, vpwp_col, up2_col, vp2_col, up3_col, vp3_col, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1234 : wp2_col, wp3_col, rtp2_col, rtp3_col, thlp2_col, thlp3_col, rtpthlp_col, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1976 : field ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/clubb_api_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
509 : write(fstderr,*) "l_mono_flux_lim_rtm=T with l_mono_flux_lim_spikefix=F can lead to spikes aloft."
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
944 : dt, sigma_sqd_w(i,:), wm_zm(i,:), wm_zt(i,:), wp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
945 : Lscale(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
946 : Kh_zt(i,:), Kh_zm(i,:), invrs_tau_C6_zm(i,:), Skw_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
950 : wpthlp_forcing(i,:), thlm_ref(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
956 : wp2sclrp(i,:,:), sclrpthvp(i,:,:), sclrm_forcing(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
957 : sclrp2(i,:,:), exner(i,:), rcm(i,:), p_in_Pa(i,:), thvm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
960 : um_forcing(i,:), vm_forcing(i,:), ug(i,:), vg(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
961 : wpthvp(i,:), fcor(i), um_ref(i,:), vm_ref(i,:), up2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
962 : vp2(i,:), uprcp(i,:), vprcp(i,:), rc_coef(i,:), rtm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
963 : wprtp(i,:), thlm(i,:), wpthlp(i,:), sclrm(i,:,:), wpsclrp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
964 : um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), rtm_old(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
966 : sclrm_old(i,:,:), wpsclrp_old(i,:,:), um_old(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3021 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4111 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In
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.
567 : call calc_xp2_xpyp_ta_terms( nz, ngrdcol, gr, wprtp, wprtp2, wpthlp, wpthlp2, wprtpthlp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1391 : subroutine solve_xp2_xpyp_with_single_lhs( nz, ngrdcol, gr, C2x, invrs_tau_xp2_zm, rtm, thlm, wprtp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1783 : rhs_ta_wpsclrp2, rhs_ta_wprtpsclrp, rhs_ta_wpthlpsclrp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2648 : real( kind = core_rknd ), dimension(ngrdcol) :: rcond ! Est. of the reciprocal of the condition # on the matrix
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4001 : wp_coef(i,k) = ( one - one_third * beta ) * a1(i,k)**2 * wp3_on_wp2(i,k) / wp2(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4002 : wp_coef_zt(i,k) = ( one - one_third * beta ) * a1_zt(i,k)**2 * wp3_on_wp2_zt(i,k) / wp2_zt(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4183 : sgn_t_vel_sclrprtp(i,k) = sign(one,term_wprtpsclrp_explicit_zm(i,k)*sclrprtp(i,k,sclr))
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4217 : sgn_t_vel_sclrpthlp(i,k) = sign(one,term_wpthlpsclrp_explicit_zm(i,k)*sclrpthlp(i,k,sclr))
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4310 : invrs_rho_ds_zm, rho_ds_zm, & ! Intent(in) & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/advance_xp2_xpyp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2304 : integer :: grid_level = 1 ! grid level for stats where there is only one sensible level (eg timeseries)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2864 : write(fstderr, *) "Warning: tot_vartn_normlzd_thlm tried to divide by zero denominator ", &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2877 : write(fstderr, *) "Warning: tot_vartn_normlzd_wprtp tried to divide by zero denominator ", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
899 : !$acc wprtp_sfc, upwp_sfc, vpwp_sfc, sclrm_forcing, wpsclrp_sfc, edsclrm_forcing, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
975 : !$acc rc_coef_zm, Km_zm, Kmh_zm, gamma_Skw_fnc, sigma_sqd_w, sigma_sqd_w_tmp, sigma_sqd_w_zt, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1054 : ( nz, thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1055 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1056 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1057 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1058 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1059 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1060 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1061 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1064 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1065 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1860 : call stat_update_var(ibrunt_vaisala_freq_sqd_splat, brunt_vaisala_freq_sqd_splat(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1878 : clubb_config_flags%l_modify_limiters_for_cnvg_test, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1879 : stats_zm, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1904 : call advance_xm_wpxp( nz, ngrdcol, gr, dt_advance, sigma_sqd_w, wm_zm, wm_zt, wp2, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1968 : sclrm(i,:,:), sclrm_trsport_only(i,:,:), & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2745 : thlm(i,:), rtm(i,:), wprtp(i,:), wpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2746 : wp2(i,:), wp3(i,:), rtp2(i,:), rtp3(i,:), thlp2(i,:), thlp3(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2747 : wpthvp(i,:), wp2thvp(i,:), rtpthvp(i,:), thlpthvp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2748 : p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2749 : rho_ds_zm(i,:), rho_ds_zt(i,:), thv_ds_zm(i,:), thv_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2750 : wm_zt(i,:), wm_zm(i,:), rcm(i,:), wprcp(i,:), rc_coef(i,:), rc_coef_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2751 : rcm_zm(i,:), rtm_zm(i,:), thlm_zm(i,:), cloud_frac(i,:), ice_supersat_frac(i,:),& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2754 : thvm(i,:), ug(i,:), vg(i,:), Lscale(i,:), wpthlp2(i,:), wp2thlp(i,:), wprtp2(i,:), wp2rtp(i,:),& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2755 : Lscale_up(i,:), Lscale_down(i,:), tau_zt(i,:), Kh_zt(i,:), wp2rcp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2756 : wprtpthlp(i,:), sigma_sqd_w_zt(i,:), rsat(i,:), wp2_zt(i,:), thlp2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2757 : wpthlp_zt(i,:), wprtp_zt(i,:), rtp2_zt(i,:), rtpthlp_zt(i,:), up2_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2758 : vp2_zt(i,:), upwp_zt(i,:), vpwp_zt(i,:), wpup2(i,:), wpvp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2761 : rtprcp(i,:), rcp2(i,:), em(i,:), a3_coef(i,:), a3_coef_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2762 : wp3_zm(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), Skw_velocity(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2765 : pdf_params_single_col(i), pdf_params_zm_single_col(i), sclrm(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2766 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), sclrpthvp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2767 : wpsclrp(i,:,:), sclrprcp(i,:,:), wp2sclrp(i,:,:), wpsclrp2(i,:,:), wpsclrprtp(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2768 : wpsclrpthlp(i,:,:), wpedsclrp(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2788 : nz, thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2789 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2790 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2791 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2792 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2793 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2794 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2795 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2798 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2799 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2891 : !$acc rc_coef_zm, Km_zm, Kmh_zm, gamma_Skw_fnc, sigma_sqd_w, sigma_sqd_w_tmp, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2892 : !$acc sqrt_em_zt, xp3_coef_fnc, w_1_zm, w_2_zm, varnce_w_1_zm, varnce_w_2_zm, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2897 : !$acc invrs_tau_C4_zm, invrs_tau_C14_zm, invrs_tau_wp2_zm, invrs_tau_wpxp_zm, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2898 : !$acc invrs_tau_wp3_zm, invrs_tau_no_N2_zm, invrs_tau_bkgnd, invrs_tau_shear, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4303 : write(fstderr,*) "l_stability_correct_tau_zm = ", clubb_config_flags%l_stability_correct_tau_zm
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
4341 : write(fstderr,*) "Unknown type of double Gaussian PDF selected: ", clubb_config_flags%iiPDF_type
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.
235 : real( kind = core_rknd ), dimension(ngrdcol, nz, min(1,sclr_dim), 2 ), intent(in) :: & ! h1g, 2010-06-15
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
591 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
592 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
622 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
623 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
634 : call LY93_driver( nz, wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
635 : thlp2(i,:), Skw(i,:), Skrt(i,:), Skthl(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
989 : pdf_params%rsatl_1(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl1(i,:) ) * RH_crit(i, :, 1, 1)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1004 : pdf_params%rsatl_2(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl2(i,:) ) * RH_crit(i, :, 1, 2)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1131 : rcm(i,k) = pdf_params%mixt_frac(i,k) * pdf_params%rc_1(i,k) + ( one - pdf_params%mixt_frac(i,k) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1306 : = pdf_params%mixt_frac(i,k) * ( ( sclr1(i,k,j) - sclrm(i,k,j) ) * pdf_params%rc_1(i,k) ) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1312 : + ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_rt_2(i,k,j) * pdf_params%crt_2(i,k) &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1318 : - ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_thl_2(i,k,j) * pdf_params%cthl_2(i,k) &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/pdf_closure_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1326 : var_description="rt'^3, Third-order moment of total water, rt", var_units="(kg/kg)^3", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/stats_zt_module.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has forbidden elements: .gt. .
71 : if (time.gt.80880_time_precision) then
CLUBBStandardsCheck.pl WARNING: File has forbidden elements.
../src/Benchmark_cases/neutral_case.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : result = smooth_min(4, 1, input, zero, min_max_smth_mag) ! Order of nz and ngrdcol is opposite to order of indexing! This is very unintuitive!
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
174 : ! Case 3: Make sure that on a large number of arbitrarily chosen points with small min_max_smth_mag,
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/G_unit_test_types/smooth_min_max_tests.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1586 : wp2(1,:), rtp2(1,:), thlp2(1,:), up2(1,:), vp2(1,:), &! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/G_unit_test_types/pdf_parameter_tests.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
configurable_multi_column_nl not found, setting num_standalone_columns = 1
Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
configurable_multi_column_nl not found, setting num_standalone_columns = 1
Warning: ../input/case_setups/dycoms2_rf01_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
Directory 1 is /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/9ada7441e588502eeb7f757cd0d618d8803bd08d.
Directory 2 is /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/9324242cc87f0d692e5bc39f32ac50f3be0b928b.
Diffing bomex netCDF (*.nc) files
*** Differences detected in bomex_zm.nc! ***
Diffing dycoms2_rf01 netCDF (*.nc) files
*** Differences detected in dycoms2_rf01_zm.nc! ***
There were some differences detected!
There were differences detected in netCDF (*.nc) files.
Directory 1 is /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/b0101dc46f5324451c8273188032bda60d135e41.
Directory 2 is /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/9ada7441e588502eeb7f757cd0d618d8803bd08d.
Diffing bomex netCDF (*.nc) files
*** Differences detected in bomex_zm.nc! ***
Diffing dycoms2_rf01 netCDF (*.nc) files
*** Differences detected in dycoms2_rf01_zm.nc! ***
There were some differences detected!
There were differences detected in netCDF (*.nc) files.
=============================== Configuring Test ===============================
Working directory set to: .
Trying to clone repo...
Cloned repo location: /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo
Output Save Mode: none
Using branch: master
Making list from 'UnresolvedCommits':
Run Output Path: repo/output
Run commands: ['repo/compile/compile.bash', '\nrm -rf repo/output', 'mkdir repo/output', '\ncp repo/input/tunable_parameters_compatible_r8029/configurable_model_flags.in repo/input/tunable_parameters', '\ncp repo/input/tunable_parameters_compatible_r8029/silhs_parameters.in repo/input/tunable_parameters', '\ncp repo/input/tunable_parameters_compatible_r8029/tunable_parameters.in repo/input/tunable_parameters', '\nrepo/run_scripts/run_scm.bash bomex', '\nrepo/run_scripts/run_scm.bash dycoms2_rf01']
Diffing command: repo/run_scripts/run_bindiff_all.bash
=============================== Running Test ===============================
Parsing message from commit: 9324242cc87f0d692e5bc39f32ac50f3be0b928b
Parsing message from commit: 9ada7441e588502eeb7f757cd0d618d8803bd08d
Parsing message from commit: b0101dc46f5324451c8273188032bda60d135e41
Checking Commit: 9324242cc87f0d692e5bc39f32ac50f3be0b928b
Skipping: not final commit and not labelled BIT_CHANGING
Checking Commit: 9ada7441e588502eeb7f757cd0d618d8803bd08d
Skipping: not final commit and not labelled BIT_CHANGING
Checking Commit: b0101dc46f5324451c8273188032bda60d135e41
Running: final commit to check, not labelled BIT_CHANGING
Checking out b0101dc46f5324451c8273188032bda60d135e41
Running: 'repo/compile/compile.bash'
Running: '
rm -rf repo/output'
Running: 'mkdir repo/output'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/configurable_model_flags.in repo/input/tunable_parameters'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/silhs_parameters.in repo/input/tunable_parameters'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/tunable_parameters.in repo/input/tunable_parameters'
Running: '
repo/run_scripts/run_scm.bash bomex'
Running: '
repo/run_scripts/run_scm.bash dycoms2_rf01'
Checking out 0c7fc1f05bfd096c03e190497c2f2b6b7bba4582
Running: 'repo/compile/compile.bash'
Running: '
rm -rf repo/output'
Running: 'mkdir repo/output'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/configurable_model_flags.in repo/input/tunable_parameters'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/silhs_parameters.in repo/input/tunable_parameters'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/tunable_parameters.in repo/input/tunable_parameters'
Running: '
repo/run_scripts/run_scm.bash bomex'
Running: '
repo/run_scripts/run_scm.bash dycoms2_rf01'
Diffing: 'repo/run_scripts/run_bindiff_all.bash b0101dc46f5324451c8273188032bda60d135e41 0c7fc1f05bfd096c03e190497c2f2b6b7bba4582'
[31m ISSUE WITH COMMIT DETECTED: b0101dc46f5324451c8273188032bda60d135e41 differs from 0c7fc1f05bfd096c03e190497c2f2b6b7bba4582[0m
Finding all BIT_CHANGING commits in range: 0c7fc1f05bfd096c03e190497c2f2b6b7bba4582...b0101dc46f5324451c8273188032bda60d135e41
Checking out 9324242cc87f0d692e5bc39f32ac50f3be0b928b
Running: 'repo/compile/compile.bash'
Running: '
rm -rf repo/output'
Running: 'mkdir repo/output'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/configurable_model_flags.in repo/input/tunable_parameters'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/silhs_parameters.in repo/input/tunable_parameters'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/tunable_parameters.in repo/input/tunable_parameters'
Running: '
repo/run_scripts/run_scm.bash bomex'
Running: '
repo/run_scripts/run_scm.bash dycoms2_rf01'
Output from 0c7fc1f05bfd096c03e190497c2f2b6b7bba4582 already saved
Diffing: 'repo/run_scripts/run_bindiff_all.bash 9324242cc87f0d692e5bc39f32ac50f3be0b928b 0c7fc1f05bfd096c03e190497c2f2b6b7bba4582'
Checking out 9ada7441e588502eeb7f757cd0d618d8803bd08d
Running: 'repo/compile/compile.bash'
Running: '
rm -rf repo/output'
Running: 'mkdir repo/output'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/configurable_model_flags.in repo/input/tunable_parameters'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/silhs_parameters.in repo/input/tunable_parameters'
Running: '
cp repo/input/tunable_parameters_compatible_r8029/tunable_parameters.in repo/input/tunable_parameters'
Running: '
repo/run_scripts/run_scm.bash bomex'
Running: '
repo/run_scripts/run_scm.bash dycoms2_rf01'
Output from 9324242cc87f0d692e5bc39f32ac50f3be0b928b already saved
Diffing: 'repo/run_scripts/run_bindiff_all.bash 9ada7441e588502eeb7f757cd0d618d8803bd08d 9324242cc87f0d692e5bc39f32ac50f3be0b928b'
Output from b0101dc46f5324451c8273188032bda60d135e41 already saved
Output from 9ada7441e588502eeb7f757cd0d618d8803bd08d already saved
Diffing: 'repo/run_scripts/run_bindiff_all.bash b0101dc46f5324451c8273188032bda60d135e41 9ada7441e588502eeb7f757cd0d618d8803bd08d'
Found:
9324242cc87f0d692e5bc39f32ac50f3be0b928b
9ada7441e588502eeb7f757cd0d618d8803bd08d
b0101dc46f5324451c8273188032bda60d135e41
=============================== Test Results ===============================
Commit Range Checked = 0c7fc1f05bfd096c03e190497c2f2b6b7bba4582...b0101dc46f5324451c8273188032bda60d135e41
New Unresolved Commits:
9324242cc87f0d692e5bc39f32ac50f3be0b928b
9ada7441e588502eeb7f757cd0d618d8803bd08d
b0101dc46f5324451c8273188032bda60d135e41
No fake BIT_CHANGING commits found.
Remaining Unresolved Commits (oldest commit is listed first):
9324242cc87f0d692e5bc39f32ac50f3be0b928b
9ada7441e588502eeb7f757cd0d618d8803bd08d
b0101dc46f5324451c8273188032bda60d135e41
=============================== Updating Config File ===============================
Saving into UnresolvedCommits: 9324242cc87f0d692e5bc39f32ac50f3be0b928b
9ada7441e588502eeb7f757cd0d618d8803bd08d
b0101dc46f5324451c8273188032bda60d135e41
Saving into BaselineCommit: b0101dc46f5324451c8273188032bda60d135e41
=============================== Cleanup ===============================
Removed repo.
Removing all generated output
REMOVING: 0c7fc1f05bfd096c03e190497c2f2b6b7bba4582
REMOVING: 9324242cc87f0d692e5bc39f32ac50f3be0b928b
REMOVING: 9ada7441e588502eeb7f757cd0d618d8803bd08d
REMOVING: b0101dc46f5324451c8273188032bda60d135e41
================== Unresolved Commit Status ==================
Remaining Unresolved Commits (oldest commit is listed first):
9324242cc87f0d692e5bc39f32ac50f3be0b928b
9ada7441e588502eeb7f757cd0d618d8803bd08d
b0101dc46f5324451c8273188032bda60d135e41
Exiting with code: 1
[Pipeline] }
[Pipeline] // stage
[Pipeline] stage
[Pipeline] { (Declarative: Post Actions)
[Pipeline] script
[Pipeline] {
[Pipeline] cleanWs
[WS-CLEANUP] Deleting project workspace...
[WS-CLEANUP] Deferred wipeout is used...
[WS-CLEANUP] done
[Pipeline] }
[Pipeline] // script
[Pipeline] script
[Pipeline] {
[Pipeline] emailext
Sending email to: messnermet@uwm.edu
[Pipeline] }
[Pipeline] // script
[Pipeline] }
[Pipeline] // stage
[Pipeline] }
[Pipeline] // withEnv
[Pipeline] }
[Pipeline] // node
[Pipeline] End of Pipeline
ERROR: script returned exit code 1
Finished: FAILURE
![[Jenkins]](/jenkins/static/9dada5b8/images/svgs/logo.svg){kind=logo}
