Console Output
Skipping 35 KB..
Full Logpl WARNING: Line has exceeded 100 characters.
2768 : corr_array_n_cloud, corr_array_n_below, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2769 : hm_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2770 : pdf_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2771 : clubb_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2772 : clubb_config_flags%iiPDF_type, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2773 : l_use_precip_frac, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2774 : clubb_config_flags%l_predict_upwp_vpwp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2775 : clubb_config_flags%l_diagnose_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2776 : clubb_config_flags%l_calc_w_corr, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2777 : clubb_config_flags%l_const_Nc_in_cloud, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2778 : clubb_config_flags%l_fix_w_chi_eta_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2779 : stats_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2780 : stats_zt, stats_zm, stats_sfc, err_code, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2781 : hydrometp2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2782 : mu_x_1_n, mu_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2783 : sigma_x_1_n, sigma_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2784 : corr_array_1_n, corr_array_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2785 : corr_cholesky_mtx_1, corr_cholesky_mtx_2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2786 : precip_fracs, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2787 : hydromet_pdf_params ) ! Optional(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2807 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2811 : !$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.
2898 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2930 : !$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.
2932 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2936 : !$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.
2937 : !$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.
2959 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2960 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2961 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2977 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2978 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2979 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2980 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2981 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2982 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2983 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2984 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2985 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3009 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3010 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3011 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3012 : thlm_mc(i,:), err_code, & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3013 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3016 : !$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.
3078 : 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.
3080 : 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.
3082 : 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.
3084 : 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.
3101 : !$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.
3121 : !$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.
3150 : 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.
3179 : 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.
5776 : !$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.
5929 : !$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.
6331 : 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.
6334 : 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.
6337 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6340 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6343 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6346 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6349 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6352 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6358 : !$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.
6560 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6564 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6568 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6569 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6572 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6573 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6576 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6577 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED!
CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function.
../src/CLUBB_core/mt95.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
689 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
805 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted "
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/mono_flux_limiter.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3354 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3557 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/clubb_api_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1308 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1309 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1310 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1362 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1363 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1364 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1410 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1411 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1413 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1540 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/output_netcdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2026 : ! calculate p_in_Pa instead of remapping directly since it can run into problems if for example
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/grid_adaptation.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/bomex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
132 : ! sat_mixrat_liq( p_sfc, T_in_K ) * 0.8_core_rknd )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/cloud_feedback.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf01.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf02.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/gabls2.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/lba.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_b.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_a.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/rico.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/wangara.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................../src/clubb_driver.F90:5542:8:
5542 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:5542:8:
5542 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'cp' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:65:8:
65 | use parameter_indices, only: &
| 1
Warning: Unused parameter 'ic_k' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'lv' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'one_half' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'three_halves' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_standalone.F90:56:26:
56 | 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.
174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
213 : stats_sfc(i) ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/soil_vegetation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/sounding.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function.
CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning
../src/error.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1773 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1774 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2425 : !$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.
2426 : !$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.
2429 : !$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.
2431 : !$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.
2438 : !$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.
2439 : !$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.
2440 : !$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.
2441 : !$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.
2442 : !$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.
2443 : !$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.
2444 : !$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.
2445 : !$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.
2446 : !$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.
2447 : !$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.
2448 : !$acc pdf_params_zm%cloud_frac_1, pdf_params_zm%cloud_frac_2, pdf_params_zm%mixt_frac, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2467 : !$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.
2546 : wp2_zt = max( zm2zt( gr%nzm, gr%nzt, ngrdcol, gr, wp2 ), w_tol_sqd ) ! Positive definite quantity
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2568 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2762 : call setup_pdf_parameters( gr, gr%nzm, gr%nzt, ngrdcol, pdf_dim, hydromet_dim, dt_main, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2763 : Nc_in_cloud, cloud_frac, Kh_zm, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2764 : ice_supersat_frac, hydromet, wphydrometp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2765 : corr_array_n_cloud, corr_array_n_below, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2766 : hm_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2767 : pdf_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2768 : clubb_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2769 : clubb_config_flags%iiPDF_type, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2770 : l_use_precip_frac, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2771 : clubb_config_flags%l_predict_upwp_vpwp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2772 : clubb_config_flags%l_diagnose_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2773 : clubb_config_flags%l_calc_w_corr, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2774 : clubb_config_flags%l_const_Nc_in_cloud, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2775 : clubb_config_flags%l_fix_w_chi_eta_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2776 : stats_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2777 : stats_zt, stats_zm, stats_sfc, err_code, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2778 : hydrometp2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2779 : mu_x_1_n, mu_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2780 : sigma_x_1_n, sigma_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2781 : corr_array_1_n, corr_array_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2782 : corr_cholesky_mtx_1, corr_cholesky_mtx_2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2783 : precip_fracs, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2784 : hydromet_pdf_params ) ! Optional(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2804 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2808 : !$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.
2895 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2927 : !$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.
2929 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2933 : !$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.
2934 : !$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.
2956 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2957 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2958 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2974 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2975 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2976 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2977 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2978 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2979 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2980 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2981 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2982 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3006 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3007 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3008 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3009 : thlm_mc(i,:), err_code, & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3010 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3013 : !$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.
3075 : 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.
3077 : 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.
3079 : 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.
3081 : 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.
3098 : !$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.
3118 : !$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.
3147 : 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.
3176 : 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.
5773 : !$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.
5926 : !$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.
6328 : 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.
6331 : 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.
6334 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6337 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6340 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6343 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6346 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6349 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6355 : !$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.
6557 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6561 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6565 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6566 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6569 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6570 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6573 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6574 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED!
CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function.
../src/CLUBB_core/mt95.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3354 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3557 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/clubb_api_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1308 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1309 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1310 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1362 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1363 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1364 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1410 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1411 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1413 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1540 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/output_netcdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
689 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
805 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted "
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/mono_flux_limiter.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2026 : ! calculate p_in_Pa instead of remapping directly since it can run into problems if for example
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/grid_adaptation.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
132 : ! sat_mixrat_liq( p_sfc, T_in_K ) * 0.8_core_rknd )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/cloud_feedback.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/bomex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf01.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf02.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/gabls2.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/lba.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_b.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_a.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/wangara.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/rico.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
Directory 1 is 236d6123c9d941c1d713c80143f3bd00ff462c95
Directory 2 is 7783e3a73fe5643538f55dea8418c8adf0d0e4f8
Using reporting threshold: 0.0
The following cases will be compared: ['arm', 'arm_97', 'atex', 'bomex', 'dycoms2_rf01', 'dycoms2_rf02_ds', 'gabls3_night', 'lba', 'rico', 'twp_ice', 'wangara']
###DIFFING arm netCDF (*.nc) files###
>No differences detected by the linux diff in arm_zm.nc<
>No differences detected by the linux diff in arm_zt.nc<
>No differences detected by the linux diff in arm_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case arm.<<<
**********************************************************************************************************
###DIFFING arm_97 netCDF (*.nc) files###
>No differences detected by the linux diff in arm_97_zm.nc<
>No differences detected by the linux diff in arm_97_zt.nc<
>No differences detected by the linux diff in arm_97_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case arm_97.<<<
**********************************************************************************************************
###DIFFING atex netCDF (*.nc) files###
>No differences detected by the linux diff in atex_zm.nc<
>No differences detected by the linux diff in atex_zt.nc<
>No differences detected by the linux diff in atex_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case atex.<<<
**********************************************************************************************************
###DIFFING bomex netCDF (*.nc) files###
>No differences detected by the linux diff in bomex_zm.nc<
>No differences detected by the linux diff in bomex_zt.nc<
>No differences detected by the linux diff in bomex_sfc.nc<
>>>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.<<<
**********************************************************************************************************
###DIFFING dycoms2_rf02_ds netCDF (*.nc) files###
>No differences detected by the linux diff in dycoms2_rf02_ds_zm.nc<
>No differences detected by the linux diff in dycoms2_rf02_ds_zt.nc<
>No differences detected by the linux diff in dycoms2_rf02_ds_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case dycoms2_rf02_ds.<<<
**********************************************************************************************************
###DIFFING gabls3_night netCDF (*.nc) files###
>No differences detected by the linux diff in gabls3_night_zm.nc<
>No differences detected by the linux diff in gabls3_night_zt.nc<
>No differences detected by the linux diff in gabls3_night_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case gabls3_night.<<<
**********************************************************************************************************
###DIFFING lba netCDF (*.nc) files###
>No differences detected by the linux diff in lba_zm.nc<
>No differences detected by the linux diff in lba_zt.nc<
>No differences detected by the linux diff in lba_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case lba.<<<
**********************************************************************************************************
###DIFFING rico netCDF (*.nc) files###
>No differences detected by the linux diff in rico_zm.nc<
>No differences detected by the linux diff in rico_zt.nc<
>No differences detected by the linux diff in rico_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case rico.<<<
**********************************************************************************************************
###DIFFING twp_ice netCDF (*.nc) files###
>No differences detected by the linux diff in twp_ice_zm.nc<
>No differences detected by the linux diff in twp_ice_zt.nc<
>No differences detected by the linux diff in twp_ice_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case twp_ice.<<<
**********************************************************************************************************
###DIFFING wangara netCDF (*.nc) files###
>No differences detected by the linux diff in wangara_zm.nc<
>No differences detected by the linux diff in wangara_zt.nc<
>No differences detected by the linux diff in wangara_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case wangara.<<<
**********************************************************************************************************
SUMMARY:
Linux diff did not detect any differences in the compared files.
......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................../home/jenkins/workspace/clubb_BFB_gfortran_test/compile/../src/CLUBB_core/mono_flux_limiter.F90:434:12:
434 | k, km1, i, j ! Array indices
| 1
Warning: Unused variable 'km1' declared at (1) [-Wunused-variable]
/home/jenkins/workspace/clubb_BFB_gfortran_test/compile/../src/CLUBB_core/mono_flux_limiter.F90:460:9:
460 | tmp, &
| 1
Warning: Unused variable 'tmp' declared at (1) [-Wunused-variable]
../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:5545:8:
5545 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:5545:8:
5545 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'cp' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:65:8:
65 | use parameter_indices, only: &
| 1
Warning: Unused parameter 'ic_k' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'lv' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'one_half' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'three_halves' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_standalone.F90:56:26:
56 | 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.
174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
213 : stats_sfc(i) ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/soil_vegetation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/sounding.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function.
CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning
../src/error.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1776 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1777 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2428 : !$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.
2429 : !$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.
2432 : !$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.
2434 : !$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.
2441 : !$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.
2442 : !$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.
2443 : !$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.
2444 : !$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.
2445 : !$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.
2446 : !$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.
2447 : !$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.
2448 : !$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.
2449 : !$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.
2450 : !$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.
2451 : !$acc pdf_params_zm%cloud_frac_1, pdf_params_zm%cloud_frac_2, pdf_params_zm%mixt_frac, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2470 : !$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.
2549 : wp2_zt = max( zm2zt( gr%nzm, gr%nzt, ngrdcol, gr, wp2 ), w_tol_sqd ) ! Positive definite quantity
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2571 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2765 : call setup_pdf_parameters( gr, gr%nzm, gr%nzt, ngrdcol, pdf_dim, hydromet_dim, dt_main, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2766 : Nc_in_cloud, cloud_frac, Kh_zm, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2767 : ice_supersat_frac, hydromet, wphydrometp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2768 : corr_array_n_cloud, corr_array_n_below, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2769 : hm_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2770 : pdf_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2771 : clubb_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2772 : clubb_config_flags%iiPDF_type, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2773 : l_use_precip_frac, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2774 : clubb_config_flags%l_predict_upwp_vpwp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2775 : clubb_config_flags%l_diagnose_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2776 : clubb_config_flags%l_calc_w_corr, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2777 : clubb_config_flags%l_const_Nc_in_cloud, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2778 : clubb_config_flags%l_fix_w_chi_eta_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2779 : stats_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2780 : stats_zt, stats_zm, stats_sfc, err_code, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2781 : hydrometp2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2782 : mu_x_1_n, mu_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2783 : sigma_x_1_n, sigma_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2784 : corr_array_1_n, corr_array_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2785 : corr_cholesky_mtx_1, corr_cholesky_mtx_2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2786 : precip_fracs, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2787 : hydromet_pdf_params ) ! Optional(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2807 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2811 : !$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.
2898 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2930 : !$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.
2932 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2936 : !$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.
2937 : !$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.
2959 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2960 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2961 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2977 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2978 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2979 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2980 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2981 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2982 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2983 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2984 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2985 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3009 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3010 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3011 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3012 : thlm_mc(i,:), err_code, & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3013 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3016 : !$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.
3078 : 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.
3080 : 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.
3082 : 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.
3084 : 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.
3101 : !$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.
3121 : !$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.
3150 : 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.
3179 : 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.
5776 : !$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.
5929 : !$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.
6331 : 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.
6334 : 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.
6337 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6340 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6343 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6346 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6349 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6352 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6358 : !$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.
6560 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6564 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6568 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6569 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6572 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6573 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6576 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6577 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED!
CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function.
../src/CLUBB_core/mt95.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1308 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1309 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1310 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1362 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1363 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1364 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1410 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1411 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1413 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1540 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/output_netcdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
689 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
805 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted "
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/mono_flux_limiter.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3354 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3557 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/clubb_api_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2026 : ! calculate p_in_Pa instead of remapping directly since it can run into problems if for example
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/grid_adaptation.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
132 : ! sat_mixrat_liq( p_sfc, T_in_K ) * 0.8_core_rknd )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/cloud_feedback.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/bomex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf02.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf01.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/lba.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/gabls2.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_b.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_a.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/wangara.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/rico.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
Directory 1 is 4b242c02eac785410f827436d822838d76951673
Directory 2 is 236d6123c9d941c1d713c80143f3bd00ff462c95
Using reporting threshold: 0.0
The following cases will be compared: ['arm', 'arm_97', 'atex', 'bomex', 'dycoms2_rf01', 'dycoms2_rf02_ds', 'gabls3_night', 'lba', 'rico', 'twp_ice', 'wangara']
###DIFFING arm netCDF (*.nc) files###
>No differences detected by the linux diff in arm_zm.nc<
>The linux diff detected differences in arm_zt.nc<
>>Differences above threshold were detected in the common fields in file arm_zt.nc<<
>No differences detected by the linux diff in arm_sfc.nc<
>>>Differences in common variables detected for case arm<<<
**********************************************************************************************************
###DIFFING arm_97 netCDF (*.nc) files###
>No differences detected by the linux diff in arm_97_zm.nc<
>The linux diff detected differences in arm_97_zt.nc<
>>Differences above threshold were detected in the common fields in file arm_97_zt.nc<<
>No differences detected by the linux diff in arm_97_sfc.nc<
>>>Differences in common variables detected for case arm_97<<<
**********************************************************************************************************
###DIFFING atex netCDF (*.nc) files###
>No differences detected by the linux diff in atex_zm.nc<
>The linux diff detected differences in atex_zt.nc<
>>Differences above threshold were detected in the common fields in file atex_zt.nc<<
>No differences detected by the linux diff in atex_sfc.nc<
>>>Differences in common variables detected for case atex<<<
**********************************************************************************************************
###DIFFING bomex netCDF (*.nc) files###
>No differences detected by the linux diff in bomex_zm.nc<
>The linux diff detected differences in bomex_zt.nc<
>>Differences above threshold were detected in the common fields in file bomex_zt.nc<<
>No differences detected by the linux diff in bomex_sfc.nc<
>>>Differences in common variables detected for case bomex<<<
**********************************************************************************************************
###DIFFING dycoms2_rf01 netCDF (*.nc) files###
>No differences detected by the linux diff in dycoms2_rf01_zm.nc<
>The linux diff detected differences in dycoms2_rf01_zt.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf01_zt.nc<<
>No differences detected by the linux diff in dycoms2_rf01_sfc.nc<
>>>Differences in common variables detected for case dycoms2_rf01<<<
**********************************************************************************************************
###DIFFING dycoms2_rf02_ds netCDF (*.nc) files###
>No differences detected by the linux diff in dycoms2_rf02_ds_zm.nc<
>The linux diff detected differences in dycoms2_rf02_ds_zt.nc<
>>Differences above threshold were detected in the common fields in file dycoms2_rf02_ds_zt.nc<<
>No differences detected by the linux diff in dycoms2_rf02_ds_sfc.nc<
>>>Differences in common variables detected for case dycoms2_rf02_ds<<<
**********************************************************************************************************
###DIFFING gabls3_night netCDF (*.nc) files###
>No differences detected by the linux diff in gabls3_night_zm.nc<
>The linux diff detected differences in gabls3_night_zt.nc<
>>Differences above threshold were detected in the common fields in file gabls3_night_zt.nc<<
>No differences detected by the linux diff in gabls3_night_sfc.nc<
>>>Differences in common variables detected for case gabls3_night<<<
**********************************************************************************************************
###DIFFING lba netCDF (*.nc) files###
>No differences detected by the linux diff in lba_zm.nc<
>The linux diff detected differences in lba_zt.nc<
>>Differences above threshold were detected in the common fields in file lba_zt.nc<<
>No differences detected by the linux diff in lba_sfc.nc<
>>>Differences in common variables detected for case lba<<<
**********************************************************************************************************
###DIFFING rico netCDF (*.nc) files###
>No differences detected by the linux diff in rico_zm.nc<
>The linux diff detected differences in rico_zt.nc<
>>Differences above threshold were detected in the common fields in file rico_zt.nc<<
>No differences detected by the linux diff in rico_sfc.nc<
>>>Differences in common variables detected for case rico<<<
**********************************************************************************************************
###DIFFING twp_ice netCDF (*.nc) files###
>No differences detected by the linux diff in twp_ice_zm.nc<
>The linux diff detected differences in twp_ice_zt.nc<
>>Differences above threshold were detected in the common fields in file twp_ice_zt.nc<<
>No differences detected by the linux diff in twp_ice_sfc.nc<
>>>Differences in common variables detected for case twp_ice<<<
**********************************************************************************************************
###DIFFING wangara netCDF (*.nc) files###
>No differences detected by the linux diff in wangara_zm.nc<
>The linux diff detected differences in wangara_zt.nc<
>>Differences above threshold were detected in the common fields in file wangara_zt.nc<<
>No differences detected by the linux diff in wangara_sfc.nc<
>>>Differences in common variables detected for case wangara<<<
**********************************************************************************************************
SUMMARY:
There were differences detected in the common variables in netCDF (*.nc) files.
......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................../home/jenkins/workspace/clubb_BFB_gfortran_test/compile/../src/CLUBB_core/mono_flux_limiter.F90:434:12:
434 | k, km1, i, j ! Array indices
| 1
Warning: Unused variable 'km1' declared at (1) [-Wunused-variable]
/home/jenkins/workspace/clubb_BFB_gfortran_test/compile/../src/CLUBB_core/mono_flux_limiter.F90:460:9:
460 | tmp, &
| 1
Warning: Unused variable 'tmp' declared at (1) [-Wunused-variable]
../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:5545:8:
5545 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:5545:8:
5545 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'cp' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:65:8:
65 | use parameter_indices, only: &
| 1
Warning: Unused parameter 'ic_k' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'lv' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'one_half' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_driver.F90:84:8:
84 | use constants_clubb, only: &
| 1
Warning: Unused parameter 'three_halves' which has been explicitly imported at (1) [-Wunused-parameter]
../src/clubb_standalone.F90:56:26:
56 | 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.
174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
213 : stats_sfc(i) ) ! intent(inout)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/soil_vegetation.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/sounding.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function.
CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning
../src/error.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1776 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1777 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2428 : !$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.
2429 : !$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.
2432 : !$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.
2434 : !$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.
2441 : !$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.
2442 : !$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.
2443 : !$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.
2444 : !$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.
2445 : !$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.
2446 : !$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.
2447 : !$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.
2448 : !$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.
2449 : !$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.
2450 : !$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.
2451 : !$acc pdf_params_zm%cloud_frac_1, pdf_params_zm%cloud_frac_2, pdf_params_zm%mixt_frac, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2470 : !$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.
2549 : wp2_zt = max( zm2zt( gr%nzm, gr%nzt, ngrdcol, gr, wp2 ), w_tol_sqd ) ! Positive definite quantity
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2571 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2765 : call setup_pdf_parameters( gr, gr%nzm, gr%nzt, ngrdcol, pdf_dim, hydromet_dim, dt_main, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2766 : Nc_in_cloud, cloud_frac, Kh_zm, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2767 : ice_supersat_frac, hydromet, wphydrometp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2768 : corr_array_n_cloud, corr_array_n_below, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2769 : hm_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2770 : pdf_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2771 : clubb_params, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2772 : clubb_config_flags%iiPDF_type, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2773 : l_use_precip_frac, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2774 : clubb_config_flags%l_predict_upwp_vpwp, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2775 : clubb_config_flags%l_diagnose_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2776 : clubb_config_flags%l_calc_w_corr, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2777 : clubb_config_flags%l_const_Nc_in_cloud, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2778 : clubb_config_flags%l_fix_w_chi_eta_correlations, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2779 : stats_metadata, & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2780 : stats_zt, stats_zm, stats_sfc, err_code, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2781 : hydrometp2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2782 : mu_x_1_n, mu_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2783 : sigma_x_1_n, sigma_x_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2784 : corr_array_1_n, corr_array_2_n, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2785 : corr_cholesky_mtx_1, corr_cholesky_mtx_2, & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2786 : precip_fracs, & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2787 : hydromet_pdf_params ) ! Optional(out)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2807 : stats_zt(i), stats_zm(i), & ! In/Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2811 : !$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.
2898 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2930 : !$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.
2932 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2936 : !$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.
2937 : !$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.
2959 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2960 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2961 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2977 : stats_zt(i), stats_zm(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2978 : stats_sfc(i), stats_lh_zt(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2979 : Nccnm(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2980 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2981 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2982 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2983 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2984 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2985 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3009 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3010 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3011 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3012 : thlm_mc(i,:), err_code, & ! Inout
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3013 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3016 : !$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.
3078 : 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.
3080 : 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.
3082 : 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.
3084 : 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.
3101 : !$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.
3121 : !$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.
3150 : 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.
3179 : 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.
5776 : !$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.
5929 : !$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.
6331 : 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.
6334 : 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.
6337 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6340 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6343 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6346 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6349 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6352 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6358 : !$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.
6560 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6564 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6568 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6569 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6572 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6573 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6576 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), &
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
6577 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/clubb_driver.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED!
CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function.
../src/CLUBB_core/mt95.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
689 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
805 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted "
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/mono_flux_limiter.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3354 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
3557 : if ( err_code_api == clubb_fatal_error ) error stop "Error in CLUBB calling setup_pdf_parameters"
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/clubb_api_module.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1308 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1309 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1310 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1362 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1363 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1364 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1410 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1411 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1413 : !=================================== Allocate Output Arrays ===================================
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
1540 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/output_netcdf.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
2026 : ! calculate p_in_Pa instead of remapping directly since it can run into problems if for example
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/CLUBB_core/grid_adaptation.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
132 : ! sat_mixrat_liq( p_sfc, T_in_K ) * 0.8_core_rknd )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/cloud_feedback.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/bomex.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf02.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/dycoms2_rf01.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/gabls2.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) )
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/lba.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_b.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/mpace_a.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/rico.F90
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters.
105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k)
CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters.
../src/Benchmark_cases/wangara.F90
--------------------------------------------------------------------------------
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
CLUBBStandardsCheck.pl has begun.
CLUBBStandardsCheck.pl has finished.
Directory 1 is 808fa5089e30e9a5a569f2fda50a334d04d33c71
Directory 2 is 4b242c02eac785410f827436d822838d76951673
Using reporting threshold: 0.0
The following cases will be compared: ['arm', 'arm_97', 'atex', 'bomex', 'dycoms2_rf01', 'dycoms2_rf02_ds', 'gabls3_night', 'lba', 'rico', 'twp_ice', 'wangara']
###DIFFING arm netCDF (*.nc) files###
>No differences detected by the linux diff in arm_zm.nc<
>No differences detected by the linux diff in arm_zt.nc<
>No differences detected by the linux diff in arm_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case arm.<<<
**********************************************************************************************************
###DIFFING arm_97 netCDF (*.nc) files###
>No differences detected by the linux diff in arm_97_zm.nc<
>No differences detected by the linux diff in arm_97_zt.nc<
>No differences detected by the linux diff in arm_97_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case arm_97.<<<
**********************************************************************************************************
###DIFFING atex netCDF (*.nc) files###
>No differences detected by the linux diff in atex_zm.nc<
>No differences detected by the linux diff in atex_zt.nc<
>No differences detected by the linux diff in atex_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case atex.<<<
**********************************************************************************************************
###DIFFING bomex netCDF (*.nc) files###
>No differences detected by the linux diff in bomex_zm.nc<
>No differences detected by the linux diff in bomex_zt.nc<
>No differences detected by the linux diff in bomex_sfc.nc<
>>>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.<<<
**********************************************************************************************************
###DIFFING dycoms2_rf02_ds netCDF (*.nc) files###
>No differences detected by the linux diff in dycoms2_rf02_ds_zm.nc<
>No differences detected by the linux diff in dycoms2_rf02_ds_zt.nc<
>No differences detected by the linux diff in dycoms2_rf02_ds_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case dycoms2_rf02_ds.<<<
**********************************************************************************************************
###DIFFING gabls3_night netCDF (*.nc) files###
>No differences detected by the linux diff in gabls3_night_zm.nc<
>No differences detected by the linux diff in gabls3_night_zt.nc<
>No differences detected by the linux diff in gabls3_night_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case gabls3_night.<<<
**********************************************************************************************************
###DIFFING lba netCDF (*.nc) files###
>No differences detected by the linux diff in lba_zm.nc<
>No differences detected by the linux diff in lba_zt.nc<
>No differences detected by the linux diff in lba_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case lba.<<<
**********************************************************************************************************
###DIFFING rico netCDF (*.nc) files###
>No differences detected by the linux diff in rico_zm.nc<
>No differences detected by the linux diff in rico_zt.nc<
>No differences detected by the linux diff in rico_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case rico.<<<
**********************************************************************************************************
###DIFFING twp_ice netCDF (*.nc) files###
>No differences detected by the linux diff in twp_ice_zm.nc<
>No differences detected by the linux diff in twp_ice_zt.nc<
>No differences detected by the linux diff in twp_ice_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case twp_ice.<<<
**********************************************************************************************************
###DIFFING wangara netCDF (*.nc) files###
>No differences detected by the linux diff in wangara_zm.nc<
>No differences detected by the linux diff in wangara_zt.nc<
>No differences detected by the linux diff in wangara_sfc.nc<
>>>The linux diff could not detect any differences in the file pairs for case wangara.<<<
**********************************************************************************************************
SUMMARY:
Linux diff did not detect any differences in the compared files.
=============================== Configuring Test ===============================
Working directory set to: /home/jenkins/workspace/clubb_BFB_gfortran_test
Checking specified repo: /home/jenkins/workspace/clubb_BFB_gfortran_test
Using /home/jenkins/workspace/clubb_BFB_gfortran_test with origin https://github.com/larson-group/clubb.git
Output Save Mode: none
Using branch: master
Making list from 'UnresolvedCommits':
CheckRange = True: Getting commit range
Run Output Path: output
Run commands: ['compile/compile.bash', '\nrm -rf output', '\nmkdir output', '\nrun_scripts/run_scm_all.bash --min-cases']
Diffing command: run_scripts/run_bindiff_all.py
=============================== Running Test ===============================
Parsing message from commit: 236d6123c9d941c1d713c80143f3bd00ff462c95
Parsing message from commit: 4b242c02eac785410f827436d822838d76951673
Found: BIT_CHANGING
Parsing message from commit: 808fa5089e30e9a5a569f2fda50a334d04d33c71
Checking Commit: 236d6123c9d941c1d713c80143f3bd00ff462c95
Skipping: not final commit and not labelled BIT_CHANGING
Checking Commit: 4b242c02eac785410f827436d822838d76951673
Checking out 236d6123c9d941c1d713c80143f3bd00ff462c95
Running: 'compile/compile.bash'
Running: 'rm -rf output'
Running: 'mkdir output'
Running: 'run_scripts/run_scm_all.bash --min-cases'
Checking out 7783e3a73fe5643538f55dea8418c8adf0d0e4f8
Running: 'compile/compile.bash'
Running: 'rm -rf output'
Running: 'mkdir output'
Running: 'run_scripts/run_scm_all.bash --min-cases'
Diffing: 'run_scripts/run_bindiff_all.py 236d6123c9d941c1d713c80143f3bd00ff462c95 7783e3a73fe5643538f55dea8418c8adf0d0e4f8'
Checking out 4b242c02eac785410f827436d822838d76951673
Running: 'compile/compile.bash'
Running: 'rm -rf output'
Running: 'mkdir output'
Running: 'run_scripts/run_scm_all.bash --min-cases'
Output from 236d6123c9d941c1d713c80143f3bd00ff462c95 already saved
Diffing: 'run_scripts/run_bindiff_all.py 4b242c02eac785410f827436d822838d76951673 236d6123c9d941c1d713c80143f3bd00ff462c95'
Commit '4b242c02eac785410f827436d822838d76951673' is BIT_CHANGING and properly labelled as such.
Checking Commit: 808fa5089e30e9a5a569f2fda50a334d04d33c71
Running: final commit to check, not labelled BIT_CHANGING
Checking out 808fa5089e30e9a5a569f2fda50a334d04d33c71
Running: 'compile/compile.bash'
Running: 'rm -rf output'
Running: 'mkdir output'
Running: 'run_scripts/run_scm_all.bash --min-cases'
Output from 4b242c02eac785410f827436d822838d76951673 already saved
Diffing: 'run_scripts/run_bindiff_all.py 808fa5089e30e9a5a569f2fda50a334d04d33c71 4b242c02eac785410f827436d822838d76951673'
=============================== Test Results ===============================
Commit Range Checked = 7783e3a73fe5643538f55dea8418c8adf0d0e4f8...808fa5089e30e9a5a569f2fda50a334d04d33c71
No new Unresolved commits found.
No fake BIT_CHANGING commits found.
No remaining Unresolved Commits.
=============================== Updating Config File ===============================
Saving into UnresolvedCommits:
Saving into BaselineCommit: 808fa5089e30e9a5a569f2fda50a334d04d33c71
=============================== Cleanup ===============================
Removing all generated output
REMOVING: 7783e3a73fe5643538f55dea8418c8adf0d0e4f8
REMOVING: 236d6123c9d941c1d713c80143f3bd00ff462c95
REMOVING: 4b242c02eac785410f827436d822838d76951673
REMOVING: 808fa5089e30e9a5a569f2fda50a334d04d33c71
================== Unresolved Commit Status ==================
No remaining Unresolved Commits.
Exiting with code: 0
![[Jenkins]](/jenkins/static/57c8a776/images/svgs/logo.svg){kind=logo}
