Skipping 37 KB..
Full LogTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTestTest
../src/simple_rad_module.F90:625:74: Warning: 'MEM <real(kind=8)> [(real(kind=8)[0:D.5909] *)_15 + -8B]' may be used uninitialized [-Wmaybe-uninitialized]
../src/simple_rad_module.F90:625:74: Warning: 'MEM <real(kind=8)> [(real(kind=8)[0:D.5909] *)_15 + -16B]' may be used uninitialized [-Wmaybe-uninitialized]
../src/KK_microphys_module.F90:43:35:
43 | subroutine KK_local_microphys( gr, dt, nzt, & ! In
| 1
Warning: Unused dummy argument 'gr' at (1) [-Wunused-dummy-argument]
../src/sounding.F90:160:13:
160 | p_in_Pa, & ! Pressure [Pa]
| 1
Warning: Array 'p_in_pa' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
../src/sounding.F90:155:8:
155 | rt, & ! Total water mixing ratio sounding [kg/kg]
| 1
Warning: Array 'rt' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
../src/sounding.F90:161:10:
161 | subs ! Vertical velocity sounding [m/s or Pa/s]
| 1
Warning: Array 'subs' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
../src/sounding.F90:154:11:
154 | theta, & ! Liquid potential temperature sounding [K]
| 1
Warning: Array 'theta' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
../src/sounding.F90:156:7:
156 | u, & ! u wind sounding [m/s]
| 1
Warning: Array 'u' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
../src/sounding.F90:158:8:
158 | ug, & ! u geostrophic wind sounding [m/s]
| 1
Warning: Array 'ug' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
../src/sounding.F90:157:7:
157 | v, & ! v wind sounding [m/s]
| 1
Warning: Array 'v' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
../src/sounding.F90:159:8:
159 | vg, & ! v geostrophic wind sounding [m/s]
| 1
Warning: Array 'vg' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
../src/sounding.F90:153:7:
153 | z, & ! Altitude [m]
| 1
Warning: Array 'z' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
../src/clubb_driver.F90:6145:8:
6145 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:6145:8:
6145 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'cp' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'em_min' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:67:8:
67 | use parameter_indices, only: &
| 1
Warning: Unused parameter 'ic_k' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'lv' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:124:8:
124 | use error_code, only: &
| 1
Warning: Unused parameter 'clubb_no_error' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'one_half' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:790:27:
790 | rho_ds_zm_dycore_init
| 1
Warning: Unused variable 'rho_ds_zm_dycore_init' declared at (1) [-Wunused-variable]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'three_halves' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:3621:99:
3621 | call stat_update_var( stats_metadata%ialt_term, alt_term_weight*alt_term, stats_zm(i) )
| ^
Warning: 'alt_term.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
../src/clubb_driver.F90:1094:14:
1094 | alt_term, &
| ^
note: 'alt_term.dim[0].ubound' was declared here
ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libclubb_other.a
../src/clubb_standalone.F90:67:26:
67 | character(len=10) :: arg
| 1
Warning: Unused variable 'arg' declared at (1) [-Wunused-variable]
../src/G_unit_test_types/mu_sigma_hm_tests.F90:511:17:
511 | if ( any( .not. l_pass_test_3 ) ) then
| ^
Warning: 'MEM[(logical(kind=4)[1] *)&l_pass_test_3]' may be used uninitialized [-Wmaybe-uninitialized]
../src/G_unit_test_types/mu_sigma_hm_tests.F90:137:19:
137 | l_pass_test_3, & ! Flag for passing test 3
| ^
note: 'MEM[(logical(kind=4)[1] *)&l_pass_test_3]' was declared here
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1971 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1972 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2562 : !$acc rcm_in_layer, cloud_cover, wprcp, w_up_in_cloud, w_down_in_cloud, cloudy_updraft_frac, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2574 : !$acc pdf_params%corr_w_thl_2, pdf_params%corr_rt_thl_1, pdf_params%corr_rt_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2575 : !$acc pdf_params%alpha_thl, pdf_params%alpha_rt, pdf_params%crt_1, pdf_params%crt_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2578 : !$acc pdf_params%stdev_eta_2, pdf_params%covar_chi_eta_1, pdf_params%covar_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2580 : !$acc pdf_params%corr_w_eta_2, pdf_params%corr_chi_eta_1, pdf_params%corr_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2586 : !$acc pdf_params_zm%thl_2, pdf_params_zm%varnce_thl_1, pdf_params_zm%varnce_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2587 : !$acc pdf_params_zm%corr_w_rt_1, pdf_params_zm%corr_w_rt_2, pdf_params_zm%corr_w_thl_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2588 : !$acc pdf_params_zm%corr_w_thl_2, pdf_params_zm%corr_rt_thl_1, pdf_params_zm%corr_rt_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2589 : !$acc pdf_params_zm%alpha_thl, pdf_params_zm%alpha_rt, pdf_params_zm%crt_1, pdf_params_zm%crt_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2590 : !$acc pdf_params_zm%cthl_1, pdf_params_zm%cthl_2, pdf_params_zm%chi_1, pdf_params_zm%chi_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2591 : !$acc pdf_params_zm%stdev_chi_1, pdf_params_zm%stdev_chi_2, pdf_params_zm%stdev_eta_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2592 : !$acc pdf_params_zm%stdev_eta_2, pdf_params_zm%covar_chi_eta_1, pdf_params_zm%covar_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2593 : !$acc pdf_params_zm%corr_w_chi_1, pdf_params_zm%corr_w_chi_2, pdf_params_zm%corr_w_eta_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2594 : !$acc pdf_params_zm%corr_w_eta_2, pdf_params_zm%corr_chi_eta_1, pdf_params_zm%corr_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2595 : !$acc pdf_params_zm%rsatl_1, pdf_params_zm%rsatl_2, pdf_params_zm%rc_1, pdf_params_zm%rc_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2643 : invrs_rho_ds_zt(i,k) = invrs_rho_ds_zt_init(k) ! inv. dry, static density: t-levs
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2649 : um_pert(i,k) = zero ! Variables used to track perturbed version of winds.
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2651 : wm_zt(i,k) = wm_zt_init(k) ! Imposed large scale w - Thermodynamic levels
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2995 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3327 : !$acc X_nl_all_levs, X_mixt_comp_all_levs, lh_sample_point_weights, mu_x_1_n, mu_x_2_n, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3329 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3333 : !$acc pdf_params%cloud_frac_1, pdf_params%cloud_frac_2, pdf_params%cthl_1, pdf_params%cthl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3334 : !$acc pdf_params%crt_1, pdf_params%crt_2, pdf_params%stdev_chi_1, pdf_params%stdev_chi_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3350 : wp2_zt = zm2zt_api( gr%nzm, gr%nzt, ngrdcol, gr, wp2, w_tol_sqd ) ! Positive definite quantity
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3356 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3357 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3358 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3374 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3375 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3376 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3377 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3378 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3379 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3380 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3381 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3382 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3406 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3407 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3408 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3409 : thlm_mc(i,:), err_info, & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3410 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3419 : !$acc update device( rcm_mc, rvm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3477 : !$acc update host( rvm_mc, rcm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3483 : call stat_update_var( stats_metadata%irtm_mc, rvm_mc(i,:)+rcm_mc(i,:), stats_zt(i) ) ! kg/kg/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3485 : call stat_update_var( stats_metadata%iwprtp_mc, wprtp_mc(i,:), stats_zm(i) ) ! m*(kg/kg)/s^2
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3487 : call stat_update_var( stats_metadata%irtp2_mc, rtp2_mc(i,:), stats_zm(i) ) ! (kg/kg)^2/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3489 : call stat_update_var( stats_metadata%irtpthlp_mc, rtpthlp_mc(i,:), stats_zm(i) ) ! K*(kg/kg)/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3506 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, X_nl_all_levs, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3526 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, thlm, rtm, rcm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3566 : call update_radiation_variables( gr%nzm, gr%nzt, radht(i,:), Frad_SW_up(i,:), Frad_LW_up(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3694 : if ( ( stats_metadata%l_stats_last .or. stats_metadata%l_stats .or. l_output_multi_col ) .and. l_stdout ) then
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6380 : !$acc enter data create( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6546 : !$acc update device( wm_zt, wm_zm, thlm_forcing, rtm_forcing, um_ref, vm_ref, sclrm_forcing, edsclrm_forcing )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6948 : call stat_update_var_pt( stats_metadata%ish, 1, wpthlp_sfc(i)*rho_zm(i,1)*Cp,& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6951 : call stat_update_var_pt( stats_metadata%ilh, 1, wprtp_sfc(i)*rho_zm(i,1)*Lv, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6954 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6957 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6960 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6963 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6966 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6969 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6975 : !$acc exit data delete( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7177 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7181 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7185 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7186 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7189 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7190 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7193 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7194 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/clubb_driver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function.
CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning
endCheck failed: ../src/error.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/generalized_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
899 : pdf_params_zm_flip%ice_supersat_frac_1(i,:) = flip( pdf_params_zm%ice_supersat_frac_1(i,:), nzm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
900 : pdf_params_zm_flip%ice_supersat_frac_2(i,:) = flip( pdf_params_zm%ice_supersat_frac_2(i,:), nzm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1067 : rtm_ref_flip, thlm_ref_flip, um_ref_flip, vm_ref_flip, ug_flip, vg_flip, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1079 : um_flip, vm_flip, upwp_flip, vpwp_flip, up2_flip, vp2_flip, up3_flip, vp3_flip, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1081 : wp2_flip, wp3_flip, rtp2_flip, rtp3_flip, thlp2_flip, thlp3_flip, rtpthlp_flip, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1087 : wp2rtp_flip, wp2thlp_flip, uprcp_flip, vprcp_flip, rc_coef_zm_flip, wp4_flip, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1088 : wpup2_flip, wpvp2_flip, wp2up2_flip, wp2vp2_flip, ice_supersat_frac_flip, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/generalized_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
303 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
307 : !$acc update device( mu_x_1_n, mu_x_2_n, sigma_x_1_n, sigma_x_2_n, corr_array_1_n, corr_array_2_n, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
366 : ! Rather than using the seed just to intialize the random number generator at the first timestep, we use it every
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
367 : ! timestep. Thus this seed defines the randoms, that way we can reproduce results for restart runs by using a
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
368 : ! reproducible seed. If we didn't do it this way, we would have to save the internal state of the random number
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
369 : ! generator to disk each timestep, then read it back in to reinitialize the random number generator
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
410 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
213 : stats_sfc(i) ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/soil_vegetation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/sounding.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 8 check(s) failed.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1002 : call windm_edsclrm_rhs( nzm, nzt, ngrdcol, gr, windm_edsclrm_scalar, dt, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1003 : lhs_diff, edsclrm(:,:,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1004 : edsclrm_forcing(:,:,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1005 : rho_ds_zm, invrs_rho_ds_zt, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1006 : l_imp_sfc_momentum_flux, wpedsclrp(:,gr%k_lb_zm,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1007 : stats_metadata, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1008 : stats_zt, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1009 : rhs(:,:,edsclr) ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/advance_windm_edsclrm_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
782 : call wpxp_term_pr1_lhs( nzm, ngrdcol, gr, C6rt_Skw_fnc, C6thl_Skw_fnc, C7_Skw_fnc, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
783 : invrs_tau_C6_zm, l_scalar_calc, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
784 : lhs_pr1_wprtp, lhs_pr1_wpthlp, lhs_pr1_wpsclrp ) ! Intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
862 : stats_zt, stats_zm, stats_sfc, & ! InOut
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
863 : rtm, wprtp, thlm, wpthlp, sclrm, wpsclrp, & ! InOut
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
864 : err_info ) ! InOut
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/advance_xm_wpxp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1319 : sclrprtp(:,:,sclr) ) ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1354 : sclrpthlp(:,:,sclr) ) ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/advance_xp2_xpyp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/CLUBB_core/err_info_type_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
265 : write(err_info%err_header_global,'(A38, I3, A15, I3, A, A28, A33, F6.2, A1, F6.2, A, A39, A40)') &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
276 : write(err_info%err_header(i),'(A38, I3, A15, I3, A, A22, I2, A11, F6.2, A13, F6.2, A, A39, A40)') &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/err_info_type_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
295 : write(fstderr, *) "The fixed minimum grid density momentum heights need to cover at least the domain of the physics grid."
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/grid_adaptation_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
688 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
839 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted "
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/mono_flux_limiter.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED!
CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function.
implicitCheck failed: ../src/CLUBB_core/mt95.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1747 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1748 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1749 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1801 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1802 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1803 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1849 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1850 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1852 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1979 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/output_netcdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
775 : call sfc_varnce_check( sclr_dim, wp2(i,gr%k_lb_zm), up2(i,gr%k_lb_zm), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
776 : vp2(i,gr%k_lb_zm), thlp2(i,gr%k_lb_zm), rtp2(i,gr%k_lb_zm), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
777 : rtpthlp(i,gr%k_lb_zm), sclrp2(i,gr%k_lb_zm,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
778 : sclrprtp(i,gr%k_lb_zm,:), sclrpthlp(i,gr%k_lb_zm,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
779 : err_info ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/sfc_varnce_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3004 : call stat_update_var( stats_metadata%icovar_chi_eta_1, pdf_params%covar_chi_eta_1(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3006 : call stat_update_var( stats_metadata%icovar_chi_eta_2, pdf_params%covar_chi_eta_2(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3016 : call stat_update_var( stats_metadata%icorr_chi_eta_1, pdf_params%corr_chi_eta_1(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3018 : call stat_update_var( stats_metadata%icorr_chi_eta_2, pdf_params%corr_chi_eta_2(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3079 : chip2 = compute_variance_binormal( chi, pdf_params%chi_1(icol,:), pdf_params%chi_2(icol,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3080 : pdf_params%stdev_chi_1(icol,:), pdf_params%stdev_chi_2(icol,:), &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2449 : call stat_assign( var_index=stats_metadata%inorm_min_grid_dens, var_name="norm_min_grid_dens", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/stats_zm_module.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 12 check(s) failed.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/bomex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/dycoms2_rf01.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/dycoms2_rf02.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/gabls2.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/lba.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/mpace_a.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/mpace_b.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/rico.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/wangara.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 9 check(s) failed.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
229 : !seed used = -1102123834 1480475276 -248259584 525496705 1614213535 -1267052688 6290033 -78466652
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
230 : !seed_output = (/ -1102123834, 1480475276, -248259584, 525496705, 1614213535, -1267052688, 6290033, -78466652 /)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
746 : call xpyp_term_ta_pdf_lhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
750 : call xpyp_term_ta_pdf_lhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
791 : call xpyp_term_ta_pdf_rhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
797 : call xpyp_term_ta_pdf_rhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 2 check(s) failed.
multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 1
Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 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.
1971 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1972 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2562 : !$acc rcm_in_layer, cloud_cover, wprcp, w_up_in_cloud, w_down_in_cloud, cloudy_updraft_frac, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2574 : !$acc pdf_params%corr_w_thl_2, pdf_params%corr_rt_thl_1, pdf_params%corr_rt_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2575 : !$acc pdf_params%alpha_thl, pdf_params%alpha_rt, pdf_params%crt_1, pdf_params%crt_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2578 : !$acc pdf_params%stdev_eta_2, pdf_params%covar_chi_eta_1, pdf_params%covar_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2580 : !$acc pdf_params%corr_w_eta_2, pdf_params%corr_chi_eta_1, pdf_params%corr_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2586 : !$acc pdf_params_zm%thl_2, pdf_params_zm%varnce_thl_1, pdf_params_zm%varnce_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2587 : !$acc pdf_params_zm%corr_w_rt_1, pdf_params_zm%corr_w_rt_2, pdf_params_zm%corr_w_thl_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2588 : !$acc pdf_params_zm%corr_w_thl_2, pdf_params_zm%corr_rt_thl_1, pdf_params_zm%corr_rt_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2589 : !$acc pdf_params_zm%alpha_thl, pdf_params_zm%alpha_rt, pdf_params_zm%crt_1, pdf_params_zm%crt_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2590 : !$acc pdf_params_zm%cthl_1, pdf_params_zm%cthl_2, pdf_params_zm%chi_1, pdf_params_zm%chi_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2591 : !$acc pdf_params_zm%stdev_chi_1, pdf_params_zm%stdev_chi_2, pdf_params_zm%stdev_eta_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2592 : !$acc pdf_params_zm%stdev_eta_2, pdf_params_zm%covar_chi_eta_1, pdf_params_zm%covar_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2593 : !$acc pdf_params_zm%corr_w_chi_1, pdf_params_zm%corr_w_chi_2, pdf_params_zm%corr_w_eta_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2594 : !$acc pdf_params_zm%corr_w_eta_2, pdf_params_zm%corr_chi_eta_1, pdf_params_zm%corr_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2595 : !$acc pdf_params_zm%rsatl_1, pdf_params_zm%rsatl_2, pdf_params_zm%rc_1, pdf_params_zm%rc_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2643 : invrs_rho_ds_zt(i,k) = invrs_rho_ds_zt_init(k) ! inv. dry, static density: t-levs
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2649 : um_pert(i,k) = zero ! Variables used to track perturbed version of winds.
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2651 : wm_zt(i,k) = wm_zt_init(k) ! Imposed large scale w - Thermodynamic levels
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2995 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3327 : !$acc X_nl_all_levs, X_mixt_comp_all_levs, lh_sample_point_weights, mu_x_1_n, mu_x_2_n, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3329 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3333 : !$acc pdf_params%cloud_frac_1, pdf_params%cloud_frac_2, pdf_params%cthl_1, pdf_params%cthl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3334 : !$acc pdf_params%crt_1, pdf_params%crt_2, pdf_params%stdev_chi_1, pdf_params%stdev_chi_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3350 : wp2_zt = zm2zt_api( gr%nzm, gr%nzt, ngrdcol, gr, wp2, w_tol_sqd ) ! Positive definite quantity
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3356 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3357 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3358 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3374 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3375 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3376 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3377 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3378 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3379 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3380 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3381 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3382 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3406 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3407 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3408 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3409 : thlm_mc(i,:), err_info, & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3410 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3419 : !$acc update device( rcm_mc, rvm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3477 : !$acc update host( rvm_mc, rcm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3483 : call stat_update_var( stats_metadata%irtm_mc, rvm_mc(i,:)+rcm_mc(i,:), stats_zt(i) ) ! kg/kg/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3485 : call stat_update_var( stats_metadata%iwprtp_mc, wprtp_mc(i,:), stats_zm(i) ) ! m*(kg/kg)/s^2
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3487 : call stat_update_var( stats_metadata%irtp2_mc, rtp2_mc(i,:), stats_zm(i) ) ! (kg/kg)^2/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3489 : call stat_update_var( stats_metadata%irtpthlp_mc, rtpthlp_mc(i,:), stats_zm(i) ) ! K*(kg/kg)/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3506 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, X_nl_all_levs, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3526 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, thlm, rtm, rcm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3566 : call update_radiation_variables( gr%nzm, gr%nzt, radht(i,:), Frad_SW_up(i,:), Frad_LW_up(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3694 : if ( ( stats_metadata%l_stats_last .or. stats_metadata%l_stats .or. l_output_multi_col ) .and. l_stdout ) then
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6380 : !$acc enter data create( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6546 : !$acc update device( wm_zt, wm_zm, thlm_forcing, rtm_forcing, um_ref, vm_ref, sclrm_forcing, edsclrm_forcing )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6948 : call stat_update_var_pt( stats_metadata%ish, 1, wpthlp_sfc(i)*rho_zm(i,1)*Cp,& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6951 : call stat_update_var_pt( stats_metadata%ilh, 1, wprtp_sfc(i)*rho_zm(i,1)*Lv, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6954 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6957 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6960 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6963 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6966 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6969 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6975 : !$acc exit data delete( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7177 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7181 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7185 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7186 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7189 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7190 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7193 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7194 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/clubb_driver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function.
CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning
endCheck failed: ../src/error.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/generalized_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
899 : pdf_params_zm_flip%ice_supersat_frac_1(i,:) = flip( pdf_params_zm%ice_supersat_frac_1(i,:), nzm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
900 : pdf_params_zm_flip%ice_supersat_frac_2(i,:) = flip( pdf_params_zm%ice_supersat_frac_2(i,:), nzm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1067 : rtm_ref_flip, thlm_ref_flip, um_ref_flip, vm_ref_flip, ug_flip, vg_flip, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1079 : um_flip, vm_flip, upwp_flip, vpwp_flip, up2_flip, vp2_flip, up3_flip, vp3_flip, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1081 : wp2_flip, wp3_flip, rtp2_flip, rtp3_flip, thlp2_flip, thlp3_flip, rtpthlp_flip, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1087 : wp2rtp_flip, wp2thlp_flip, uprcp_flip, vprcp_flip, rc_coef_zm_flip, wp4_flip, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1088 : wpup2_flip, wpvp2_flip, wp2up2_flip, wp2vp2_flip, ice_supersat_frac_flip, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/generalized_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
303 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
307 : !$acc update device( mu_x_1_n, mu_x_2_n, sigma_x_1_n, sigma_x_2_n, corr_array_1_n, corr_array_2_n, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
366 : ! Rather than using the seed just to intialize the random number generator at the first timestep, we use it every
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
367 : ! timestep. Thus this seed defines the randoms, that way we can reproduce results for restart runs by using a
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
368 : ! reproducible seed. If we didn't do it this way, we would have to save the internal state of the random number
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
369 : ! generator to disk each timestep, then read it back in to reinitialize the random number generator
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
410 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
213 : stats_sfc(i) ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/soil_vegetation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/sounding.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 8 check(s) failed.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1002 : call windm_edsclrm_rhs( nzm, nzt, ngrdcol, gr, windm_edsclrm_scalar, dt, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1003 : lhs_diff, edsclrm(:,:,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1004 : edsclrm_forcing(:,:,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1005 : rho_ds_zm, invrs_rho_ds_zt, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1006 : l_imp_sfc_momentum_flux, wpedsclrp(:,gr%k_lb_zm,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1007 : stats_metadata, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1008 : stats_zt, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1009 : rhs(:,:,edsclr) ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/advance_windm_edsclrm_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
782 : call wpxp_term_pr1_lhs( nzm, ngrdcol, gr, C6rt_Skw_fnc, C6thl_Skw_fnc, C7_Skw_fnc, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
783 : invrs_tau_C6_zm, l_scalar_calc, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
784 : lhs_pr1_wprtp, lhs_pr1_wpthlp, lhs_pr1_wpsclrp ) ! Intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
862 : stats_zt, stats_zm, stats_sfc, & ! InOut
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
863 : rtm, wprtp, thlm, wpthlp, sclrm, wpsclrp, & ! InOut
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
864 : err_info ) ! InOut
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/advance_xm_wpxp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1319 : sclrprtp(:,:,sclr) ) ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1354 : sclrpthlp(:,:,sclr) ) ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/advance_xp2_xpyp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/CLUBB_core/err_info_type_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
265 : write(err_info%err_header_global,'(A38, I3, A15, I3, A, A28, A33, F6.2, A1, F6.2, A, A39, A40)') &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
276 : write(err_info%err_header(i),'(A38, I3, A15, I3, A, A22, I2, A11, F6.2, A13, F6.2, A, A39, A40)') &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/err_info_type_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
295 : write(fstderr, *) "The fixed minimum grid density momentum heights need to cover at least the domain of the physics grid."
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/grid_adaptation_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
688 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
839 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted "
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/mono_flux_limiter.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED!
CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function.
implicitCheck failed: ../src/CLUBB_core/mt95.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1747 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1748 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1749 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1801 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1802 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1803 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1849 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1850 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1852 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1979 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/output_netcdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
775 : call sfc_varnce_check( sclr_dim, wp2(i,gr%k_lb_zm), up2(i,gr%k_lb_zm), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
776 : vp2(i,gr%k_lb_zm), thlp2(i,gr%k_lb_zm), rtp2(i,gr%k_lb_zm), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
777 : rtpthlp(i,gr%k_lb_zm), sclrp2(i,gr%k_lb_zm,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
778 : sclrprtp(i,gr%k_lb_zm,:), sclrpthlp(i,gr%k_lb_zm,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
779 : err_info ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/sfc_varnce_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3004 : call stat_update_var( stats_metadata%icovar_chi_eta_1, pdf_params%covar_chi_eta_1(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3006 : call stat_update_var( stats_metadata%icovar_chi_eta_2, pdf_params%covar_chi_eta_2(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3016 : call stat_update_var( stats_metadata%icorr_chi_eta_1, pdf_params%corr_chi_eta_1(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3018 : call stat_update_var( stats_metadata%icorr_chi_eta_2, pdf_params%corr_chi_eta_2(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3079 : chip2 = compute_variance_binormal( chi, pdf_params%chi_1(icol,:), pdf_params%chi_2(icol,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3080 : pdf_params%stdev_chi_1(icol,:), pdf_params%stdev_chi_2(icol,:), &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2449 : call stat_assign( var_index=stats_metadata%inorm_min_grid_dens, var_name="norm_min_grid_dens", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/stats_zm_module.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 12 check(s) failed.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/bomex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/dycoms2_rf01.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/dycoms2_rf02.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/gabls2.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/lba.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/mpace_a.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/mpace_b.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/rico.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/wangara.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 9 check(s) failed.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
229 : !seed used = -1102123834 1480475276 -248259584 525496705 1614213535 -1267052688 6290033 -78466652
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
230 : !seed_output = (/ -1102123834, 1480475276, -248259584, 525496705, 1614213535, -1267052688, 6290033, -78466652 /)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
746 : call xpyp_term_ta_pdf_lhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
750 : call xpyp_term_ta_pdf_lhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
791 : call xpyp_term_ta_pdf_rhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
797 : call xpyp_term_ta_pdf_rhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 2 check(s) failed.
multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 1
Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 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 320551df13ee84bdb9280db0be788a36e1f03494
Directory 2 is eac573b2f186d900e285d06c2fd5a933316b7c4e
Using reporting threshold: 0.0
The following cases will be compared: ['bomex', 'dycoms2_rf01']
###DIFFING bomex netCDF (*.nc) files###
>No differences detected by the linux diff in bomex_zm.nc<
>No differences detected by the linux diff in bomex_zt.nc<
>No differences detected by the linux diff in bomex_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case bomex.<<<
**********************************************************************************************************
###DIFFING dycoms2_rf01 netCDF (*.nc) files###
>No differences detected by the linux diff in dycoms2_rf01_zm.nc<
>No differences detected by the linux diff in dycoms2_rf01_zt.nc<
>No differences detected by the linux diff in dycoms2_rf01_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case dycoms2_rf01.<<<
**********************************************************************************************************
SUMMARY:
Linux diff did not detect any differences in the compared files.
.............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................../src/morrison_microphys_module.F90:20:33:
20 | saturation_formula, &
| 1
Warning: Unused dummy argument 'saturation_formula' at (1) [-Wunused-dummy-argument]
../src/clubb_driver.F90:6145:8:
6145 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:6145:8:
6145 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'cp' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'em_min' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:67:8:
67 | use parameter_indices, only: &
| 1
Warning: Unused parameter 'ic_k' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'lv' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:124:8:
124 | use error_code, only: &
| 1
Warning: Unused parameter 'clubb_no_error' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'one_half' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:790:27:
790 | rho_ds_zm_dycore_init
| 1
Warning: Unused variable 'rho_ds_zm_dycore_init' declared at (1) [-Wunused-variable]
../src/clubb_driver.F90:85:8:
85 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'three_halves' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:3621:99:
3621 | call stat_update_var( stats_metadata%ialt_term, alt_term_weight*alt_term, stats_zm(i) )
| ^
Warning: 'alt_term.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
../src/clubb_driver.F90:1094:14:
1094 | alt_term, &
| ^
note: 'alt_term.dim[0].ubound' was declared here
../src/clubb_standalone.F90:67:26:
67 | character(len=10) :: arg
| 1
Warning: Unused variable 'arg' declared at (1) [-Wunused-variable]
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1971 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1972 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2562 : !$acc rcm_in_layer, cloud_cover, wprcp, w_up_in_cloud, w_down_in_cloud, cloudy_updraft_frac, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2574 : !$acc pdf_params%corr_w_thl_2, pdf_params%corr_rt_thl_1, pdf_params%corr_rt_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2575 : !$acc pdf_params%alpha_thl, pdf_params%alpha_rt, pdf_params%crt_1, pdf_params%crt_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2578 : !$acc pdf_params%stdev_eta_2, pdf_params%covar_chi_eta_1, pdf_params%covar_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2580 : !$acc pdf_params%corr_w_eta_2, pdf_params%corr_chi_eta_1, pdf_params%corr_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2586 : !$acc pdf_params_zm%thl_2, pdf_params_zm%varnce_thl_1, pdf_params_zm%varnce_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2587 : !$acc pdf_params_zm%corr_w_rt_1, pdf_params_zm%corr_w_rt_2, pdf_params_zm%corr_w_thl_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2588 : !$acc pdf_params_zm%corr_w_thl_2, pdf_params_zm%corr_rt_thl_1, pdf_params_zm%corr_rt_thl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2589 : !$acc pdf_params_zm%alpha_thl, pdf_params_zm%alpha_rt, pdf_params_zm%crt_1, pdf_params_zm%crt_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2590 : !$acc pdf_params_zm%cthl_1, pdf_params_zm%cthl_2, pdf_params_zm%chi_1, pdf_params_zm%chi_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2591 : !$acc pdf_params_zm%stdev_chi_1, pdf_params_zm%stdev_chi_2, pdf_params_zm%stdev_eta_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2592 : !$acc pdf_params_zm%stdev_eta_2, pdf_params_zm%covar_chi_eta_1, pdf_params_zm%covar_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2593 : !$acc pdf_params_zm%corr_w_chi_1, pdf_params_zm%corr_w_chi_2, pdf_params_zm%corr_w_eta_1, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2594 : !$acc pdf_params_zm%corr_w_eta_2, pdf_params_zm%corr_chi_eta_1, pdf_params_zm%corr_chi_eta_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2595 : !$acc pdf_params_zm%rsatl_1, pdf_params_zm%rsatl_2, pdf_params_zm%rc_1, pdf_params_zm%rc_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2643 : invrs_rho_ds_zt(i,k) = invrs_rho_ds_zt_init(k) ! inv. dry, static density: t-levs
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2649 : um_pert(i,k) = zero ! Variables used to track perturbed version of winds.
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2651 : wm_zt(i,k) = wm_zt_init(k) ! Imposed large scale w - Thermodynamic levels
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2995 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3327 : !$acc X_nl_all_levs, X_mixt_comp_all_levs, lh_sample_point_weights, mu_x_1_n, mu_x_2_n, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3329 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3333 : !$acc pdf_params%cloud_frac_1, pdf_params%cloud_frac_2, pdf_params%cthl_1, pdf_params%cthl_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3334 : !$acc pdf_params%crt_1, pdf_params%crt_2, pdf_params%stdev_chi_1, pdf_params%stdev_chi_2, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3350 : wp2_zt = zm2zt_api( gr%nzm, gr%nzt, ngrdcol, gr, wp2, w_tol_sqd ) ! Positive definite quantity
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3356 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3357 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3358 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3374 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3375 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3376 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3377 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3378 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3379 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3380 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3381 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3382 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3406 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3407 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3408 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3409 : thlm_mc(i,:), err_info, & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3410 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3419 : !$acc update device( rcm_mc, rvm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3477 : !$acc update host( rvm_mc, rcm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3483 : call stat_update_var( stats_metadata%irtm_mc, rvm_mc(i,:)+rcm_mc(i,:), stats_zt(i) ) ! kg/kg/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3485 : call stat_update_var( stats_metadata%iwprtp_mc, wprtp_mc(i,:), stats_zm(i) ) ! m*(kg/kg)/s^2
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3487 : call stat_update_var( stats_metadata%irtp2_mc, rtp2_mc(i,:), stats_zm(i) ) ! (kg/kg)^2/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3489 : call stat_update_var( stats_metadata%irtpthlp_mc, rtpthlp_mc(i,:), stats_zm(i) ) ! K*(kg/kg)/s
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3506 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, X_nl_all_levs, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3526 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, thlm, rtm, rcm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3566 : call update_radiation_variables( gr%nzm, gr%nzt, radht(i,:), Frad_SW_up(i,:), Frad_LW_up(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3694 : if ( ( stats_metadata%l_stats_last .or. stats_metadata%l_stats .or. l_output_multi_col ) .and. l_stdout ) then
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6380 : !$acc enter data create( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6546 : !$acc update device( wm_zt, wm_zm, thlm_forcing, rtm_forcing, um_ref, vm_ref, sclrm_forcing, edsclrm_forcing )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6948 : call stat_update_var_pt( stats_metadata%ish, 1, wpthlp_sfc(i)*rho_zm(i,1)*Cp,& ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6951 : call stat_update_var_pt( stats_metadata%ilh, 1, wprtp_sfc(i)*rho_zm(i,1)*Lv, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6954 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6957 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6960 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6963 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6966 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6969 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6975 : !$acc exit data delete( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7177 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7181 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7185 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7186 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7189 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7190 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7193 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
7194 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/clubb_driver.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function.
CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning
endCheck failed: ../src/error.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/generalized_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
899 : pdf_params_zm_flip%ice_supersat_frac_1(i,:) = flip( pdf_params_zm%ice_supersat_frac_1(i,:), nzm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
900 : pdf_params_zm_flip%ice_supersat_frac_2(i,:) = flip( pdf_params_zm%ice_supersat_frac_2(i,:), nzm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1067 : rtm_ref_flip, thlm_ref_flip, um_ref_flip, vm_ref_flip, ug_flip, vg_flip, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1079 : um_flip, vm_flip, upwp_flip, vpwp_flip, up2_flip, vp2_flip, up3_flip, vp3_flip, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1081 : wp2_flip, wp3_flip, rtp2_flip, rtp3_flip, thlp2_flip, thlp3_flip, rtpthlp_flip, & ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1087 : wp2rtp_flip, wp2thlp_flip, uprcp_flip, vprcp_flip, rc_coef_zm_flip, wp4_flip, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1088 : wpup2_flip, wpvp2_flip, wp2up2_flip, wp2vp2_flip, ice_supersat_frac_flip, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/generalized_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
303 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
307 : !$acc update device( mu_x_1_n, mu_x_2_n, sigma_x_1_n, sigma_x_2_n, corr_array_1_n, corr_array_2_n, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
366 : ! Rather than using the seed just to intialize the random number generator at the first timestep, we use it every
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
367 : ! timestep. Thus this seed defines the randoms, that way we can reproduce results for restart runs by using a
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
368 : ! reproducible seed. If we didn't do it this way, we would have to save the internal state of the random number
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
369 : ! generator to disk each timestep, then read it back in to reinitialize the random number generator
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
410 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
213 : stats_sfc(i) ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/soil_vegetation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/sounding.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 8 check(s) failed.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1002 : call windm_edsclrm_rhs( nzm, nzt, ngrdcol, gr, windm_edsclrm_scalar, dt, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1003 : lhs_diff, edsclrm(:,:,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1004 : edsclrm_forcing(:,:,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1005 : rho_ds_zm, invrs_rho_ds_zt, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1006 : l_imp_sfc_momentum_flux, wpedsclrp(:,gr%k_lb_zm,edsclr), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1007 : stats_metadata, & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1008 : stats_zt, & ! intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1009 : rhs(:,:,edsclr) ) ! intent(out)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/advance_windm_edsclrm_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
782 : call wpxp_term_pr1_lhs( nzm, ngrdcol, gr, C6rt_Skw_fnc, C6thl_Skw_fnc, C7_Skw_fnc, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
783 : invrs_tau_C6_zm, l_scalar_calc, & ! Intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
784 : lhs_pr1_wprtp, lhs_pr1_wpthlp, lhs_pr1_wpsclrp ) ! Intent(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
862 : stats_zt, stats_zm, stats_sfc, & ! InOut
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
863 : rtm, wprtp, thlm, wpthlp, sclrm, wpsclrp, & ! InOut
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
864 : err_info ) ! InOut
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/advance_xm_wpxp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1319 : sclrprtp(:,:,sclr) ) ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1354 : sclrpthlp(:,:,sclr) ) ! Intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/advance_xp2_xpyp_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/CLUBB_core/err_info_type_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
265 : write(err_info%err_header_global,'(A38, I3, A15, I3, A, A28, A33, F6.2, A1, F6.2, A, A39, A40)') &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
276 : write(err_info%err_header(i),'(A38, I3, A15, I3, A, A22, I2, A11, F6.2, A13, F6.2, A, A39, A40)') &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/err_info_type_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
295 : write(fstderr, *) "The fixed minimum grid density momentum heights need to cover at least the domain of the physics grid."
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/grid_adaptation_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
688 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
839 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted "
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/mono_flux_limiter.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED!
CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function.
implicitCheck failed: ../src/CLUBB_core/mt95.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1747 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1748 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1749 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1801 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1802 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1803 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1849 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1850 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1852 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1979 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/output_netcdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
775 : call sfc_varnce_check( sclr_dim, wp2(i,gr%k_lb_zm), up2(i,gr%k_lb_zm), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
776 : vp2(i,gr%k_lb_zm), thlp2(i,gr%k_lb_zm), rtp2(i,gr%k_lb_zm), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
777 : rtpthlp(i,gr%k_lb_zm), sclrp2(i,gr%k_lb_zm,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
778 : sclrprtp(i,gr%k_lb_zm,:), sclrpthlp(i,gr%k_lb_zm,:), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
779 : err_info ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/sfc_varnce_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3004 : call stat_update_var( stats_metadata%icovar_chi_eta_1, pdf_params%covar_chi_eta_1(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3006 : call stat_update_var( stats_metadata%icovar_chi_eta_2, pdf_params%covar_chi_eta_2(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3016 : call stat_update_var( stats_metadata%icorr_chi_eta_1, pdf_params%corr_chi_eta_1(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3018 : call stat_update_var( stats_metadata%icorr_chi_eta_2, pdf_params%corr_chi_eta_2(icol,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3079 : chip2 = compute_variance_binormal( chi, pdf_params%chi_1(icol,:), pdf_params%chi_2(icol,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3080 : pdf_params%stdev_chi_1(icol,:), pdf_params%stdev_chi_2(icol,:), &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/stats_clubb_utilities.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2449 : call stat_assign( var_index=stats_metadata%inorm_min_grid_dens, var_name="norm_min_grid_dens", &
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/CLUBB_core/stats_zm_module.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 12 check(s) failed.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/bomex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/dycoms2_rf01.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/dycoms2_rf02.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/gabls2.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/lba.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/mpace_a.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/mpace_b.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/rico.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/Benchmark_cases/wangara.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 9 check(s) failed.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules.
CLUBBStandardsCheck.pl WARNING: Private Test failed!
privateCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
229 : !seed used = -1102123834 1480475276 -248259584 525496705 1614213535 -1267052688 6290033 -78466652
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
230 : !seed_output = (/ -1102123834, 1480475276, -248259584, 525496705, 1614213535, -1267052688, 6290033, -78466652 /)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
746 : call xpyp_term_ta_pdf_lhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
750 : call xpyp_term_ta_pdf_lhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
791 : call xpyp_term_ta_pdf_rhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
797 : call xpyp_term_ta_pdf_rhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
lineCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
FAIL: 2 check(s) failed.
multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 1
Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used.
Program exited normally
multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 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 df9e2152bc4889d33e801021a44c11fd6b685d1f
Directory 2 is eac573b2f186d900e285d06c2fd5a933316b7c4e
Using reporting threshold: 0.0
The following cases will be compared: ['bomex', 'dycoms2_rf01']
###DIFFING bomex netCDF (*.nc) files###
>No differences detected by the linux diff in bomex_zm.nc<
>No differences detected by the linux diff in bomex_zt.nc<
>No differences detected by the linux diff in bomex_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case bomex.<<<
**********************************************************************************************************
###DIFFING dycoms2_rf01 netCDF (*.nc) files###
>No differences detected by the linux diff in dycoms2_rf01_zm.nc<
>No differences detected by the linux diff in dycoms2_rf01_zt.nc<
>No differences detected by the linux diff in dycoms2_rf01_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case dycoms2_rf01.<<<
**********************************************************************************************************
SUMMARY:
Linux diff did not detect any differences in the compared files.
=============================== Configuring Test ===============================
Working directory set to: /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test
Checking specified repo: /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test
Using /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test with origin https://github.com/larson-group/clubb.git
Output Save Mode: none
Using branch: master
Making list from 'UnresolvedCommits':
- 26644de2ea83ee6335b273f54dd57afc8f6f4b0c
- 6c0201d44694fadf7f4bb0d4d58c3a9871096a22
CheckRange = True: Getting commit range
Run Output Path: output
Run commands: ['compile/compile.bash', '\nrm -rf output', 'mkdir output', '\ncp input/tunable_parameters_compatible_r8029/configurable_model_flags.in input/tunable_parameters', '\ncp input/tunable_parameters_compatible_r8029/silhs_parameters.in input/tunable_parameters', '\ncp input/tunable_parameters_compatible_r8029/tunable_parameters.in input/tunable_parameters', '\nrun_scripts/run_scm.bash bomex', '\nrun_scripts/run_scm.bash dycoms2_rf01']
Diffing command: python3 run_scripts/run_bindiff_all.py
=============================== Running Test ===============================
Parsing message from commit: 320551df13ee84bdb9280db0be788a36e1f03494
Found: BIT_CHANGING
Parsing message from commit: 26644de2ea83ee6335b273f54dd57afc8f6f4b0c
Parsing message from commit: 6c0201d44694fadf7f4bb0d4d58c3a9871096a22
Parsing message from commit: df9e2152bc4889d33e801021a44c11fd6b685d1f
Found: RESOLVED:320551df13ee84bdb9280db0be788a36e1f03494
Found: RESOLVED:6c0201d44694fadf7f4bb0d4d58c3a9871096a22
Found: RESOLVED:26644de2ea83ee6335b273f54dd57afc8f6f4b0c
Checking Commit: 320551df13ee84bdb9280db0be788a36e1f03494
Checking out 320551df13ee84bdb9280db0be788a36e1f03494
Running: 'compile/compile.bash'
Running: 'rm -rf output'
Running: 'mkdir output'
Running: 'cp input/tunable_parameters_compatible_r8029/configurable_model_flags.in input/tunable_parameters'
Running: 'cp input/tunable_parameters_compatible_r8029/silhs_parameters.in input/tunable_parameters'
Running: 'cp input/tunable_parameters_compatible_r8029/tunable_parameters.in input/tunable_parameters'
Running: 'run_scripts/run_scm.bash bomex'
Running: 'run_scripts/run_scm.bash dycoms2_rf01'
Checking out eac573b2f186d900e285d06c2fd5a933316b7c4e
Running: 'compile/compile.bash'
Running: 'rm -rf output'
Running: 'mkdir output'
Running: 'cp input/tunable_parameters_compatible_r8029/configurable_model_flags.in input/tunable_parameters'
Running: 'cp input/tunable_parameters_compatible_r8029/silhs_parameters.in input/tunable_parameters'
Running: 'cp input/tunable_parameters_compatible_r8029/tunable_parameters.in input/tunable_parameters'
Running: 'run_scripts/run_scm.bash bomex'
Running: 'run_scripts/run_scm.bash dycoms2_rf01'
Diffing: 'python3 run_scripts/run_bindiff_all.py 320551df13ee84bdb9280db0be788a36e1f03494 eac573b2f186d900e285d06c2fd5a933316b7c4e'
WARNING: commit '320551df13ee84bdb9280db0be788a36e1f03494' was supposed to be BIT_CHANGING, but is not.
Checking Commit: 26644de2ea83ee6335b273f54dd57afc8f6f4b0c
Skipping: not final commit and not labelled BIT_CHANGING
Checking Commit: 6c0201d44694fadf7f4bb0d4d58c3a9871096a22
Skipping: not final commit and not labelled BIT_CHANGING
Checking Commit: df9e2152bc4889d33e801021a44c11fd6b685d1f
Running: final commit to check, not labelled BIT_CHANGING
Checking out df9e2152bc4889d33e801021a44c11fd6b685d1f
Running: 'compile/compile.bash'
Running: 'rm -rf output'
Running: 'mkdir output'
Running: 'cp input/tunable_parameters_compatible_r8029/configurable_model_flags.in input/tunable_parameters'
Running: 'cp input/tunable_parameters_compatible_r8029/silhs_parameters.in input/tunable_parameters'
Running: 'cp input/tunable_parameters_compatible_r8029/tunable_parameters.in input/tunable_parameters'
Running: 'run_scripts/run_scm.bash bomex'
Running: 'run_scripts/run_scm.bash dycoms2_rf01'
Output from eac573b2f186d900e285d06c2fd5a933316b7c4e already saved
Diffing: 'python3 run_scripts/run_bindiff_all.py df9e2152bc4889d33e801021a44c11fd6b685d1f eac573b2f186d900e285d06c2fd5a933316b7c4e'
=============================== Test Results ===============================
Commit Range Checked = eac573b2f186d900e285d06c2fd5a933316b7c4e...df9e2152bc4889d33e801021a44c11fd6b685d1f
No new Unresolved commits found.
Fake BIT_CHANGING Commits:
320551df13ee84bdb9280db0be788a36e1f03494
WARNING: 320551df13ee84bdb9280db0be788a36e1f03494 labelled as RESOLVED,
but was not listed as unresolved.
Resolved: 6c0201d44694fadf7f4bb0d4d58c3a9871096a22
Resolved: 26644de2ea83ee6335b273f54dd57afc8f6f4b0c
No remaining Unresolved Commits.
=============================== Updating Config File ===============================
Saving into UnresolvedCommits:
Saving into BaselineCommit: df9e2152bc4889d33e801021a44c11fd6b685d1f
=============================== Cleanup ===============================
Removing all generated output
REMOVING: eac573b2f186d900e285d06c2fd5a933316b7c4e
REMOVING: 320551df13ee84bdb9280db0be788a36e1f03494
REMOVING: df9e2152bc4889d33e801021a44c11fd6b685d1f
================== Unresolved Commit Status ==================
No remaining Unresolved Commits.
Exiting with code: 0
[Pipeline] }
[Pipeline] // stage
[Pipeline] }
[Pipeline] // withEnv
[Pipeline] }
[Pipeline] // node
[Pipeline] End of Pipeline
Finished: SUCCESS
![[Jenkins]](/jenkins/static/9dada5b8/images/svgs/logo.svg){kind=logo}
