![[Jenkins]](/jenkins/static/57c8a776/images/svgs/logo.svg){kind=logo}
Started by an SCM change Obtained jenkins_tests/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/Jenkinsfile from git https://github.com/larson-group/clubb.git [Pipeline] Start of Pipeline [Pipeline] node Running on Jenkins in /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test [Pipeline] { [Pipeline] stage [Pipeline] { (Declarative: Checkout SCM) [Pipeline] checkout The recommended git tool is: git Cloning the remote Git repository Cloning repository https://github.com/larson-group/clubb.git > git init /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test # timeout=10 Fetching upstream changes from https://github.com/larson-group/clubb.git > git --version # timeout=10 > git --version # 'git version 2.34.1' using GIT_ASKPASS to set credentials A token based key used by Jenkins to preform Github actions, created 6/21/2021 > git fetch --tags --force --progress -- https://github.com/larson-group/clubb.git +refs/heads/*:refs/remotes/origin/* # timeout=10 > git config remote.origin.url https://github.com/larson-group/clubb.git # timeout=10 > git config --add remote.origin.fetch +refs/heads/*:refs/remotes/origin/* # timeout=10 Avoid second fetch > git rev-parse refs/remotes/origin/master^{commit} # timeout=10 Checking out Revision a67e22194ccac507c0dc1b684db1336cf93054fe (refs/remotes/origin/master) > git config core.sparsecheckout # timeout=10 > git checkout -f a67e22194ccac507c0dc1b684db1336cf93054fe # timeout=10 Commit message: "Making multicol diffness script rely on the largest difference detected, rather the the sum/total of differences. This is essentially to relax the cpu vs gpu diffness test because mpace_b is noisey and often causes the test to fail for innocent bit changing commits. Looking at the largest difference does have the advantage of the check being less sensitive to case differences, such as number of timesteps, vertical levels, number of columns, etc." > git rev-list --no-walk 7d2369cb2db29fbc630c678a19d08445c261c08d # timeout=10 [Pipeline] } [Pipeline] // stage [Pipeline] withEnv [Pipeline] { [Pipeline] stage [Pipeline] { (Clone SysAdmin to tmp) [Pipeline] sh + rm -rf /home/jenkins/clubb_bin_diff_regression_backwards_compatibility_gfortran_test_workspace/sys_admin + git clone https://github.com/larson-group/sys_admin.git /home/jenkins/clubb_bin_diff_regression_backwards_compatibility_gfortran_test_workspace/sys_admin Cloning into '/home/jenkins/clubb_bin_diff_regression_backwards_compatibility_gfortran_test_workspace/sys_admin'... [Pipeline] } [Pipeline] // stage [Pipeline] stage [Pipeline] { (Run Python Test) [Pipeline] sh + python3 /home/jenkins/clubb_bin_diff_regression_backwards_compatibility_gfortran_test_workspace/sys_admin/python_nightly_test_suite/run_test.py -c /home/jenkins/clubb_bin_diff_regression_backwards_compatibility_gfortran_test_workspace/bit_diff_clubb_bc_r8092_config ......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................../home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/penta_lu_solver.F90:131:22: 131 | integer :: i, k, j ! Loop variables | 1 Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable] ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libclubb_gfdlact.a /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/lapack_wrap.F90:239:16: 239 | subd, diag, supd | 1 Warning: Unused variable ‘diag’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/lapack_wrap.F90:239:10: 239 | subd, diag, supd | 1 Warning: Unused variable ‘subd’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/lapack_wrap.F90:239:22: 239 | subd, diag, supd | 1 Warning: Unused variable ‘supd’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/saturation.F90:1378:10: 1378 | rsat | 1 Warning: Unused variable ‘rsat’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/saturation.F90:854:8: 854 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘ep’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/saturation.F90:882:16: 882 | integer :: i, k ! Loop indices | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/saturation.F90:882:19: 882 | integer :: i, k ! Loop indices | 1 Warning: Unused variable ‘k’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/saturation.F90:1078:32: 1078 | subroutine sat_vapor_press_ice( nz, ngrdcol, T_in_K, saturation_formula, & | ^ Warning: ‘sat_vapor_press_ice’ defined but not used [-Wunused-function] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:2307:8: 2307 | use clubb_precision, only: & | 1 Warning: Unused parameter ‘core_rknd’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1942:38: 1942 | real( kind = core_rknd ) :: factor | 1 Warning: Unused variable ‘factor’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1377:8: 1377 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘fstdout’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1373:8: 1373 | use model_flags, only: & | 1 Warning: Unused parameter ‘l_cubic_interp’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1373:8: 1373 | use model_flags, only: & | 1 Warning: Unused parameter ‘l_quintic_poly_interp’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1325:8: 1325 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘fstdout’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1321:8: 1321 | use model_flags, only: & | 1 Warning: Unused parameter ‘l_cubic_interp’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1321:8: 1321 | use model_flags, only: & | 1 Warning: Unused parameter ‘l_quintic_poly_interp’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1212:8: 1212 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘fstdout’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1208:8: 1208 | use model_flags, only: & | 1 Warning: Unused parameter ‘l_cubic_interp’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1208:8: 1208 | use model_flags, only: & | 1 Warning: Unused parameter ‘l_quintic_poly_interp’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1162:8: 1162 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘fstdout’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1158:8: 1158 | use model_flags, only: & | 1 Warning: Unused parameter ‘l_cubic_interp’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/grid_class.F90:1158:8: 1158 | use model_flags, only: & | 1 Warning: Unused parameter ‘l_quintic_poly_interp’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/input_reader.F90:498:28: 491 | do i=1, dim_grid | 2 ...... 498 | if ( grid(i) < grid(i-1) ) then | 1 Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2) [-Wdo-subscript] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/matrix_solver_wrapper.F90:546:16: 546 | integer :: i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/matrix_solver_wrapper.F90:438:16: 438 | integer :: i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/matrix_solver_wrapper.F90:224:16: 224 | integer :: i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/matrix_solver_wrapper.F90:167:24: 167 | old_soln, & ! Intent(in) | 1 Warning: Unused dummy argument ‘old_soln’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/matrix_solver_wrapper.F90:165:26: 165 | solve_name, penta_solve_method, & ! Intent(in) | 1 Warning: Unused dummy argument ‘solve_name’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/matrix_solver_wrapper.F90:106:16: 106 | integer :: i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/matrix_solver_wrapper.F90:50:24: 50 | old_soln, & ! Intent(in) | 1 Warning: Unused dummy argument ‘old_soln’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/matrix_solver_wrapper.F90:48:26: 48 | solve_name, penta_solve_method, & ! Intent(in) | 1 Warning: Unused dummy argument ‘solve_name’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/parameters_tunable.F90:2135:32: 2135 | subroutine init_parameters_999( & | ^ Warning: ‘init_parameters_999’ defined but not used [-Wunused-function] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_helper_module.F90:1698:16: 1698 | integer :: i, k | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_helper_module.F90:1698:19: 1698 | integer :: i, k | 1 Warning: Unused variable ‘k’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_helper_module.F90:565:56: 565 | thlm, um, vm, em, Lscale, exner, rtm, & | 1 Warning: Unused dummy argument ‘em’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_helper_module.F90:364:8: 364 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘one_half’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/output_netcdf.F90:221:8: 221 | use clubb_precision, only: & | 1 Warning: Unused parameter ‘core_rknd’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/output_netcdf.F90:218:8: 218 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘nparams’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp3_module.F90:119:16: 119 | integer :: i, k, sclr ! Loop index | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp3_module.F90:119:19: 119 | integer :: i, k, sclr ! Loop index | 1 Warning: Unused variable ‘k’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/mono_flux_limiter.F90:1288:13: 1288 | k_tdiag = 2, & ! Thermodynamic main diagonal index. | 1 Warning: Unused parameter ‘k_tdiag’ declared at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/mono_flux_limiter.F90:1289:15: 1289 | km1_tdiag = 3 ! Thermodynamic subdiagonal index. | 1 Warning: Unused parameter ‘km1_tdiag’ declared at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/mono_flux_limiter.F90:1287:15: 1287 | kp1_tdiag = 1, & ! Thermodynamic superdiagonal index. | 1 Warning: Unused parameter ‘kp1_tdiag’ declared at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/clip_explicit.F90:872:43: 872 | subroutine clip_variance( nz, ngrdcol, gr, solve_type, dt, threshold, & | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/clip_explicit.F90:426:40: 426 | subroutine clip_covar( nz, ngrdcol, gr, solve_type, l_first_clip_ts, & | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/clip_explicit.F90:157:22: 157 | integer :: sclr, i ! scalar array index. | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/fill_holes.F90:685:8: 685 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘num_hf_draw_points’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/fill_holes.F90:660:41: 660 | rho_ds_zm, rho_ds_zt, exner, & ! Intent(in) | 1 Warning: Unused dummy argument ‘rho_ds_zm’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_windm_edsclrm_module.F90:581:29: 581 | -- this is likely unsafe and considered fatal" | 1 Warning: Missing ‘&’ in continued character constant at (1) [-Wampersand] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_windm_edsclrm_module.F90:1311:49: 1311 | subroutine windm_edsclrm_solve( nz, ngrdcol, gr, nrhs, ixm_matrix_condt_num, & | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_windm_edsclrm_module.F90:1835:13: 1835 | k_tdiag = 2, & ! Thermodynamic main diagonal index. | 1 Warning: Unused parameter ‘k_tdiag’ declared at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_windm_edsclrm_module.F90:1836:15: 1836 | km1_tdiag = 3 ! Thermodynamic subdiagonal index. | 1 Warning: Unused parameter ‘km1_tdiag’ declared at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_windm_edsclrm_module.F90:1834:15: 1834 | kp1_tdiag = 1, & ! Thermodynamic superdiagonal index. | 1 Warning: Unused parameter ‘kp1_tdiag’ declared at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/stats_clubb_utilities.F90:1587:45: 1587 | subroutine stats_end_timestep( clubb_params, stats_metadata, & ! intent(in) | 1 Warning: Unused dummy argument ‘clubb_params’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/stats_clubb_utilities.F90:1594:51: 1594 | l_standard_term_ta & | 1 Warning: Unused dummy argument ‘l_standard_term_ta’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/stats_clubb_utilities.F90:1593:44: 1593 | l_tke_aniso, & | 1 Warning: Unused dummy argument ‘l_tke_aniso’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/stats_clubb_utilities.F90:1592:45: 1592 | , l_uv_nudge, & | 1 Warning: Unused dummy argument ‘l_uv_nudge’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/setup_clubb_pdf_params.F90:262:25: 262 | ice_supersat_frac_1, & ! Ice supersaturation fraction (1st PDF comp.) [-] | 1 Warning: Unused variable ‘ice_supersat_frac_1’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/setup_clubb_pdf_params.F90:263:25: 263 | ice_supersat_frac_2 ! Ice supersaturation fraction (2nd PDF comp.) [-] | 1 Warning: Unused variable ‘ice_supersat_frac_2’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:4368:8: 4368 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘eps’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:4368:8: 4368 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘num_hf_draw_points’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:4227:43: 4227 | subroutine xm_wpxp_solve( nz, ngrdcol, gr, nrhs, & | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1583:22: 1583 | integer :: i, k, b | 1 Warning: Unused variable ‘b’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1170:74: 1170 | subroutine xm_wpxp_lhs( nz, ngrdcol, l_iter, dt, wpxp, wm_zt, C7_Skw_fnc, & ! In | 1 Warning: Unused dummy argument ‘c7_skw_fnc’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1310:45: 1310 | logical :: l_upper_thresh, l_lower_thresh ! flags for clip_semi_imp_lhs | 1 Warning: Unused variable ‘l_lower_thresh’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1310:29: 1310 | logical :: l_upper_thresh, l_lower_thresh ! flags for clip_semi_imp_lhs | 1 Warning: Unused variable ‘l_upper_thresh’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1248:8: 1248 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘one’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1176:40: 1176 | stats_metadata, & ! In | 1 Warning: Unused dummy argument ‘stats_metadata’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1170:62: 1170 | subroutine xm_wpxp_lhs( nz, ngrdcol, l_iter, dt, wpxp, wm_zt, C7_Skw_fnc, & ! In | 1 Warning: Unused dummy argument ‘wm_zt’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1170:55: 1170 | subroutine xm_wpxp_lhs( nz, ngrdcol, l_iter, dt, wpxp, wm_zt, C7_Skw_fnc, & ! In | 1 Warning: Unused dummy argument ‘wpxp’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1171:56: 1171 | wpxp_upper_lim, wpxp_lower_lim, & ! In | 1 Warning: Unused dummy argument ‘wpxp_lower_lim’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1171:40: 1171 | wpxp_upper_lim, wpxp_lower_lim, & ! In | 1 Warning: Unused dummy argument ‘wpxp_upper_lim’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:5844:8: 5844 | use constants_clubb, only: num_hf_draw_points | 1 Warning: Unused parameter ‘num_hf_draw_points’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:5835:57: 5835 | rho_ds_zm, rho_ds_zt, & | 1 Warning: Unused dummy argument ‘rho_ds_zt’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3996:22: 3996 | sclr, i, b, k, l ! Loop index | 1 Warning: Unused variable ‘l’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3453:34: 3453 | integer :: i, k, k_low, k_high | 1 Warning: Unused variable ‘k_high’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3453:26: 3453 | integer :: i, k, k_low, k_high | 1 Warning: Unused variable ‘k_low’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3434:35: 3434 | real( kind = core_rknd ) :: tmp | 1 Warning: Unused variable ‘tmp’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3437:20: 3437 | turbulent_prod, & ! Turbulent production term [{x_a units}*{x_b units}/s] | 1 Warning: Unused variable ‘turbulent_prod’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2979:60: 2979 | C4_1d, invrs_tau_C4_zm, C14_1d, invrs_tau_C14_zm, & ! In | 1 Warning: Unused dummy argument ‘c14_1d’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2979:35: 2979 | C4_1d, invrs_tau_C4_zm, C14_1d, invrs_tau_C14_zm, & ! In | 1 Warning: Unused dummy argument ‘c4_1d’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3016:8: 3016 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘one_third’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3101:35: 3101 | real( kind = core_rknd ) :: tmp | 1 Warning: Unused variable ‘tmp’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3016:8: 3016 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘two_thirds’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2694:13: 2694 | k_mdiag = 2, & ! Momentum main diagonal index. | 1 Warning: Unused parameter ‘k_mdiag’ declared at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2695:15: 2695 | km1_mdiag = 3 ! Momentum subdiagonal index. | 1 Warning: Unused parameter ‘km1_mdiag’ declared at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2693:15: 2693 | kp1_mdiag = 1, & ! Momentum superdiagonal index. | 1 Warning: Unused parameter ‘kp1_mdiag’ declared at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2600:42: 2600 | integer :: i, k, low_bound, high_bound | 1 Warning: Unused variable ‘high_bound’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2600:30: 2600 | integer :: i, k, low_bound, high_bound | 1 Warning: Unused variable ‘low_bound’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:1594:28: 1594 | integer :: sclr, k, i, j | 1 Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:410:18: 410 | rtm_zm, test | 1 Warning: Unused variable ‘test’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/mixing_length.F90:889:8: 889 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘three’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/mixing_length.F90:21:50: 21 | stats_metadata, & | 1 Warning: Unused dummy argument ‘stats_metadata’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:5349:46: 5349 | subroutine wp3_term_pr1_rhs( nz, ngrdcol, gr, & | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:2322:15: 2322 | C_uu_buoy ! CLUBB tunable parameter C_uu_buoy | 1 Warning: Unused variable ‘c_uu_buoy’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:2133:38: 2133 | subroutine wp23_rhs( nz, ngrdcol, gr, dt, & | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:1794:38: 1794 | subroutine wp23_lhs( nz, ngrdcol, gr, dt, & | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:1364:14: 1364 | C_uu_shr ! CLUBB tunable parameter C_uu_shr | 1 Warning: Unused variable ‘c_uu_shr’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:1247:10: 1247 | nrhs = 1 ! Number of RHS vectors | 1 Warning: Unused parameter ‘nrhs’ declared at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:1186:8: 1186 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘num_hf_draw_points’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:1160:45: 1160 | rho_ds_zm, rho_ds_zt, & | 1 Warning: Unused dummy argument ‘rho_ds_zt’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:1347:15: 1347 | threshold ! Minimum value for wp2 [m^2/s^2] | 1 Warning: Unused variable ‘threshold’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:385:10: 385 | c_K1, & ! CLUBB tunable parameter c_K1 | 1 Warning: Unused variable ‘c_k1’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:386:10: 386 | c_K8 ! CLUBB tunable parameter c_K8 | 1 Warning: Unused variable ‘c_k8’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4795:47: 4795 | call calc_trapezoid_zm( nz, ngrdcol, gr, wpthvp, wpthvp_zt, & ! Intent(in) | 1 Warning: Same actual argument associated with INTENT(IN) argument ‘variable_zm’ and INTENT(OUT) argument ‘trapezoid_zm’ at (1) /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4798:47: 4798 | call calc_trapezoid_zm( nz, ngrdcol, gr, thlpthvp, thlpthvp_zt, & ! Intent(in) | 1 Warning: Same actual argument associated with INTENT(IN) argument ‘variable_zm’ and INTENT(OUT) argument ‘trapezoid_zm’ at (1) /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4801:47: 4801 | call calc_trapezoid_zm( nz, ngrdcol, gr, rtpthvp, rtpthvp_zt, & ! Intent(in) | 1 Warning: Same actual argument associated with INTENT(IN) argument ‘variable_zm’ and INTENT(OUT) argument ‘trapezoid_zm’ at (1) /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4689:34: 4689 | wprtp2, wprtp2_zm, & | 1 Warning: Same actual argument associated with INTENT(IN) argument ‘variable_zt’ and INTENT(OUT) argument ‘trapezoid_zt’ at (1) /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4694:34: 4694 | wpthlp2, wpthlp2_zm, & | 1 Warning: Same actual argument associated with INTENT(IN) argument ‘variable_zt’ and INTENT(OUT) argument ‘trapezoid_zt’ at (1) /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4699:34: 4699 | wprtpthlp, wprtpthlp_zm, & | 1 Warning: Same actual argument associated with INTENT(IN) argument ‘variable_zt’ and INTENT(OUT) argument ‘trapezoid_zt’ at (1) /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4724:30: 4724 | cloud_frac, cloud_frac_zm, & | 1 Warning: Same actual argument associated with INTENT(IN) argument ‘variable_zt’ and INTENT(OUT) argument ‘trapezoid_zt’ at (1) /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4728:30: 4728 | ice_supersat_frac, ice_supersat_frac_zm, & | 1 Warning: Same actual argument associated with INTENT(IN) argument ‘variable_zt’ and INTENT(OUT) argument ‘trapezoid_zt’ at (1) /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4732:30: 4732 | rcm, rcm_zm, & | 1 Warning: Same actual argument associated with INTENT(IN) argument ‘variable_zt’ and INTENT(OUT) argument ‘trapezoid_zt’ at (1) /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4736:30: 4736 | wp2thvp, wp2thvp_zm, & | 1 Warning: Same actual argument associated with INTENT(IN) argument ‘variable_zt’ and INTENT(OUT) argument ‘trapezoid_zt’ at (1) /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4627:21: 4627 | integer :: i, k, sclr | 1 Warning: Unused variable ‘k’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:3955:10: 3955 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘iskw_max_mag’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:3985:10: 3985 | use model_flags, only: & | 1 Warning: Unused parameter ‘lapack’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:3939:40: 3939 | subroutine check_clubb_settings( nzmax, params, & ! intent(in) | 1 Warning: Unused dummy argument ‘nzmax’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:2866:8: 2866 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘iskw_denom_coef’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:2866:8: 2866 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘iskw_max_mag’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:144:23: 144 | hydromet, l_mix_rat_hm, & ! intent(in) | 1 Warning: Unused dummy argument ‘hydromet’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:198:8: 198 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘num_hf_draw_points’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/clubb_api_module.F90:1026:16: 1026 | integer :: i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libclubb_param.a ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libclubb_lapack.a ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libmicrophys_utils.a ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libclubb_parabolic.a ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libclubb_KK_microphys.a /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/output_2D_samples_module.F90:239:8: 239 | use parameter_indices, only: nparams | 1 Warning: Unused parameter ‘nparams’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/output_2D_samples_module.F90:164:8: 164 | use clubb_precision, only: & | 1 Warning: Unused parameter ‘core_rknd’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/output_2D_samples_module.F90:168:8: 168 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘nparams’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/silhs_importance_sample_module.F90:638:62: 633 | do category=1, num_importance_categories | 2 ...... 638 | rand_vect(sample) < category_cumulative_probs(category+1) ) then | 1 Warning: Array reference at (1) out of bounds (9 > 8) in loop beginning at (2) [-Wdo-subscript] ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libclubb_bugsrad.a ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libclubb_coamps.a /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/latin_hypercube_driver_module.F90:1007:44: 1007 | subroutine clip_transform_silhs_output( gr, nz, ngrdcol, num_samples, & ! In | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/latin_hypercube_driver_module.F90:80:8: 80 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘nparams’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/silhs_api_module.F90:347:8: 347 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘nparams’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/silhs_api_module.F90:326:13: 326 | rho_ds_zt, & ! Unused | 1 Warning: Unused dummy argument ‘rho_ds_zt’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/silhs_api_module.F90:170:8: 170 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘nparams’ which has been explicitly imported at (1) [-Wunused-parameter] ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libsilhs.a ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libclubb_morrison.a ../src/Benchmark_cases/cloud_sed_module.F90:171:44: 171 | if ( zt2zm( gr, rcm, k) > zero .AND. zt2zm( gr, Ncm, k ) > zero ) then | 1 Warning: Impure function ‘redirect_interpolated_azm_k’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1235:13: 1235 | .or. is_nan_2d( real( rim_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1236:13: 1236 | .or. is_nan_2d( real( rsm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1237:13: 1237 | .or. is_nan_2d( real( rrm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1238:13: 1238 | .or. is_nan_2d( real( rgm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1239:13: 1239 | .or. is_nan_2d( real( Ncm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1240:13: 1240 | .or. is_nan_2d( real( Nim_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1241:13: 1241 | .or. is_nan_2d( real( Nsm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1242:13: 1242 | .or. is_nan_2d( real( Nrm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1243:13: 1243 | .or. is_nan_2d( real( Ngm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1244:13: 1244 | .or. is_nan_2d( real( rvm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1245:13: 1245 | .or. is_nan_2d( real( T_in_K_mc, kind=core_rknd ) ) ) then | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:20:33: 20 | saturation_formula, & | 1 Warning: Unused dummy argument ‘saturation_formula’ at (1) [-Wunused-dummy-argument] ../src/Benchmark_cases/neutral_case.F90:36:8: 36 | use constants_clubb, only: grav ! Variable(s) | 1 Warning: Unused parameter ‘grav’ which has been explicitly imported at (1) [-Wunused-parameter] ../src/Benchmark_cases/neutral_case.F90:21:51: 21 | subroutine neutral_case_sfclyr( time, z, thlm_sfc, & | 1 Warning: Unused dummy argument ‘thlm_sfc’ at (1) [-Wunused-dummy-argument] ../src/Benchmark_cases/neutral_case.F90:21:41: 21 | subroutine neutral_case_sfclyr( time, z, thlm_sfc, & | 1 Warning: Unused dummy argument ‘z’ at (1) [-Wunused-dummy-argument] ../src/KK_microphys_module.F90:43:35: 43 | subroutine KK_local_microphys( gr, dt, nz, & ! In | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] ../src/clubb_driver.F90:6547:39: 6547 | clubb_params, nu_vert_res_dep, lmin, & ! intent(in) | 1 Warning: Unused dummy argument ‘lmin’ at (1) [-Wunused-dummy-argument] ../src/clubb_driver.F90:6547:33: 6547 | clubb_params, nu_vert_res_dep, lmin, & ! intent(in) | 1 Warning: Unused dummy argument ‘nu_vert_res_dep’ at (1) [-Wunused-dummy-argument] ../src/clubb_driver.F90:5722:8: 5722 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘fstdout’ which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:73:8: 73 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘iskw_denom_coef’ which has been explicitly imported at (1) [-Wunused-parameter] ar: creating /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../lib/libclubb_other.a ../src/G_unit_test_types/w_up_in_cloud_tests.F90:24:8: 24 | use clubb_precision, only: & | 1 Warning: Unused parameter ‘core_rknd’ which has been explicitly imported at (1) [-Wunused-parameter] ../src/G_unit_test_types/smooth_heaviside_tests.F90:98:7: 98 | i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] ../src/G_unit_test_types/smooth_heaviside_tests.F90:120:80: 120 | total_mismatches = total_mismatches + COUNT(abs(result - result_cmp) >= eps) | ^ Warning: ‘total_mismatches’ is used uninitialized [-Wuninitialized] ../src/G_unit_test_types/smooth_heaviside_tests.F90:32:31: 32 | integer :: total_mismatches | ^ note: ‘total_mismatches’ was declared here ../src/G_unit_tests.F90:176:13: 176 | stats_sfc | 1 Warning: Unused variable ‘stats_sfc’ declared at (1) [-Wunused-variable] ../src/G_unit_tests.F90:175:12: 175 | stats_zm, & | 1 Warning: Unused variable ‘stats_zm’ declared at (1) [-Wunused-variable] ../src/G_unit_tests.F90:174:12: 174 | stats_zt, & | 1 Warning: Unused variable ‘stats_zt’ declared at (1) [-Wunused-variable] CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 952 : call stat_update_var_pt( stats_metadata%iNsm, k, real(Nsm(k), kind = core_rknd) ,stats_zt ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/coamps_microphys_driver_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 179 : max( rtm(1,k) - sat_mixrat_liq( p_in_Pa(k), theta(1,k)*exner(1,k), saturation_formula ), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 201 : rcm(1,k) = rcm_sat_adj( thlm(1,k), rtm(1,k), p_in_Pa(k), exner(1,k), saturation_formula ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/input_interpret.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 282 : nzt = stat_file_num_vertical_levels( "thlm", "../output/"//trim( stats_metadata%fname_zt )//".ctl" ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 283 : nzm = stat_file_num_vertical_levels( "thlm", "../output/"//trim( stats_metadata%fname_zm )//".ctl" ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/jacobian.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 677 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/clubb_tuner.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 295 : z_i = lin_interpolate_two_points( 8.0e-3_core_rknd, rtm(k), rtm(k-1), gr%zt(1,k), gr%zt(1,k-1) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/simple_rad_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 974 : = clubb_params(iomicron) * hm_metadata%hmp2_ip_on_hmm2_ip(pdf2hydromet_idx(ivar,hm_metadata)) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/microphys_init_cleanup.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 384 : z(kp2), p_in_Pa(km1), p_in_Pa(k00), p_in_Pa(kp1), p_in_Pa(kp2) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 433 : press(i) = lin_interpolate_two_points( gr%zt(1,i), z(k), z(k-1), p_in_Pa(k), p_in_Pa(k-1) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/sounding.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 386 : call microphys_put_var( stats_metadata%irrm_src_adj, adj_terms%rrm_src_adj, microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 387 : call microphys_put_var( stats_metadata%iNrm_src_adj, adj_terms%Nrm_src_adj, microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 390 : call microphys_put_var( stats_metadata%irrm_evap_adj, adj_terms%rrm_evap_adj, microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 391 : call microphys_put_var( stats_metadata%iNrm_evap_adj, adj_terms%Nrm_evap_adj, microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 393 : call microphys_put_var( stats_metadata%irrm_mc_nonadj, KK_auto_tndcy+KK_accr_tndcy+KK_evap_tndcy, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1102 : call stat_update_var( stats_metadata%irrm_mc_nonadj, KK_auto_tndcy+KK_accr_tndcy+KK_evap_tndcy, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1683 : call stat_update_var_pt( stats_metadata%im_vol_rad_rain, level, KK_mean_vol_rad, stats_zt ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/KK_microphys_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 828 : call microphys_put_var( stats_metadata%irsm_sd_morr_int, (/rsm_sd_morr_int/), microphys_stats_sfc ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 846 : call microphys_put_var( stats_metadata%ihl_on_Cp_residual, hl_on_Cp_residual, microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 861 : call microphys_put_var( stats_metadata%iPSMLT, real( PSMLT, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 862 : call microphys_put_var( stats_metadata%iEVPMS, real( EVPMS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 863 : call microphys_put_var( stats_metadata%iPRACS, real( PRACS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 864 : call microphys_put_var( stats_metadata%iEVPMG, real( EVPMG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 865 : call microphys_put_var( stats_metadata%iPRACG, real( PRACG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 866 : call microphys_put_var( stats_metadata%iPGMLT, real( PGMLT, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 867 : call microphys_put_var( stats_metadata%iMNUCCC, real( MNUCCC, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 868 : call microphys_put_var( stats_metadata%iPSACWS, real( PSACWS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 869 : call microphys_put_var( stats_metadata%iPSACWI, real( PSACWI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 870 : call microphys_put_var( stats_metadata%iQMULTS, real( QMULTS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 871 : call microphys_put_var( stats_metadata%iQMULTG, real( QMULTG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 872 : call microphys_put_var( stats_metadata%iPSACWG, real( PSACWG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 873 : call microphys_put_var( stats_metadata%iPGSACW, real( PGSACW, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 877 : call microphys_put_var( stats_metadata%iQMULTR, real( QMULTR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 878 : call microphys_put_var( stats_metadata%iQMULTRG, real( QMULTRG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 879 : call microphys_put_var( stats_metadata%iMNUCCD, real( MNUCCD, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 880 : call microphys_put_var( stats_metadata%iPRACI, real( PRACI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 881 : call microphys_put_var( stats_metadata%iPRACIS, real( PRACIS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 883 : call microphys_put_var( stats_metadata%iMNUCCR, real( MNUCCR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 884 : call microphys_put_var( stats_metadata%iPIACR, real( PIACR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 885 : call microphys_put_var( stats_metadata%iPIACRS, real( PIACRS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 886 : call microphys_put_var( stats_metadata%iPGRACS, real( PGRACS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 888 : call microphys_put_var( stats_metadata%iEPRDS, real( EPRDS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 889 : call microphys_put_var( stats_metadata%iPSACR, real( PSACR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 891 : call microphys_put_var( stats_metadata%iEPRDG, real( EPRDG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 894 : call microphys_put_var( stats_metadata%iNGSTEN, real( NGSTEN, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 895 : call microphys_put_var( stats_metadata%iNRSTEN, real( NRSTEN, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 896 : call microphys_put_var( stats_metadata%iNISTEN, real( NISTEN, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 897 : call microphys_put_var( stats_metadata%iNSSTEN, real( NSSTEN, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 898 : call microphys_put_var( stats_metadata%iNCSTEN, real( NCSTEN, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 899 : call microphys_put_var( stats_metadata%iNPRC1, real( NPRC1, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 900 : call microphys_put_var( stats_metadata%iNRAGG, real( NRAGG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 901 : call microphys_put_var( stats_metadata%iNPRACG, real( NPRACG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 902 : call microphys_put_var( stats_metadata%iNSUBR, real( NSUBR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 903 : call microphys_put_var( stats_metadata%iNSMLTR, real( NSMLTR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 904 : call microphys_put_var( stats_metadata%iNGMLTR, real( NGMLTR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 905 : call microphys_put_var( stats_metadata%iNPRACS, real( NPRACS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 906 : call microphys_put_var( stats_metadata%iNNUCCR, real( NNUCCR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 907 : call microphys_put_var( stats_metadata%iNIACR, real( NIACR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 908 : call microphys_put_var( stats_metadata%iNIACRS, real( NIACRS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 909 : call microphys_put_var( stats_metadata%iNGRACS, real( NGRACS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 910 : call microphys_put_var( stats_metadata%iNSMLTS, real( NSMLTS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 911 : call microphys_put_var( stats_metadata%iNSAGG, real( NSAGG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 912 : call microphys_put_var( stats_metadata%iNPRCI, real( NPRCI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 913 : call microphys_put_var( stats_metadata%iNSCNG, real( NSCNG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 914 : call microphys_put_var( stats_metadata%iNSUBS, real( NSUBS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 917 : call microphys_put_var( stats_metadata%iNNUCCC, real( NNUCCC, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 918 : call microphys_put_var( stats_metadata%iNPSACWS, real( NPSACWS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 921 : call microphys_put_var( stats_metadata%iNPSACWI, real( NPSACWI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 922 : call microphys_put_var( stats_metadata%iNPSACWG, real( NPSACWG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 923 : call microphys_put_var( stats_metadata%iNPRAI, real( NPRAI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 924 : call microphys_put_var( stats_metadata%iNMULTS, real( NMULTS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 925 : call microphys_put_var( stats_metadata%iNMULTG, real( NMULTG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 926 : call microphys_put_var( stats_metadata%iNMULTR, real( NMULTR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 927 : call microphys_put_var( stats_metadata%iNMULTRG, real( NMULTRG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 928 : call microphys_put_var( stats_metadata%iNNUCCD, real( NNUCCD, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 929 : call microphys_put_var( stats_metadata%iNSUBI, real( NSUBI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 930 : call microphys_put_var( stats_metadata%iNGMLTG, real( NGMLTG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 931 : call microphys_put_var( stats_metadata%iNSUBG, real( NSUBG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 933 : call microphys_put_var( stats_metadata%iSIZEFIX_NR, real( SIZEFIX_NR,kind=core_rknd),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 934 : call microphys_put_var( stats_metadata%iSIZEFIX_NC, real( SIZEFIX_NC,kind=core_rknd),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 935 : call microphys_put_var( stats_metadata%iSIZEFIX_NI, real( SIZEFIX_NI,kind=core_rknd),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 936 : call microphys_put_var( stats_metadata%iSIZEFIX_NS, real( SIZEFIX_NS,kind=core_rknd),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 937 : call microphys_put_var( stats_metadata%iSIZEFIX_NG, real( SIZEFIX_NG,kind=core_rknd),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 938 : call microphys_put_var( stats_metadata%iNEGFIX_NR, real( NEGFIX_NR,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 939 : call microphys_put_var( stats_metadata%iNEGFIX_NC, real( NEGFIX_NC,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 940 : call microphys_put_var( stats_metadata%iNEGFIX_NI, real( NEGFIX_NI,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 941 : call microphys_put_var( stats_metadata%iNEGFIX_NS, real( NEGFIX_NS,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 942 : call microphys_put_var( stats_metadata%iNEGFIX_NG, real( NEGFIX_NG,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 943 : call microphys_put_var( stats_metadata%iNIM_MORR_CL, real( NIM_MORR_CL,kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 944 : call microphys_put_var( stats_metadata%iQC_INST, real( QC_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 945 : call microphys_put_var( stats_metadata%iQR_INST, real( QR_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 946 : call microphys_put_var( stats_metadata%iQI_INST, real( QI_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 947 : call microphys_put_var( stats_metadata%iQS_INST, real( QS_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 948 : call microphys_put_var( stats_metadata%iQG_INST, real( QG_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 949 : call microphys_put_var( stats_metadata%iNC_INST, real( NC_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 950 : call microphys_put_var( stats_metadata%iNR_INST, real( NR_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 951 : call microphys_put_var( stats_metadata%iNI_INST, real( NI_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 952 : call microphys_put_var( stats_metadata%iNS_INST, real( NS_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 953 : call microphys_put_var( stats_metadata%iNG_INST, real( NG_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 955 : call microphys_put_var( stats_metadata%iT_in_K_mc, real( T_in_K_mc, kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 960 : call microphys_put_var( stats_metadata%ieff_rad_cloud, real( effc(:), kind = core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 961 : call microphys_put_var( stats_metadata%ieff_rad_ice, real( effi(:), kind = core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 962 : call microphys_put_var( stats_metadata%ieff_rad_snow, real( effs(:), kind = core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 963 : call microphys_put_var( stats_metadata%ieff_rad_rain, real( effr(:), kind = core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 964 : call microphys_put_var( stats_metadata%ieff_rad_graupel, real( effg(:), kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/morrison_microphys_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 954 : if ( trim( hm_metadata%hydromet_list(i) ) == "rrm" .and. stats_metadata%iVrrprrp > 0 ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 957 : call stat_update_var( stats_metadata%iVrrprrp, hydromet_vel_covar(:,hm_metadata%iirr), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 960 : elseif ( trim( hm_metadata%hydromet_list(i) ) == "Nrm" .and. stats_metadata%iVNrpNrp > 0 ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 963 : call stat_update_var( stats_metadata%iVNrpNrp, hydromet_vel_covar(:,hm_metadata%iiNr), stats_zm ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/advance_microphys_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: 'use' statement w/o 'only' found in the following line: 6664 : use netcdf CLUBBStandardsCheck.pl WARNING: Use check FAILED! CLUBBStandardsCheck.pl WARNING: Check that comma is on same line as 'use', as CLUBB requires. ../src/clubb_driver.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 868 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1316 : call write_text( "l_modify_ic_with_cubic_int = ", l_modify_ic_with_cubic_int, l_write_to_file, iunit ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1317 : call write_text( "l_modify_bc_for_cnvg_test = ", l_modify_bc_for_cnvg_test, l_write_to_file, iunit ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2223 : (/lon_vals/), (/lat_vals/), time_current, dt_main, l_silhs_out_in,&!intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2240 : (/lon_vals/), (/lat_vals/), time_current, dt_main, l_silhs_out_in,&!intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2295 : if ( .not. (( abs(dt_rad/stats_metadata%stats_tout - real(floor(dt_rad/stats_metadata%stats_tout), kind=core_rknd)) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2297 : ( abs(stats_metadata%stats_tout/dt_rad - real(floor(stats_metadata%stats_tout/dt_rad), kind=core_rknd)) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2512 : clubb_params(1,:), nu_vert_res_dep, lmin, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2563 : clubb_params(1,:), nu_vert_res_dep, lmin, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2611 : clubb_params(1,:), & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2620 : stats_zt, stats_zm, stats_sfc, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2626 : precip_fracs, & ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2646 : stats_zt, stats_zm, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3515 : ! em(k) = ( 0.15_core_rknd * (1.0_core_rknd - gr%zm(1,k)/150.0_core_rknd) ) / rho_zm(k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4115 : = max( rtm(1,k) - sat_mixrat_liq( p_in_Pa(k), thm(1,k) * exner(1,k), saturation_formula ), & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/clubb_driver.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 102 : Skx(i,k) = min( max( Skx(i,k), -clubb_params(i,iSkw_max_mag) ), clubb_params(i,iSkw_max_mag) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/Skx_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 155 : stats_metadata, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 461 : call stat_update_var( ixp3_dp, -(C_xp3_dissipation * invrs_tau_zt(i,:))*xp3(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_xp3_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 327 : stability_correction(i,k) = one + min( lambda0_stability(i,k) * brunt_vaisala_freq_sqd(i,k) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 632 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 633 : ! for a plot on how output behaves with varying min_max_smth_mag CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 797 : fnc_Richardson(i,k) = ( Ri_zm(i,k) - clubb_params(i,iRichardson_num_min) ) * invrs_min_max_diff CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_helper_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 685 : * ( one - Skw(i,k) / sqrt( four * ( one - sigma_sqd_w(i,k) )**3 + Skw(i,k)**2 ) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/adg1_adg2_3d_luhar_pdf.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 413 : stats_metadata, & ! intent(in) stats_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. -------------------------------------------------------------------------------- ../src/CLUBB_core/clip_explicit.F90 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 150 : (/1._c,-.6_c, .09_c , .09_c , .788_c, .675_c, .240_c, .222_c, .240_c, .222_c, .240_c, .222_c, & ! chi CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 151 : 0._c, 1._c, .027_c, .027_c, .114_c, .115_c,-.029_c, .093_c, .022_c, .013_c, 0._c , 0._c , & ! eta CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 152 : 0._c, 0._c, 1._c , .34_c , .315_c, .270_c, .120_c, .167_c, 0._c , 0._c , 0._c , 0._c , & ! w CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 153 : 0._c, 0._c, 0._c , 1._c , 0._c , 0._c , .464_c, .320_c, .168_c, .232_c, 0._c , 0._c , & ! Ncn CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 154 : 0._c, 0._c, 0._c , 0._c , 1._c , .821_c, 0._c , 0._c , .173_c, .164_c, .319_c, .308_c, & ! rr CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 155 : 0._c, 0._c, 0._c , 0._c , 0._c , 1._c , .152_c, .143_c, 0._c , 0._c , .285_c, .273_c, & ! Nr CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 156 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, .585_c, .571_c, .379_c, .363_c, & ! ri CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 157 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .571_c, .550_c, .363_c, .345_c, & ! Ni CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 158 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, .485_c, .470_c, & ! rs CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 159 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .470_c, .450_c, & ! Ns CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 160 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, & ! rg CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 161 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c/), & ! Ng CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 166 : (/1._c, .3_c, .09_c , .09_c , .788_c, .675_c, .240_c, .222_c, .240_c, .222_c, .240_c, .222_c, &! chi CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 167 : 0._c, 1._c, .027_c, .027_c, .114_c, .115_c,-.029_c, .093_c, .022_c, .013_c, 0._c , 0._c , &! eta CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 169 : 0._c, 0._c, 0._c , 1._c , 0._c , 0._c , .464_c, .320_c, .168_c, .232_c, 0._c , 0._c , &! Ncn CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 170 : 0._c, 0._c, 0._c , 0._c , 1._c , .821_c, 0._c , 0._c , .173_c, .164_c, .319_c, .308_c, &! rr CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 171 : 0._c, 0._c, 0._c , 0._c , 0._c , 1._c , .152_c, .143_c, 0._c , 0._c , .285_c, .273_c, &! Nr CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 172 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, .585_c, .571_c, .379_c, .363_c, &! ri CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 173 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .571_c, .550_c, .363_c, .345_c, &! Ni CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 174 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, .485_c, .470_c, &! rs CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 175 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .470_c, .450_c, &! Ns CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 176 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, &! rg CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 177 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c/), &! Ng CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. -------------------------------------------------------------------------------- ../src/CLUBB_core/corr_varnce_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! ../src/CLUBB_core/matrix_solver_wrapper.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 480 : = + gr%invrs_dzt(i,k) * ( K_zt(i,k) + nu(i) ) * ( gr%invrs_dzm(i,k) + gr%invrs_dzm(i,k-1) ) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1124 : = + gr%invrs_dzm(i,k) * ( K_zm(i,k) + nu(i) ) * ( gr%invrs_dzt(i,k+1) + gr%invrs_dzt(i,k) ) & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/diffusion.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 144 : !$acc enter data create( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 164 : ! invrs_denom_integral(i,k) = one / sum(rho_ds_dz(i,k-num_hf_draw_points:k+num_hf_draw_points)) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 238 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_field_below_threshold) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 250 : !$acc exit data delete( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/fill_holes.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 480 : write(fstderr,*) "grdcol #", i, "rhs # ", n, "band_solvex backward error est. =", berr(i,n) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/lapack_wrap.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 496 : call windm_edsclrm_solve( nz, ngrdcol, gr, nrhs, stats_metadata%iwindm_matrix_condt_num, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 901 : call windm_edsclrm_solve( nz, ngrdcol, gr, nrhs, stats_metadata%iwindm_matrix_condt_num, & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_windm_edsclrm_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED! CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function. ../src/CLUBB_core/mt95.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 114 : character(len=*), private, parameter :: alph = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 117 : integer(kind=wi), private, parameter :: clen = ( n + 1_wi ) * 7_wi !n * ( ceiling( fbs * log( 2.0_core_rknd ) / log( alps ) ) + 1 ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/mt95.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 339 : call calc_coefs_wpxpyp_semiimpl( nz, wp2(i,:), rtp2(i,:), thlp2(i,:), wprtp(i,:), & ! In CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/new_pdf_main.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 375 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 623 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 992 : ! if l_avg_Lscale is true, compute_mixing_length is called two additional CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1136 : thlm_pert_pos_rt(i,k) = pdf_params%thl_1(i,k) + ( sign_rtpthlp_zt(i,k) * Lscale_pert_coef & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1139 : thlm_pert_neg_rt(i,k) = pdf_params%thl_2(i,k) - ( sign_rtpthlp_zt(i,k) * Lscale_pert_coef & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1152 : thlm_pert_pos_rt(i,k) = pdf_params%thl_2(i,k) + ( sign_rtpthlp_zt(i,k) * Lscale_pert_coef & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1155 : thlm_pert_neg_rt(i,k) = pdf_params%thl_1(i,k) - ( sign_rtpthlp_zt(i,k) * Lscale_pert_coef & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1472 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1473 : ! for a plot on how output behaves with varying min_max_smth_mag CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1476 : logical, parameter :: l_smooth_min_max = .false. ! whether to apply smooth min and max functions CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1592 : invrs_tau_shear_smooth(i,k) = clubb_params(i,iC_invrs_tau_shear) * smooth_norm_ddzt_umvm(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1653 : 1.e8_core_rknd * abs(brunt_vaisala_freq_sqd_mixed(i,k))**3) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1669 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd_smth, brunt_vaisala_freq_sqd_smth(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1691 : brunt_vaisala_freq_clipped = smooth_max( nz, ngrdcol, 1.0e-7_core_rknd, brunt_vaisala_freq_sqd_smth, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1806 : call stat_update_var(stats_metadata%ibrunt_freq_out_cloud, brunt_freq_out_cloud(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1851 : / ( gr%zm(i,k) - sfc_elevation(i) + clubb_params(i,iz_displace) ) ! small CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1904 : + clubb_params(i,iC_invrs_tau_N2_wpxp) * brunt_freq_out_cloud(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1983 : tmp_calc(i,k) = clubb_params(i,iC_invrs_tau_wpxp_Ri) * Ri_zm_smooth(i,k)**clubb_params(i,iwpxp_Ri_exp) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2014 : * max( Ri_zm(i,k), zero)**clubb_params(i,iwpxp_Ri_exp), 12.0_core_rknd ) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2026 : + clubb_params(i,iC_invrs_tau_N2_clear_wp3) * brunt_freq_out_cloud(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2074 : tau_zt = smooth_min( nz, ngrdcol, tau_zt_unclipped, tau_max_zt, 1.0e3_core_rknd * min_max_smth_mag ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/mixing_length.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 174 : if ( stats_metadata%iwprtpthlp > 0 ) call check_nan( wprtpthlp, "wprtpthlp", proc_name ) ! intnet(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/numerical_check.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1174 : !$acc fcor_col, sfc_elevation_col, thlm_forcing_col, rtm_forcing_col, um_forcing_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1175 : !$acc vm_forcing_col, wprtp_forcing_col, wpthlp_forcing_col, rtp2_forcing_col, thlp2_forcing_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1176 : !$acc rtpthlp_forcing_col, wm_zm_col, wm_zt_col, rho_zm_col, rho_col, rho_ds_zm_col, rho_ds_zt_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1177 : !$acc invrs_rho_ds_zm_col, invrs_rho_ds_zt_col, thv_ds_zm_col, thv_ds_zt_col, rfrzm_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1180 : !$acc upwp_sfc_pert_col, vpwp_sfc_pert_col, rtm_ref_col, thlm_ref_col, um_ref_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1182 : !$acc copy( um_col, upwp_col, vm_col, vpwp_col, up2_col, vp2_col, up3_col, vp3_col, rtm_col, wprtp_col, thlm_col, wpthlp_col, rtp2_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1185 : !$acc rtpthvp_col, thlpthvp_col, wp2rtp_col, wp2thlp_col, uprcp_col, vprcp_col, rc_coef_zm_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1186 : !$acc wp4_col, wpup2_col, wpvp2_col, wp2up2_col, wp2vp2_col, ice_supersat_frac_col, um_pert_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1235 : !$acc copyout( rcm_in_layer_col, cloud_cover_col, wprcp_col, w_up_in_cloud_col, w_down_in_cloud_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1236 : !$acc cloudy_updraft_frac_col, cloudy_downdraft_frac_col, invrs_tau_zm_col, Kh_zt_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1242 : !$acc copy( sclrm_col, wpsclrp_col, sclrp2_col, sclrp3_col, sclrprtp_col, sclrpthlp_col, sclrpthvp_col ) 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. 43 : ! lower_1(2)*upper_1(1)+l_diag(2)*1 = lhs(0,2) => l_diag(2) = lhs(0,2) - lower_1(2)*upper_1(1) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 44 : ! lower_1(2)*upper_2(1)+l_diag(2)*upper_1(2) = lhs(-1,2) => upper_1(2) = ( lhs(-1,2)-lower_1(2)*upper_2(1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 46 : ! l_diag(2)*upper_2(2) = lhs(-2,2) => upper_2(2) = lhs(-2,2) / l_diag(2) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 52 : ! l_2(k)*upper_1(k-2)+lower_1(k)*1 = lhs(1,k) => lower_1(k) = lhs(1,k) - l_2(k)*upper_1(k-2) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 53 : ! l_2(k)*upper_2(k-2)+lower_1(k)*upper_1(k-1) = lhs( 0,k) => l_diag(k) = lhs(0,k) - l_2(k)*upper_2(k-2) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 54 : ! +l_diag(k)*1 + lower_1(k)*upper_1(k-1) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/penta_lu_solver.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 259 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 465 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 741 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 868 : write(iunit,*) "l_fix_w_chi_eta_correlations = ", clubb_config_flags%l_fix_w_chi_eta_correlations CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 885 : write(iunit,*) "l_use_tke_in_wp3_pr_turb_term = ", clubb_config_flags%l_use_tke_in_wp3_pr_turb_term CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 887 : write(iunit,*) "l_use_wp3_lim_with_smth_Heaviside = ", clubb_config_flags%l_use_wp3_lim_with_smth_Heaviside CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 889 : write(iunit,*) "l_modify_limiters_for_cnvg_test = ", clubb_config_flags%l_modify_limiters_for_cnvg_test CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/model_flags.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 75 : call stat_assign( var_index=stats_metadata%ilh_morr_snow_rate, var_name="lh_morr_snow_rate", & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 99 : call stat_assign( var_index=stats_metadata%ik_lh_start, var_name="k_lh_start", & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_lh_sfc_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 617 : call stat_update_var( stats_metadata%icoef_wp4_implicit, coef_wp4_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1403 : call stat_update_var_pt( stats_metadata%iwp23_matrix_condt_num, 1, one / rcond(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1494 : call stat_end_update_pt( stats_metadata%iwp2_dp1, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1541 : call stat_end_update_pt( stats_metadata%iwp2_pr1, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1603 : call stat_end_update_pt( stats_metadata%iwp3_ta, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1616 : call stat_end_update_pt( stats_metadata%iwp3_tp, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1622 : call stat_end_update_pt( stats_metadata%iwp3_pr_tp, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2686 : call stat_update_var_pt( stats_metadata%iwp2_pr_dfsn, k, rhs_pr_dfsn_wp2(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2691 : call stat_update_var_pt( stats_metadata%iwp2_splat, k, - lhs_splat_wp2(i,k) * wp2(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2707 : call stat_modify_pt( stats_metadata%iwp2_pr1, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2790 : call stat_begin_update_pt( stats_metadata%iwp3_ta, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2805 : call stat_begin_update_pt( stats_metadata%iwp3_tp, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2811 : call stat_begin_update_pt( stats_metadata%iwp3_pr_tp, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2855 : call stat_update_var_pt( stats_metadata%iwp3_splat, k, - lhs_splat_wp3(i,k) * wp3(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2866 : call stat_begin_update_pt( stats_metadata%iwp3_dp1, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2885 : call stat_update_var_pt( stats_metadata%iwp3_pr_turb, k, rhs_pr_turb_wp3(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2887 : call stat_update_var_pt( stats_metadata%iwp3_pr_dfsn, k, rhs_pr_dfsn_wp3(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_wp2_wp3_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 114 : call stat_assign( var_index=stats_metadata%iFrad_LW_rad, var_name="Frad_LW_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 123 : call stat_assign( var_index=stats_metadata%iFrad_SW_rad, var_name="Frad_SW_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 132 : call stat_assign( var_index=stats_metadata%iFrad_SW_up_rad, var_name="Frad_SW_up_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 141 : call stat_assign( var_index=stats_metadata%iFrad_LW_up_rad, var_name="Frad_LW_up_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 150 : call stat_assign( var_index=stats_metadata%iFrad_SW_down_rad, var_name="Frad_SW_down_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 160 : call stat_assign( var_index=stats_metadata%iFrad_LW_down_rad, var_name="Frad_LW_down_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_rad_zm_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 462 : esat(i,k) = 10._core_rknd**(-7.90298_core_rknd*(373.16_core_rknd/T_in_K_clipped-1._core_rknd)+ & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1392 : *(MAX( rtm - sat_mixrat_liq(p_in_Pa,theta*exner, saturation_formula), zero_threshold )) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/saturation.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 88 : call stat_assign( var_index=stats_metadata%iT_in_K_rad, var_name="T_in_K_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 123 : call stat_assign( var_index=stats_metadata%ircm_in_cloud_rad, var_name="rcm_in_cloud_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 132 : call stat_assign( var_index=stats_metadata%icloud_frac_rad, var_name="cloud_frac_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 142 : call stat_assign( var_index=stats_metadata%iice_supersat_frac_rad, var_name="ice_supersat_frac_rad", & !In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 160 : call stat_assign( var_index=stats_metadata%iradht_LW_rad, var_name="radht_LW_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 169 : call stat_assign( var_index=stats_metadata%iradht_SW_rad, var_name="radht_SW_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 178 : call stat_assign( var_index=stats_metadata%ip_in_mb_rad, var_name="p_in_mb_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 187 : call stat_assign( var_index=stats_metadata%isp_humidity_rad, var_name="sp_humidity_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_rad_zt_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 516 : wstar = ( one/T0 * grav * wpthlp(i,1) * 0.2_core_rknd * depth_pos_wpthlp(i) )**(one_third) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/sfc_varnce_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 385 : call stat_update_var_pt( stats_metadata%iprecip_frac_tol, 1, precip_frac_tol(j), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 395 : call precip_frac_assert_check( nz, hydromet_dim, hydromet_tol, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 397 : precip_frac_1(j,:), precip_frac_2(j,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 398 : precip_frac_tol(j) ) ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/precipitation_fraction.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 127 : call stat_assign( var_index=stats_metadata%icc, var_name="cc", var_description="cc, Cloud cover", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 344 : call stat_assign( var_index=stats_metadata%iwp23_matrix_condt_num, var_name="wp23_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 351 : call stat_assign( var_index=stats_metadata%ithlm_matrix_condt_num, var_name="thlm_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 360 : call stat_assign( var_index=stats_metadata%irtm_matrix_condt_num, var_name="rtm_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 369 : call stat_assign( var_index=stats_metadata%ithlp2_matrix_condt_num, var_name="thlp2_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 377 : call stat_assign( var_index=stats_metadata%irtp2_matrix_condt_num, var_name="rtp2_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 403 : call stat_assign( var_index=stats_metadata%iwindm_matrix_condt_num, var_name="windm_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 437 : call stat_assign( var_index=stats_metadata%itot_vartn_normlzd_rtm, var_name="tot_vartn_normlzd_rtm", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 445 : call stat_assign( var_index=stats_metadata%itot_vartn_normlzd_thlm, var_name="tot_vartn_normlzd_thlm", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 453 : call stat_assign( var_index=stats_metadata%itot_vartn_normlzd_wprtp, var_name="tot_vartn_normlzd_wprtp", & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_sfc_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 177 : call stat_assign( var_index=stats_metadata%ilh_thlm_mc, var_name="lh_thlm_mc", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 306 : call stat_assign( var_index=stats_metadata%ilh_rcm_avg, var_name="lh_rcm_avg", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 459 : call stat_assign( var_index=stats_metadata%ilh_cloud_frac, var_name="lh_cloud_frac", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 513 : call stat_assign( var_index=stats_metadata%ilh_Ncnp2_zt, var_name="lh_Ncnp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 522 : call stat_assign( var_index=stats_metadata%ilh_Ncp2_zt, var_name="lh_Ncp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 531 : call stat_assign( var_index=stats_metadata%ilh_Nrp2_zt, var_name="lh_Nrp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 540 : call stat_assign( var_index=stats_metadata%ilh_rcp2_zt, var_name="lh_rcp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 549 : call stat_assign( var_index=stats_metadata%ilh_rtp2_zt, var_name="lh_rtp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 558 : call stat_assign( var_index=stats_metadata%ilh_thlp2_zt, var_name="lh_thlp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 567 : call stat_assign( var_index=stats_metadata%ilh_rrp2_zt, var_name="lh_rrp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 576 : call stat_assign( var_index=stats_metadata%ilh_rrm_auto, var_name="lh_rrm_auto", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 585 : call stat_assign( var_index=stats_metadata%ilh_rrm_accr, var_name="lh_rrm_accr", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 593 : call stat_assign( var_index=stats_metadata%ilh_rrm_evap, var_name="lh_rrm_evap", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 602 : call stat_assign( var_index=stats_metadata%ilh_Nrm_auto, var_name="lh_Nrm_auto", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 611 : call stat_assign( var_index=stats_metadata%ilh_Nrm_evap, var_name="lh_Nrm_evap", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 620 : call stat_assign( var_index=stats_metadata%ilh_rrm_src_adj, var_name="lh_rrm_src_adj", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 629 : call stat_assign( var_index=stats_metadata%ilh_rrm_evap_adj, var_name="lh_rrm_evap_adj", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 638 : call stat_assign( var_index=stats_metadata%ilh_Nrm_src_adj, var_name="lh_Nrm_src_adj", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 648 : call stat_assign( var_index=stats_metadata%ilh_Nrm_evap_adj, var_name="lh_Nrm_evap_adj", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 658 : call stat_assign( var_index=stats_metadata%ilh_precip_frac, var_name="lh_precip_frac", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 677 : call stat_assign( var_index=stats_metadata%ilh_mixt_frac, var_name="lh_mixt_frac", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 697 : call stat_assign( var_index=stats_metadata%ilh_m_vol_rad_rain, var_name="lh_m_vol_rad_rain", & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 705 : call stat_assign( var_index=stats_metadata%ilh_rrm_mc_nonadj, var_name="lh_rrm_mc_nonadj", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 717 : call stat_assign( var_index=stats_metadata%isilhs_variance_category(icategory), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 733 : call stat_assign( var_index=stats_metadata%ilh_samp_frac_category(icategory), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_lh_zt_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 43 : ! lower(k)*upper(k-1)+l_diag(k)*1 = lhs( 0,k) => l_diag(k) = lhs( 0,k) - lower(k)*upper(k-1) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 205 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 292 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/tridiag_lu_solver.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 8 : ! easier for the clubb_tuner code to use the clubb_params vector without "knowing" any information CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/parameters_tunable.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 845 : !$acc rc_coef, Km_zm, Kmh_zm, gamma_Skw_fnc, sigma_sqd_w, sigma_sqd_w_tmp, sigma_sqd_w_zt, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 924 : thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 925 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 926 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 927 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 928 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 929 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 930 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 931 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 934 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 935 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1357 : mu, rtp2_zt, thlp2_zt, rtpthlp_zt, pdf_params, em, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1562 : ! Added an extra check for stats_metadata%irel_humidity > 0; otherwise, if both stats_metadata%irsat = 0 and CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1563 : ! stats_metadata%irel_humidity = 0, rsat is not computed, leading to a floating-point exception CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1575 : call stat_update_var( stats_metadata%irel_humidity, rel_humidity(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1624 : call stat_update_var( stats_metadata%istability_correction, stability_correction(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1705 : call stat_update_var(stats_metadata%iinvrs_tau_wpxp_zm, invrs_tau_wpxp_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1709 : call stat_update_var(stats_metadata%iinvrs_tau_wp3_zm, invrs_tau_wp3_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1713 : call stat_update_var(stats_metadata%iinvrs_tau_no_N2_zm, invrs_tau_no_N2_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1722 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd, brunt_vaisala_freq_sqd(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1724 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd_splat, brunt_vaisala_freq_sqd_splat(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1726 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd_mixed, brunt_vaisala_freq_sqd_mixed(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1728 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd_moist, brunt_vaisala_freq_sqd_moist(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1730 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd_dry, brunt_vaisala_freq_sqd_dry(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1749 : clubb_config_flags%l_modify_limiters_for_cnvg_test, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1751 : stats_zm, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1843 : sclrm(i,:,:), sclrm_trsport_only(i,:,:), & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2206 : * ( one - exp( brunt_vaisala_freq_sqd_zt(i,k) / clubb_params(i,ixp3_coef_slope) ) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2602 : thlm(i,:), rtm(i,:), wprtp(i,:), wpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2603 : wp2(i,:), wp3(i,:), rtp2(i,:), rtp3(i,:), thlp2(i,:), thlp3(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2604 : wpthvp(i,:), wp2thvp(i,:), rtpthvp(i,:), thlpthvp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2605 : p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2606 : rho_ds_zm(i,:), rho_ds_zt(i,:), thv_ds_zm(i,:), thv_ds_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2607 : wm_zt(i,:), wm_zm(i,:), rcm(i,:), wprcp(i,:), rc_coef(i,:), rc_coef_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2608 : rcm_zm(i,:), rtm_zm(i,:), thlm_zm(i,:), cloud_frac(i,:), ice_supersat_frac(i,:),& ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2611 : thvm(i,:), ug(i,:), vg(i,:), Lscale(i,:), wpthlp2(i,:), wp2thlp(i,:), wprtp2(i,:), wp2rtp(i,:),& ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2612 : Lscale_up(i,:), Lscale_down(i,:), tau_zt(i,:), Kh_zt(i,:), wp2rcp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2613 : wprtpthlp(i,:), sigma_sqd_w_zt(i,:), rsat(i,:), wp2_zt(i,:), thlp2_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2614 : wpthlp_zt(i,:), wprtp_zt(i,:), rtp2_zt(i,:), rtpthlp_zt(i,:), up2_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2615 : vp2_zt(i,:), upwp_zt(i,:), vpwp_zt(i,:), wpup2(i,:), wpvp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2618 : rtprcp(i,:), rcp2(i,:), em(i,:), a3_coef(i,:), a3_coef_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2619 : wp3_zm(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), Skw_velocity(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2622 : pdf_params_single_col(i), pdf_params_zm_single_col(i), sclrm(i,:,:), sclrp2(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2623 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), sclrpthvp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2624 : wpsclrp(i,:,:), sclrprcp(i,:,:), wp2sclrp(i,:,:), wpsclrp2(i,:,:), wpsclrprtp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2625 : wpsclrpthlp(i,:,:), wpedsclrp(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2626 : clubb_config_flags%saturation_formula, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2627 : stats_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2628 : stats_zt(i), stats_zm(i), stats_sfc(i) ) ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2650 : thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2651 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2652 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2653 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2654 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2655 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2656 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2657 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2660 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2661 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2759 : !$acc sqrt_em_zt, xp3_coef_fnc, w_1_zm, w_2_zm, varnce_w_1_zm, varnce_w_2_zm, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2764 : !$acc invrs_tau_C4_zm, invrs_tau_C14_zm, invrs_tau_wp2_zm, invrs_tau_wpxp_zm, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2765 : !$acc invrs_tau_wp3_zm, invrs_tau_no_N2_zm, invrs_tau_bkgnd, invrs_tau_shear, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3301 : sclrp2_zt(:,:,j) = zm2zt( nz, ngrdcol, gr, sclrp2(:,:,j), sclr_tol(j)**2 ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3440 : sigma_sqd_w(:,:) = zm2zt2zm( nz, ngrdcol, gr, sigma_sqd_w_tmp(:,:), zero_threshold ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3444 : sigma_sqd_w_zt(:,:) = zm2zt( nz, ngrdcol, gr, sigma_sqd_w(:,:), zero_threshold ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3480 : sclrp2_zt(:,:,j) = zm2zt( nz, ngrdcol, gr, sclrp2(:,:,j), sclr_tol(j)**2 ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4062 : write(fstderr,*) "l_stability_correct_tau_zm = ", clubb_config_flags%l_stability_correct_tau_zm CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4098 : write(fstderr,*) "Unknown type of double Gaussian PDF selected: ", clubb_config_flags%iiPDF_type CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_clubb_core_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 499 : write(fstderr,*) "l_mono_flux_lim_rtm=T with l_mono_flux_lim_spikefix=F can lead to spikes aloft." CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 824 : call solve_xm_wpxp_with_single_lhs( nz, ngrdcol, sclr_dim, sclr_tol, gr, dt, l_iter, nrhs, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 923 : dt, sigma_sqd_w(i,:), wm_zm(i,:), wm_zt(i,:), wp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 924 : Lscale_zm(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 925 : Kh_zt(i,:), Kh_zm(i,:), invrs_tau_C6_zm(i,:), Skw_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 929 : wpthlp_forcing(i,:), thlm_ref(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 935 : wp2sclrp(i,:,:), sclrpthvp(i,:,:), sclrm_forcing(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 936 : sclrp2(i,:,:), exner(i,:), rcm(i,:), p_in_Pa(i,:), thvm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 939 : um_forcing(i,:), vm_forcing(i,:), ug(i,:), vg(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 940 : wpthvp(i,:), fcor(i), um_ref(i,:), vm_ref(i,:), up2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 941 : vp2(i,:), uprcp(i,:), vprcp(i,:), rc_coef_zm(i,:), rtm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 942 : wprtp(i,:), thlm(i,:), wpthlp(i,:), sclrm(i,:,:), wpsclrp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 943 : um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), rtm_old(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 945 : sclrm_old(i,:,:), wpsclrp_old(i,:,:), um_old(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3012 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3127 : call stat_update_var( stats_metadata%iupwp_pr4, C_uu_shr(i) * wp2(i,:) * ddzt_um(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3129 : call stat_update_var( stats_metadata%ivpwp_pr4, C_uu_shr(i) * wp2(i,:) * ddzt_vm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3326 : if ( stats_metadata%l_stats_samp .and. stats_metadata%ithlm_matrix_condt_num + stats_metadata%irtm_matrix_condt_num > 0 ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4137 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_xm_wpxp_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 431 : call stat_assign( var_index=stats_metadata%iinvrs_tau_wpxp_zm, var_name="invrs_tau_wpxp_zm", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 447 : call stat_assign( var_index=stats_metadata%iinvrs_tau_no_N2_zm, var_name="invrs_tau_no_N2_zm", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2086 : call stat_assign( var_index=stats_metadata%iice_supersat_frac_zm, var_name="ice_supersat_frac_zm", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2210 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd, var_name="bv_freq_sqd", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2218 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd_splat, var_name="bv_freq_sqd_splat", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2226 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd_mixed, var_name="bv_freq_sqd_mixed", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2234 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd_moist, var_name="bv_freq_sqd_moist", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2242 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd_dry, var_name="bv_freq_sqd_dry", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2250 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd_smth, var_name="bv_freq_sqd_smth", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2258 : call stat_assign( var_index=stats_metadata%ibrunt_freq_out_cloud, var_name="bv_freq_out_cloud", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2302 : call stat_assign( var_index=stats_metadata%iwp3_on_wp2_cfl_num, var_name="wp3_on_wp2_cfl_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2330 : call stat_assign( var_index=stats_metadata%istability_correction, var_name="stability_correction", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2384 : call stat_assign( var_index=stats_metadata%isclrprtp(j), var_name="sclr"//trim(sclr_idx)//"prtp", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2395 : call stat_assign( var_index=stats_metadata%isclrp2(j), var_name="sclr"//trim(sclr_idx)//"p2", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2406 : call stat_assign( var_index=stats_metadata%isclrpthvp(j), var_name="sclr"//trim(sclr_idx)//"pthvp", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2417 : call stat_assign( var_index=stats_metadata%isclrpthlp(j), var_name="sclr"//trim(sclr_idx)//"pthlp", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2428 : call stat_assign( var_index=stats_metadata%isclrprcp(j), var_name="sclr"//trim(sclr_idx)//"prcp", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2439 : call stat_assign( var_index=stats_metadata%iwpsclrp(j), var_name="wpsclr"//trim(sclr_idx)//"p", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2450 : call stat_assign( var_index=stats_metadata%iwpsclrp2(j), var_name="wpsclr"//trim(sclr_idx)//"p2", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2461 : call stat_assign( var_index=stats_metadata%iwp2sclrp(j), var_name="wp2sclr"//trim(sclr_idx)//"p", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2472 : call stat_assign( var_index=stats_metadata%iwpsclrprtp(j), var_name="wpsclr"//trim(sclr_idx)//"prtp", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2495 : call stat_assign( var_index=stats_metadata%iwpedsclrp(j), var_name="wpedsclr"//trim(sclr_idx)//"p", & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_zm_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 624 : call solve_xp2_xpyp_with_single_lhs( nz, ngrdcol, sclr_dim, sclr_tol, gr, sclr_idx, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1327 : sclrpthlp(:,:,sclr) ) ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1857 : rhs_ta_wpsclrp2, rhs_ta_wprtpsclrp, rhs_ta_wpthlpsclrp, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2729 : real( kind = core_rknd ), dimension(ngrdcol) :: rcond ! Est. of the reciprocal of the condition # on the matrix CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2763 : ixapxbp_matrix_condt_num = max( stats_metadata%irtp2_matrix_condt_num, stats_metadata%ithlp2_matrix_condt_num, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2783 : call stat_update_var_pt( stats_metadata%irtp2_matrix_condt_num, 1, one / rcond(i), & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2786 : call stat_update_var_pt( stats_metadata%ithlp2_matrix_condt_num, 1, one / rcond(i), & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2789 : call stat_update_var_pt( stats_metadata%irtpthlp_matrix_condt_num, 1, one / rcond(i), & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4042 : wp_coef(i,k) = ( one - one_third * beta(i) ) * a1(i,k)**2 * wp3_on_wp2(i,k) / wp2(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4043 : wp_coef_zt(i,k) = ( one - one_third * beta(i) ) * a1_zt(i,k)**2 * wp3_on_wp2_zt(i,k) / wp2_zt(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4224 : sgn_t_vel_sclrprtp(i,k) = sign(one,term_wprtpsclrp_explicit_zm(i,k)*sclrprtp(i,k,sclr)) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4258 : sgn_t_vel_sclrpthlp(i,k) = sign(one,term_wpthlpsclrp_explicit_zm(i,k)*sclrpthlp(i,k,sclr)) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4351 : invrs_rho_ds_zm, rho_ds_zm, & ! Intent(in) & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5253 : !call stat_update_var( stats_metadata%icoef_wprtp2_implicit, coef_wprtp2_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5257 : !call stat_update_var( stats_metadata%iterm_wprtp2_explicit, term_wprtp2_explicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5261 : !call stat_update_var( stats_metadata%icoef_wpthlp2_implicit, coef_wpthlp2_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5265 : !call stat_update_var( stats_metadata%iterm_wpthlp2_explicit, term_wpthlp2_explicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5269 : !call stat_update_var( stats_metadata%icoef_wprtpthlp_implicit, coef_wprtpthlp_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5273 : !call stat_update_var( stats_metadata%iterm_wprtpthlp_explicit, term_wprtpthlp_explicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_xp2_xpyp_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 725 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 830 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 838 : time_current, stats_metadata%stats_tout, stats_lh_zt%num_output_fields, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 912 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 920 : time_current, stats_metadata%stats_tout, stats_lh_sfc%num_output_fields, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1149 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1232 : time_current+real(stats_metadata%stats_tout, kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1316 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1405 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1413 : time_current, stats_metadata%stats_tout, stats_sfc%num_output_fields, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2067 : integer :: grid_level = 1 ! grid level for stats where there is only one sensible level (eg timeseries) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2203 : call stat_update_var( stats_metadata%ivarnce_thl_1, pdf_params%varnce_thl_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2205 : call stat_update_var( stats_metadata%ivarnce_thl_2, pdf_params%varnce_thl_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2223 : call stat_update_var( stats_metadata%icloud_frac_1, pdf_params%cloud_frac_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2225 : call stat_update_var( stats_metadata%icloud_frac_2, pdf_params%cloud_frac_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2239 : call stat_update_var( stats_metadata%icovar_chi_eta_1, pdf_params%covar_chi_eta_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2241 : call stat_update_var( stats_metadata%icovar_chi_eta_2, pdf_params%covar_chi_eta_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2243 : call stat_update_var( stats_metadata%icorr_w_chi_1, pdf_params%corr_w_chi_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2245 : call stat_update_var( stats_metadata%icorr_w_chi_2, pdf_params%corr_w_chi_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2247 : call stat_update_var( stats_metadata%icorr_w_eta_1, pdf_params%corr_w_eta_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2249 : call stat_update_var( stats_metadata%icorr_w_eta_2, pdf_params%corr_w_eta_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2251 : call stat_update_var( stats_metadata%icorr_chi_eta_1, pdf_params%corr_chi_eta_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2253 : call stat_update_var( stats_metadata%icorr_chi_eta_2, pdf_params%corr_chi_eta_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2259 : call stat_update_var( stats_metadata%icorr_w_thl_1, pdf_params%corr_w_thl_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2261 : call stat_update_var( stats_metadata%icorr_w_thl_2, pdf_params%corr_w_thl_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2263 : call stat_update_var( stats_metadata%icorr_rt_thl_1, pdf_params%corr_rt_thl_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2265 : call stat_update_var( stats_metadata%icorr_rt_thl_2, pdf_params%corr_rt_thl_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2325 : call stat_update_var( stats_metadata%isclrm_f(isclr), sclrm_forcing(:,isclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2334 : call stat_update_var( stats_metadata%iedsclrm_f(isclr), edsclrm_forcing(:,isclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2417 : call stat_update_var( stats_metadata%iwp3_on_wp2_cfl_num, wp3_on_wp2 * dt / dzm, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2422 : call stat_update_var( stats_metadata%iice_supersat_frac_zm, ice_supersat_frac_zm, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2434 : call stat_update_var( stats_metadata%ivarnce_w_1_zm, pdf_params_zm%varnce_w_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2436 : call stat_update_var( stats_metadata%ivarnce_w_2_zm, pdf_params_zm%varnce_w_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2438 : call stat_update_var( stats_metadata%imixt_frac_zm, pdf_params_zm%mixt_frac(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2459 : call stat_update_var( stats_metadata%iwpsclrprtp(isclr), wpsclrprtp(:,isclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2461 : call stat_update_var( stats_metadata%iwpsclrpthlp(isclr), wpsclrpthlp(:,isclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2486 : call stat_update_var_pt( stats_metadata%icc, grid_level, maxval( cloud_frac(1:nz) ), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2510 : call stat_update_var_pt( stats_metadata%iz_cloud_base, grid_level, -10.0_core_rknd , & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2621 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_rtm, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2627 : write(fstderr, *) "Warning: tot_vartn_normlzd_thlm tried to divide by zero denominator ", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2634 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_thlm, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2640 : write(fstderr, *) "Warning: tot_vartn_normlzd_wprtp tried to divide by zero denominator ", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2647 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_wprtp, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2893 : call stat_update_var( stats_metadata%ilh_rrm_mc, lh_hydromet_mc(:,hm_metadata%iirr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_clubb_utilities.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 231 : real( kind = core_rknd ), dimension(ngrdcol, nz, min(1,sclr_dim), 2 ), intent(in) :: & ! h1g, 2010-06-15 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 577 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 578 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 605 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 606 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 617 : call LY93_driver( nz, wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 618 : thlp2(i,:), Skw(i,:), Skrt(i,:), Skthl(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 973 : pdf_params%rsatl_1(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl1(i,:) ) * RH_crit(i, :, 1, 1) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 988 : pdf_params%rsatl_2(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl2(i,:) ) * RH_crit(i, :, 1, 2) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1011 : rsatl_2 = sat_mixrat_liq( nz, ngrdcol, p_in_Pa, tl2, saturation_formula ) ! h1g, 2010-06-16 end mod CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1117 : rcm(i,k) = pdf_params%mixt_frac(i,k) * pdf_params%rc_1(i,k) + ( one - pdf_params%mixt_frac(i,k) ) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1292 : = pdf_params%mixt_frac(i,k) * ( ( sclr1(i,k,j) - sclrm(i,k,j) ) * pdf_params%rc_1(i,k) ) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1298 : + ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_rt_2(i,k,j) * pdf_params%crt_2(i,k) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1304 : - ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_thl_2(i,k,j) * pdf_params%cthl_2(i,k) & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/pdf_closure_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 552 : call stat_assign( var_index=stats_metadata%iice_supersat_frac, var_name="ice_supersat_frac", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 784 : var_description="rt'^3, Third-order moment of total water, rt", var_units="(kg/kg)^3", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 938 : call stat_assign( var_index=stats_metadata%irho, var_name="rho", var_description="rho, Air density", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2890 : call stat_assign( var_index=stats_metadata%iw_KK_evap_covar_zt, var_name="w_KK_evap_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2898 : call stat_assign( var_index=stats_metadata%irt_KK_evap_covar_zt, var_name="rt_KK_evap_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2906 : call stat_assign( var_index=stats_metadata%ithl_KK_evap_covar_zt, var_name="thl_KK_evap_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2915 : call stat_assign( var_index=stats_metadata%iw_KK_auto_covar_zt, var_name="w_KK_auto_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2923 : call stat_assign( var_index=stats_metadata%irt_KK_auto_covar_zt, var_name="rt_KK_auto_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2931 : call stat_assign( var_index=stats_metadata%ithl_KK_auto_covar_zt, var_name="thl_KK_auto_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2940 : call stat_assign( var_index=stats_metadata%iw_KK_accr_covar_zt, var_name="w_KK_accr_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2949 : call stat_assign( var_index=stats_metadata%irt_KK_accr_covar_zt, var_name="rt_KK_accr_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2958 : call stat_assign( var_index=stats_metadata%ithl_KK_accr_covar_zt, var_name="thl_KK_accr_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2966 : call stat_assign( var_index=stats_metadata%irr_KK_mvr_covar_zt, var_name="rr_KK_mvr_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2975 : call stat_assign( var_index=stats_metadata%iNr_KK_mvr_covar_zt, var_name="Nr_KK_mvr_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2984 : call stat_assign( var_index=stats_metadata%iKK_mvr_variance_zt, var_name="KK_mvr_variance_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4932 : call stat_assign( var_index=stats_metadata%icloud_frac_refined, var_name="cloud_frac_refined", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4948 : call stat_assign( var_index=stats_metadata%ihl_on_Cp_residual, var_name="hl_on_Cp_residual", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4969 : call stat_assign( var_index=stats_metadata%isclrm(j), var_name="sclr"//trim(sclr_idx)//"m", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4980 : call stat_assign( var_index=stats_metadata%isclrm_f(j), var_name="sclr"//trim(sclr_idx)//"m_f", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4991 : call stat_assign( var_index=stats_metadata%iedsclrm(j), var_name="edsclr"//trim(sclr_idx)//"m", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5002 : call stat_assign( var_index=stats_metadata%iedsclrm_f(j), var_name="edsclr"//trim(sclr_idx)//"m_f", & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_zt_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 466 : = ( ( hm_metadata%hmp2_ip_on_hmm2_ip(j) + one ) / precip_fracs%precip_frac(i,k) - one ) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 695 : call calc_corr_norm_and_cholesky_factor( nz, ngrdcol, iiPDF_type, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 696 : pdf_dim, hm_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 697 : pdf_params%rc_1, pdf_params%rc_2, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 698 : corr_array_n_cloud, corr_array_n_below, & ! intent(out) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 699 : corr_array_1_n, corr_array_2_n, & ! intent(out) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 783 : call stat_update_var_pt( stats_metadata%ihmp2_zt(j), k, hydrometp2_zt(i,k,j), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 820 : corr_array_1_n(i,:,hm_metadata%iiPDF_chi,hm_metadata%iiPDF_eta), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 821 : corr_array_2_n(i,:,hm_metadata%iiPDF_chi,hm_metadata%iiPDF_eta) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 846 : call stat_update_var_pt( stats_metadata%iprecip_frac, k, precip_fracs%precip_frac(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 855 : call stat_update_var_pt( stats_metadata%iprecip_frac_1, k, precip_fracs%precip_frac_1(i,k), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 864 : call stat_update_var_pt( stats_metadata%iprecip_frac_2, k, precip_fracs%precip_frac_2(i,k), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3854 : call stat_update_var_pt( stats_metadata%imu_hm_1(hm_idx), k, mu_x_1(k,ivar), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3864 : call stat_update_var_pt( stats_metadata%imu_hm_2(hm_idx), k, mu_x_2(k,ivar), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3875 : call stat_update_var_pt( stats_metadata%imu_Ncn_1, k, mu_x_1(k,iiPDF_Ncn), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3884 : call stat_update_var_pt( stats_metadata%imu_Ncn_2, k, mu_x_2(k,iiPDF_Ncn), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3899 : call stat_update_var_pt( stats_metadata%isigma_hm_1(hm_idx), k, sigma_x_1(k,ivar), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3910 : call stat_update_var_pt( stats_metadata%isigma_hm_2(hm_idx), k, sigma_x_2(k,ivar), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3921 : call stat_update_var_pt( stats_metadata%isigma_Ncn_1, k, sigma_x_1(k,iiPDF_Ncn), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3930 : call stat_update_var_pt( stats_metadata%isigma_Ncn_2, k, sigma_x_2(k,iiPDF_Ncn), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4257 : call stat_update_var_pt( stats_metadata%icorr_hmx_hmy_1(hm_idx_jvar,hm_idx_ivar), k, & ! in CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4269 : call stat_update_var_pt( stats_metadata%icorr_hmx_hmy_2(hm_idx_jvar,hm_idx_ivar), k, & ! in CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4394 : call stat_update_var_pt( stats_metadata%imu_hm_1_n(hm_idx), k, mu_hm_1_n(k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4413 : call stat_update_var_pt( stats_metadata%imu_hm_2_n(hm_idx), k, mu_hm_2_n(k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/setup_clubb_pdf_params.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 137 : wprtp_sfc = compute_wprtp_sfc( Cq, ubar, rtm_sfc, sat_mixrat_liq( p_sfc, T_sfc, saturation_formula ) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/Benchmark_cases/cloud_feedback.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 164 : wprtp_sfc = compute_wprtp_sfc( Cd, ubar, rtm_sfc, sat_mixrat_liq( p_sfc, T_sfc, saturation_formula ) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. -------------------------------------------------------------------------------- ../src/Benchmark_cases/dycoms2_rf01.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 99 : wprtp_sfc = compute_wprtp_sfc( Cz, ubar, rtm_sfc, sat_mixrat_liq( p_sfc, T_sfc, saturation_formula ) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/Benchmark_cases/fire.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has forbidden elements: .gt. . 71 : if (time.gt.80880_time_precision) then CLUBBStandardsCheck.pl WARNING: File has forbidden elements. ../src/Benchmark_cases/neutral_case.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. CLUBBStandardsCheck.pl has begun. CLUBBStandardsCheck.pl has finished. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 447 : call assert_correct_cloud_normal( num_samples, X_u_all_levs(i,:,k,hm_metadata%iiPDF_chi), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2273 : ! call stat_update_var( stats_metadata%ilh_cloud_frac_unweighted, lh_cloud_frac, stats_lh_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2617 : ! call stat_update_var( stats_metadata%ilh_precip_frac_unweighted, lh_precip_frac, stats_lh_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2660 : call stat_update_var_pt( stats_metadata%ik_lh_start, 1, real( k_lh_start(i), kind=core_rknd ), stats_lh_sfc ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2707 : ! call stat_update_var( stats_metadata%ilh_samp_frac_category(icategory), lh_samp_frac(:,icategory), & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/SILHS/latin_hypercube_driver_module.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 121 : result = smooth_min(4, 1, input, zero, min_max_smth_mag) ! Order of nz and ngrdcol is opposite to order of indexing! This is very unintuitive! CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 174 : ! Case 3: Make sure that on a large number of arbitrarily chosen points with small min_max_smth_mag, CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/G_unit_test_types/smooth_min_max_tests.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 502 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/G_unit_test_types/spurious_source_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 559 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1597 : wp2(1,:), rtp2(1,:), thlp2(1,:), up2(1,:), vp2(1,:), &! In CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/G_unit_test_types/pdf_parameter_tests.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. configurable_multi_column_nl not found, setting num_standalone_columns = 1 Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used. Program exited normally configurable_multi_column_nl not found, setting num_standalone_columns = 1 Warning: ../input/case_setups/dycoms2_rf01_corr_array_cloud.in was not found! The default correlation arrays will be used. Program exited normally ......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................../home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/CLUBB_core/clubb_api_module.F90:1026:16: 1026 | integer :: i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/silhs_importance_sample_module.F90:638:62: 633 | do category=1, num_importance_categories | 2 ...... 638 | rand_vect(sample) < category_cumulative_probs(category+1) ) then | 1 Warning: Array reference at (1) out of bounds (9 > 8) in loop beginning at (2) [-Wdo-subscript] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/latin_hypercube_driver_module.F90:1007:44: 1007 | subroutine clip_transform_silhs_output( gr, nz, ngrdcol, num_samples, & ! In | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/latin_hypercube_driver_module.F90:80:8: 80 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘nparams’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/silhs_api_module.F90:347:8: 347 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘nparams’ which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/silhs_api_module.F90:326:13: 326 | rho_ds_zt, & ! Unused | 1 Warning: Unused dummy argument ‘rho_ds_zt’ at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo/compile/../src/SILHS/silhs_api_module.F90:170:8: 170 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘nparams’ which has been explicitly imported at (1) [-Wunused-parameter] ../src/morrison_microphys_module.F90:1235:13: 1235 | .or. is_nan_2d( real( rim_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1236:13: 1236 | .or. is_nan_2d( real( rsm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1237:13: 1237 | .or. is_nan_2d( real( rrm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1238:13: 1238 | .or. is_nan_2d( real( rgm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1239:13: 1239 | .or. is_nan_2d( real( Ncm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1240:13: 1240 | .or. is_nan_2d( real( Nim_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1241:13: 1241 | .or. is_nan_2d( real( Nsm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1242:13: 1242 | .or. is_nan_2d( real( Nrm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1243:13: 1243 | .or. is_nan_2d( real( Ngm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1244:13: 1244 | .or. is_nan_2d( real( rvm_mc_r4, kind=core_rknd ) ) & | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:1245:13: 1245 | .or. is_nan_2d( real( T_in_K_mc, kind=core_rknd ) ) ) then | 1 Warning: Impure function ‘is_nan_2d’ at (1) might not be evaluated [-Wfunction-elimination] ../src/morrison_microphys_module.F90:20:33: 20 | saturation_formula, & | 1 Warning: Unused dummy argument ‘saturation_formula’ at (1) [-Wunused-dummy-argument] ../src/KK_microphys_module.F90:43:35: 43 | subroutine KK_local_microphys( gr, dt, nz, & ! In | 1 Warning: Unused dummy argument ‘gr’ at (1) [-Wunused-dummy-argument] ../src/clubb_driver.F90:6547:39: 6547 | clubb_params, nu_vert_res_dep, lmin, & ! intent(in) | 1 Warning: Unused dummy argument ‘lmin’ at (1) [-Wunused-dummy-argument] ../src/clubb_driver.F90:6547:33: 6547 | clubb_params, nu_vert_res_dep, lmin, & ! intent(in) | 1 Warning: Unused dummy argument ‘nu_vert_res_dep’ at (1) [-Wunused-dummy-argument] ../src/clubb_driver.F90:5722:8: 5722 | use constants_clubb, only: & | 1 Warning: Unused parameter ‘fstdout’ which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:73:8: 73 | use parameter_indices, only: & | 1 Warning: Unused parameter ‘iskw_denom_coef’ which has been explicitly imported at (1) [-Wunused-parameter] ../src/G_unit_tests.F90:176:13: 176 | stats_sfc | 1 Warning: Unused variable ‘stats_sfc’ declared at (1) [-Wunused-variable] ../src/G_unit_tests.F90:175:12: 175 | stats_zm, & | 1 Warning: Unused variable ‘stats_zm’ declared at (1) [-Wunused-variable] ../src/G_unit_tests.F90:174:12: 174 | stats_zt, & | 1 Warning: Unused variable ‘stats_zt’ declared at (1) [-Wunused-variable] CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 952 : call stat_update_var_pt( stats_metadata%iNsm, k, real(Nsm(k), kind = core_rknd) ,stats_zt ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/coamps_microphys_driver_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 677 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/clubb_tuner.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 179 : max( rtm(1,k) - sat_mixrat_liq( p_in_Pa(k), theta(1,k)*exner(1,k), saturation_formula ), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 201 : rcm(1,k) = rcm_sat_adj( thlm(1,k), rtm(1,k), p_in_Pa(k), exner(1,k), saturation_formula ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/input_interpret.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 282 : nzt = stat_file_num_vertical_levels( "thlm", "../output/"//trim( stats_metadata%fname_zt )//".ctl" ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 283 : nzm = stat_file_num_vertical_levels( "thlm", "../output/"//trim( stats_metadata%fname_zm )//".ctl" ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/jacobian.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 295 : z_i = lin_interpolate_two_points( 8.0e-3_core_rknd, rtm(k), rtm(k-1), gr%zt(1,k), gr%zt(1,k-1) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/simple_rad_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 386 : call microphys_put_var( stats_metadata%irrm_src_adj, adj_terms%rrm_src_adj, microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 387 : call microphys_put_var( stats_metadata%iNrm_src_adj, adj_terms%Nrm_src_adj, microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 390 : call microphys_put_var( stats_metadata%irrm_evap_adj, adj_terms%rrm_evap_adj, microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 391 : call microphys_put_var( stats_metadata%iNrm_evap_adj, adj_terms%Nrm_evap_adj, microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 393 : call microphys_put_var( stats_metadata%irrm_mc_nonadj, KK_auto_tndcy+KK_accr_tndcy+KK_evap_tndcy, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1102 : call stat_update_var( stats_metadata%irrm_mc_nonadj, KK_auto_tndcy+KK_accr_tndcy+KK_evap_tndcy, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1683 : call stat_update_var_pt( stats_metadata%im_vol_rad_rain, level, KK_mean_vol_rad, stats_zt ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/KK_microphys_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 384 : z(kp2), p_in_Pa(km1), p_in_Pa(k00), p_in_Pa(kp1), p_in_Pa(kp2) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 433 : press(i) = lin_interpolate_two_points( gr%zt(1,i), z(k), z(k-1), p_in_Pa(k), p_in_Pa(k-1) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/sounding.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 974 : = clubb_params(iomicron) * hm_metadata%hmp2_ip_on_hmm2_ip(pdf2hydromet_idx(ivar,hm_metadata)) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/microphys_init_cleanup.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 828 : call microphys_put_var( stats_metadata%irsm_sd_morr_int, (/rsm_sd_morr_int/), microphys_stats_sfc ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 846 : call microphys_put_var( stats_metadata%ihl_on_Cp_residual, hl_on_Cp_residual, microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 861 : call microphys_put_var( stats_metadata%iPSMLT, real( PSMLT, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 862 : call microphys_put_var( stats_metadata%iEVPMS, real( EVPMS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 863 : call microphys_put_var( stats_metadata%iPRACS, real( PRACS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 864 : call microphys_put_var( stats_metadata%iEVPMG, real( EVPMG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 865 : call microphys_put_var( stats_metadata%iPRACG, real( PRACG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 866 : call microphys_put_var( stats_metadata%iPGMLT, real( PGMLT, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 867 : call microphys_put_var( stats_metadata%iMNUCCC, real( MNUCCC, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 868 : call microphys_put_var( stats_metadata%iPSACWS, real( PSACWS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 869 : call microphys_put_var( stats_metadata%iPSACWI, real( PSACWI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 870 : call microphys_put_var( stats_metadata%iQMULTS, real( QMULTS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 871 : call microphys_put_var( stats_metadata%iQMULTG, real( QMULTG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 872 : call microphys_put_var( stats_metadata%iPSACWG, real( PSACWG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 873 : call microphys_put_var( stats_metadata%iPGSACW, real( PGSACW, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 877 : call microphys_put_var( stats_metadata%iQMULTR, real( QMULTR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 878 : call microphys_put_var( stats_metadata%iQMULTRG, real( QMULTRG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 879 : call microphys_put_var( stats_metadata%iMNUCCD, real( MNUCCD, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 880 : call microphys_put_var( stats_metadata%iPRACI, real( PRACI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 881 : call microphys_put_var( stats_metadata%iPRACIS, real( PRACIS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 883 : call microphys_put_var( stats_metadata%iMNUCCR, real( MNUCCR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 884 : call microphys_put_var( stats_metadata%iPIACR, real( PIACR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 885 : call microphys_put_var( stats_metadata%iPIACRS, real( PIACRS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 886 : call microphys_put_var( stats_metadata%iPGRACS, real( PGRACS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 888 : call microphys_put_var( stats_metadata%iEPRDS, real( EPRDS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 889 : call microphys_put_var( stats_metadata%iPSACR, real( PSACR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 891 : call microphys_put_var( stats_metadata%iEPRDG, real( EPRDG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 894 : call microphys_put_var( stats_metadata%iNGSTEN, real( NGSTEN, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 895 : call microphys_put_var( stats_metadata%iNRSTEN, real( NRSTEN, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 896 : call microphys_put_var( stats_metadata%iNISTEN, real( NISTEN, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 897 : call microphys_put_var( stats_metadata%iNSSTEN, real( NSSTEN, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 898 : call microphys_put_var( stats_metadata%iNCSTEN, real( NCSTEN, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 899 : call microphys_put_var( stats_metadata%iNPRC1, real( NPRC1, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 900 : call microphys_put_var( stats_metadata%iNRAGG, real( NRAGG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 901 : call microphys_put_var( stats_metadata%iNPRACG, real( NPRACG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 902 : call microphys_put_var( stats_metadata%iNSUBR, real( NSUBR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 903 : call microphys_put_var( stats_metadata%iNSMLTR, real( NSMLTR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 904 : call microphys_put_var( stats_metadata%iNGMLTR, real( NGMLTR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 905 : call microphys_put_var( stats_metadata%iNPRACS, real( NPRACS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 906 : call microphys_put_var( stats_metadata%iNNUCCR, real( NNUCCR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 907 : call microphys_put_var( stats_metadata%iNIACR, real( NIACR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 908 : call microphys_put_var( stats_metadata%iNIACRS, real( NIACRS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 909 : call microphys_put_var( stats_metadata%iNGRACS, real( NGRACS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 910 : call microphys_put_var( stats_metadata%iNSMLTS, real( NSMLTS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 911 : call microphys_put_var( stats_metadata%iNSAGG, real( NSAGG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 912 : call microphys_put_var( stats_metadata%iNPRCI, real( NPRCI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 913 : call microphys_put_var( stats_metadata%iNSCNG, real( NSCNG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 914 : call microphys_put_var( stats_metadata%iNSUBS, real( NSUBS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 917 : call microphys_put_var( stats_metadata%iNNUCCC, real( NNUCCC, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 918 : call microphys_put_var( stats_metadata%iNPSACWS, real( NPSACWS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 921 : call microphys_put_var( stats_metadata%iNPSACWI, real( NPSACWI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 922 : call microphys_put_var( stats_metadata%iNPSACWG, real( NPSACWG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 923 : call microphys_put_var( stats_metadata%iNPRAI, real( NPRAI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 924 : call microphys_put_var( stats_metadata%iNMULTS, real( NMULTS, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 925 : call microphys_put_var( stats_metadata%iNMULTG, real( NMULTG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 926 : call microphys_put_var( stats_metadata%iNMULTR, real( NMULTR, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 927 : call microphys_put_var( stats_metadata%iNMULTRG, real( NMULTRG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 928 : call microphys_put_var( stats_metadata%iNNUCCD, real( NNUCCD, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 929 : call microphys_put_var( stats_metadata%iNSUBI, real( NSUBI, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 930 : call microphys_put_var( stats_metadata%iNGMLTG, real( NGMLTG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 931 : call microphys_put_var( stats_metadata%iNSUBG, real( NSUBG, kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 933 : call microphys_put_var( stats_metadata%iSIZEFIX_NR, real( SIZEFIX_NR,kind=core_rknd),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 934 : call microphys_put_var( stats_metadata%iSIZEFIX_NC, real( SIZEFIX_NC,kind=core_rknd),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 935 : call microphys_put_var( stats_metadata%iSIZEFIX_NI, real( SIZEFIX_NI,kind=core_rknd),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 936 : call microphys_put_var( stats_metadata%iSIZEFIX_NS, real( SIZEFIX_NS,kind=core_rknd),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 937 : call microphys_put_var( stats_metadata%iSIZEFIX_NG, real( SIZEFIX_NG,kind=core_rknd),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 938 : call microphys_put_var( stats_metadata%iNEGFIX_NR, real( NEGFIX_NR,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 939 : call microphys_put_var( stats_metadata%iNEGFIX_NC, real( NEGFIX_NC,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 940 : call microphys_put_var( stats_metadata%iNEGFIX_NI, real( NEGFIX_NI,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 941 : call microphys_put_var( stats_metadata%iNEGFIX_NS, real( NEGFIX_NS,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 942 : call microphys_put_var( stats_metadata%iNEGFIX_NG, real( NEGFIX_NG,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 943 : call microphys_put_var( stats_metadata%iNIM_MORR_CL, real( NIM_MORR_CL,kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 944 : call microphys_put_var( stats_metadata%iQC_INST, real( QC_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 945 : call microphys_put_var( stats_metadata%iQR_INST, real( QR_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 946 : call microphys_put_var( stats_metadata%iQI_INST, real( QI_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 947 : call microphys_put_var( stats_metadata%iQS_INST, real( QS_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 948 : call microphys_put_var( stats_metadata%iQG_INST, real( QG_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 949 : call microphys_put_var( stats_metadata%iNC_INST, real( NC_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 950 : call microphys_put_var( stats_metadata%iNR_INST, real( NR_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 951 : call microphys_put_var( stats_metadata%iNI_INST, real( NI_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 952 : call microphys_put_var( stats_metadata%iNS_INST, real( NS_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 953 : call microphys_put_var( stats_metadata%iNG_INST, real( NG_INST,kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 955 : call microphys_put_var( stats_metadata%iT_in_K_mc, real( T_in_K_mc, kind=core_rknd ),microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 960 : call microphys_put_var( stats_metadata%ieff_rad_cloud, real( effc(:), kind = core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 961 : call microphys_put_var( stats_metadata%ieff_rad_ice, real( effi(:), kind = core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 962 : call microphys_put_var( stats_metadata%ieff_rad_snow, real( effs(:), kind = core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 963 : call microphys_put_var( stats_metadata%ieff_rad_rain, real( effr(:), kind = core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 964 : call microphys_put_var( stats_metadata%ieff_rad_graupel, real( effg(:), kind=core_rknd ), microphys_stats_zt ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/morrison_microphys_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 954 : if ( trim( hm_metadata%hydromet_list(i) ) == "rrm" .and. stats_metadata%iVrrprrp > 0 ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 957 : call stat_update_var( stats_metadata%iVrrprrp, hydromet_vel_covar(:,hm_metadata%iirr), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 960 : elseif ( trim( hm_metadata%hydromet_list(i) ) == "Nrm" .and. stats_metadata%iVNrpNrp > 0 ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 963 : call stat_update_var( stats_metadata%iVNrpNrp, hydromet_vel_covar(:,hm_metadata%iiNr), stats_zm ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/advance_microphys_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: 'use' statement w/o 'only' found in the following line: 6664 : use netcdf CLUBBStandardsCheck.pl WARNING: Use check FAILED! CLUBBStandardsCheck.pl WARNING: Check that comma is on same line as 'use', as CLUBB requires. ../src/clubb_driver.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 868 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1316 : call write_text( "l_modify_ic_with_cubic_int = ", l_modify_ic_with_cubic_int, l_write_to_file, iunit ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1317 : call write_text( "l_modify_bc_for_cnvg_test = ", l_modify_bc_for_cnvg_test, l_write_to_file, iunit ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2223 : (/lon_vals/), (/lat_vals/), time_current, dt_main, l_silhs_out_in,&!intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2240 : (/lon_vals/), (/lat_vals/), time_current, dt_main, l_silhs_out_in,&!intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2295 : if ( .not. (( abs(dt_rad/stats_metadata%stats_tout - real(floor(dt_rad/stats_metadata%stats_tout), kind=core_rknd)) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2297 : ( abs(stats_metadata%stats_tout/dt_rad - real(floor(stats_metadata%stats_tout/dt_rad), kind=core_rknd)) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2512 : clubb_params(1,:), nu_vert_res_dep, lmin, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2563 : clubb_params(1,:), nu_vert_res_dep, lmin, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2611 : clubb_params(1,:), & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2620 : stats_zt, stats_zm, stats_sfc, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2626 : precip_fracs, & ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2646 : stats_zt, stats_zm, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3515 : ! em(k) = ( 0.15_core_rknd * (1.0_core_rknd - gr%zm(1,k)/150.0_core_rknd) ) / rho_zm(k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4115 : = max( rtm(1,k) - sat_mixrat_liq( p_in_Pa(k), thm(1,k) * exner(1,k), saturation_formula ), & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/clubb_driver.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 102 : Skx(i,k) = min( max( Skx(i,k), -clubb_params(i,iSkw_max_mag) ), clubb_params(i,iSkw_max_mag) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/Skx_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 155 : stats_metadata, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 461 : call stat_update_var( ixp3_dp, -(C_xp3_dissipation * invrs_tau_zt(i,:))*xp3(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_xp3_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 327 : stability_correction(i,k) = one + min( lambda0_stability(i,k) * brunt_vaisala_freq_sqd(i,k) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 632 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 633 : ! for a plot on how output behaves with varying min_max_smth_mag CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 797 : fnc_Richardson(i,k) = ( Ri_zm(i,k) - clubb_params(i,iRichardson_num_min) ) * invrs_min_max_diff CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_helper_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 150 : (/1._c,-.6_c, .09_c , .09_c , .788_c, .675_c, .240_c, .222_c, .240_c, .222_c, .240_c, .222_c, & ! chi CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 151 : 0._c, 1._c, .027_c, .027_c, .114_c, .115_c,-.029_c, .093_c, .022_c, .013_c, 0._c , 0._c , & ! eta CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 152 : 0._c, 0._c, 1._c , .34_c , .315_c, .270_c, .120_c, .167_c, 0._c , 0._c , 0._c , 0._c , & ! w CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 153 : 0._c, 0._c, 0._c , 1._c , 0._c , 0._c , .464_c, .320_c, .168_c, .232_c, 0._c , 0._c , & ! Ncn CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 154 : 0._c, 0._c, 0._c , 0._c , 1._c , .821_c, 0._c , 0._c , .173_c, .164_c, .319_c, .308_c, & ! rr CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 155 : 0._c, 0._c, 0._c , 0._c , 0._c , 1._c , .152_c, .143_c, 0._c , 0._c , .285_c, .273_c, & ! Nr CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 156 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, .585_c, .571_c, .379_c, .363_c, & ! ri CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 157 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .571_c, .550_c, .363_c, .345_c, & ! Ni CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 158 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, .485_c, .470_c, & ! rs CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 159 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .470_c, .450_c, & ! Ns CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 160 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, & ! rg CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 161 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c/), & ! Ng CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 166 : (/1._c, .3_c, .09_c , .09_c , .788_c, .675_c, .240_c, .222_c, .240_c, .222_c, .240_c, .222_c, &! chi CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 167 : 0._c, 1._c, .027_c, .027_c, .114_c, .115_c,-.029_c, .093_c, .022_c, .013_c, 0._c , 0._c , &! eta CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 169 : 0._c, 0._c, 0._c , 1._c , 0._c , 0._c , .464_c, .320_c, .168_c, .232_c, 0._c , 0._c , &! Ncn CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 170 : 0._c, 0._c, 0._c , 0._c , 1._c , .821_c, 0._c , 0._c , .173_c, .164_c, .319_c, .308_c, &! rr CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 171 : 0._c, 0._c, 0._c , 0._c , 0._c , 1._c , .152_c, .143_c, 0._c , 0._c , .285_c, .273_c, &! Nr CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 172 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, .585_c, .571_c, .379_c, .363_c, &! ri CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 173 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .571_c, .550_c, .363_c, .345_c, &! Ni CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 174 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, .485_c, .470_c, &! rs CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 175 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .470_c, .450_c, &! Ns CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 176 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c , .758_c, &! rg CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 177 : 0._c, 0._c, 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 0._c , 1._c/), &! Ng CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/corr_varnce_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 413 : stats_metadata, & ! intent(in) stats_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/clip_explicit.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 480 : = + gr%invrs_dzt(i,k) * ( K_zt(i,k) + nu(i) ) * ( gr%invrs_dzm(i,k) + gr%invrs_dzm(i,k-1) ) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1124 : = + gr%invrs_dzm(i,k) * ( K_zm(i,k) + nu(i) ) * ( gr%invrs_dzt(i,k+1) + gr%invrs_dzt(i,k) ) & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/diffusion.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 685 : * ( one - Skw(i,k) / sqrt( four * ( one - sigma_sqd_w(i,k) )**3 + Skw(i,k)**2 ) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/adg1_adg2_3d_luhar_pdf.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 480 : write(fstderr,*) "grdcol #", i, "rhs # ", n, "band_solvex backward error est. =", berr(i,n) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/lapack_wrap.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 144 : !$acc enter data create( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 164 : ! invrs_denom_integral(i,k) = one / sum(rho_ds_dz(i,k-num_hf_draw_points:k+num_hf_draw_points)) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 238 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_field_below_threshold) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 250 : !$acc exit data delete( invrs_denom_integral, field_clipped, denom_integral_global, rho_ds_dz, & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/fill_holes.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! ../src/CLUBB_core/matrix_solver_wrapper.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 496 : call windm_edsclrm_solve( nz, ngrdcol, gr, nrhs, stats_metadata%iwindm_matrix_condt_num, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 901 : call windm_edsclrm_solve( nz, ngrdcol, gr, nrhs, stats_metadata%iwindm_matrix_condt_num, & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_windm_edsclrm_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 339 : call calc_coefs_wpxpyp_semiimpl( nz, wp2(i,:), rtp2(i,:), thlp2(i,:), wprtp(i,:), & ! In CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/new_pdf_main.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 174 : if ( stats_metadata%iwprtpthlp > 0 ) call check_nan( wprtpthlp, "wprtpthlp", proc_name ) ! intnet(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/numerical_check.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 375 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 623 : thv_par_1(i,j) = thl_par_1(i,j) + ep1 * thv_ds(i,j) * rt_par_1(i,j) + Lv_coef(i,j) * rc_par_1(i,j) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 992 : ! if l_avg_Lscale is true, compute_mixing_length is called two additional CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1136 : thlm_pert_pos_rt(i,k) = pdf_params%thl_1(i,k) + ( sign_rtpthlp_zt(i,k) * Lscale_pert_coef & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1139 : thlm_pert_neg_rt(i,k) = pdf_params%thl_2(i,k) - ( sign_rtpthlp_zt(i,k) * Lscale_pert_coef & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1152 : thlm_pert_pos_rt(i,k) = pdf_params%thl_2(i,k) + ( sign_rtpthlp_zt(i,k) * Lscale_pert_coef & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1155 : thlm_pert_neg_rt(i,k) = pdf_params%thl_1(i,k) - ( sign_rtpthlp_zt(i,k) * Lscale_pert_coef & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1472 : ! https://github.com/larson-group/clubb/issues/965#issuecomment-1119816722 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1473 : ! for a plot on how output behaves with varying min_max_smth_mag CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1476 : logical, parameter :: l_smooth_min_max = .false. ! whether to apply smooth min and max functions CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1592 : invrs_tau_shear_smooth(i,k) = clubb_params(i,iC_invrs_tau_shear) * smooth_norm_ddzt_umvm(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1653 : 1.e8_core_rknd * abs(brunt_vaisala_freq_sqd_mixed(i,k))**3) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1669 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd_smth, brunt_vaisala_freq_sqd_smth(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1691 : brunt_vaisala_freq_clipped = smooth_max( nz, ngrdcol, 1.0e-7_core_rknd, brunt_vaisala_freq_sqd_smth, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1806 : call stat_update_var(stats_metadata%ibrunt_freq_out_cloud, brunt_freq_out_cloud(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1851 : / ( gr%zm(i,k) - sfc_elevation(i) + clubb_params(i,iz_displace) ) ! small CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1904 : + clubb_params(i,iC_invrs_tau_N2_wpxp) * brunt_freq_out_cloud(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1983 : tmp_calc(i,k) = clubb_params(i,iC_invrs_tau_wpxp_Ri) * Ri_zm_smooth(i,k)**clubb_params(i,iwpxp_Ri_exp) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2014 : * max( Ri_zm(i,k), zero)**clubb_params(i,iwpxp_Ri_exp), 12.0_core_rknd ) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2026 : + clubb_params(i,iC_invrs_tau_N2_clear_wp3) * brunt_freq_out_cloud(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2074 : tau_zt = smooth_min( nz, ngrdcol, tau_zt_unclipped, tau_max_zt, 1.0e3_core_rknd * min_max_smth_mag ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/mixing_length.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1174 : !$acc fcor_col, sfc_elevation_col, thlm_forcing_col, rtm_forcing_col, um_forcing_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1175 : !$acc vm_forcing_col, wprtp_forcing_col, wpthlp_forcing_col, rtp2_forcing_col, thlp2_forcing_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1176 : !$acc rtpthlp_forcing_col, wm_zm_col, wm_zt_col, rho_zm_col, rho_col, rho_ds_zm_col, rho_ds_zt_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1177 : !$acc invrs_rho_ds_zm_col, invrs_rho_ds_zt_col, thv_ds_zm_col, thv_ds_zt_col, rfrzm_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1180 : !$acc upwp_sfc_pert_col, vpwp_sfc_pert_col, rtm_ref_col, thlm_ref_col, um_ref_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1182 : !$acc copy( um_col, upwp_col, vm_col, vpwp_col, up2_col, vp2_col, up3_col, vp3_col, rtm_col, wprtp_col, thlm_col, wpthlp_col, rtp2_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1185 : !$acc rtpthvp_col, thlpthvp_col, wp2rtp_col, wp2thlp_col, uprcp_col, vprcp_col, rc_coef_zm_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1186 : !$acc wp4_col, wpup2_col, wpvp2_col, wp2up2_col, wp2vp2_col, ice_supersat_frac_col, um_pert_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1235 : !$acc copyout( rcm_in_layer_col, cloud_cover_col, wprcp_col, w_up_in_cloud_col, w_down_in_cloud_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1236 : !$acc cloudy_updraft_frac_col, cloudy_downdraft_frac_col, invrs_tau_zm_col, Kh_zt_col, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1242 : !$acc copy( sclrm_col, wpsclrp_col, sclrp2_col, sclrp3_col, sclrprtp_col, sclrpthlp_col, sclrpthvp_col ) 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. 259 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 465 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 741 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 868 : write(iunit,*) "l_fix_w_chi_eta_correlations = ", clubb_config_flags%l_fix_w_chi_eta_correlations CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 885 : write(iunit,*) "l_use_tke_in_wp3_pr_turb_term = ", clubb_config_flags%l_use_tke_in_wp3_pr_turb_term CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 887 : write(iunit,*) "l_use_wp3_lim_with_smth_Heaviside = ", clubb_config_flags%l_use_wp3_lim_with_smth_Heaviside CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 889 : write(iunit,*) "l_modify_limiters_for_cnvg_test = ", clubb_config_flags%l_modify_limiters_for_cnvg_test CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/model_flags.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 43 : ! lower_1(2)*upper_1(1)+l_diag(2)*1 = lhs(0,2) => l_diag(2) = lhs(0,2) - lower_1(2)*upper_1(1) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 44 : ! lower_1(2)*upper_2(1)+l_diag(2)*upper_1(2) = lhs(-1,2) => upper_1(2) = ( lhs(-1,2)-lower_1(2)*upper_2(1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 46 : ! l_diag(2)*upper_2(2) = lhs(-2,2) => upper_2(2) = lhs(-2,2) / l_diag(2) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 52 : ! l_2(k)*upper_1(k-2)+lower_1(k)*1 = lhs(1,k) => lower_1(k) = lhs(1,k) - l_2(k)*upper_1(k-2) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 53 : ! l_2(k)*upper_2(k-2)+lower_1(k)*upper_1(k-1) = lhs( 0,k) => l_diag(k) = lhs(0,k) - l_2(k)*upper_2(k-2) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 54 : ! +l_diag(k)*1 + lower_1(k)*upper_1(k-1) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/penta_lu_solver.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 462 : esat(i,k) = 10._core_rknd**(-7.90298_core_rknd*(373.16_core_rknd/T_in_K_clipped-1._core_rknd)+ & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1392 : *(MAX( rtm - sat_mixrat_liq(p_in_Pa,theta*exner, saturation_formula), zero_threshold )) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/saturation.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 8 : ! easier for the clubb_tuner code to use the clubb_params vector without "knowing" any information CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/parameters_tunable.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 617 : call stat_update_var( stats_metadata%icoef_wp4_implicit, coef_wp4_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1403 : call stat_update_var_pt( stats_metadata%iwp23_matrix_condt_num, 1, one / rcond(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1494 : call stat_end_update_pt( stats_metadata%iwp2_dp1, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1541 : call stat_end_update_pt( stats_metadata%iwp2_pr1, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1603 : call stat_end_update_pt( stats_metadata%iwp3_ta, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1616 : call stat_end_update_pt( stats_metadata%iwp3_tp, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1622 : call stat_end_update_pt( stats_metadata%iwp3_pr_tp, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2686 : call stat_update_var_pt( stats_metadata%iwp2_pr_dfsn, k, rhs_pr_dfsn_wp2(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2691 : call stat_update_var_pt( stats_metadata%iwp2_splat, k, - lhs_splat_wp2(i,k) * wp2(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2707 : call stat_modify_pt( stats_metadata%iwp2_pr1, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2790 : call stat_begin_update_pt( stats_metadata%iwp3_ta, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2805 : call stat_begin_update_pt( stats_metadata%iwp3_tp, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2811 : call stat_begin_update_pt( stats_metadata%iwp3_pr_tp, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2855 : call stat_update_var_pt( stats_metadata%iwp3_splat, k, - lhs_splat_wp3(i,k) * wp3(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2866 : call stat_begin_update_pt( stats_metadata%iwp3_dp1, k, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2885 : call stat_update_var_pt( stats_metadata%iwp3_pr_turb, k, rhs_pr_turb_wp3(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2887 : call stat_update_var_pt( stats_metadata%iwp3_pr_dfsn, k, rhs_pr_dfsn_wp3(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_wp2_wp3_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 75 : call stat_assign( var_index=stats_metadata%ilh_morr_snow_rate, var_name="lh_morr_snow_rate", & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 99 : call stat_assign( var_index=stats_metadata%ik_lh_start, var_name="k_lh_start", & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_lh_sfc_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 114 : call stat_assign( var_index=stats_metadata%iFrad_LW_rad, var_name="Frad_LW_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 123 : call stat_assign( var_index=stats_metadata%iFrad_SW_rad, var_name="Frad_SW_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 132 : call stat_assign( var_index=stats_metadata%iFrad_SW_up_rad, var_name="Frad_SW_up_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 141 : call stat_assign( var_index=stats_metadata%iFrad_LW_up_rad, var_name="Frad_LW_up_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 150 : call stat_assign( var_index=stats_metadata%iFrad_SW_down_rad, var_name="Frad_SW_down_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 160 : call stat_assign( var_index=stats_metadata%iFrad_LW_down_rad, var_name="Frad_LW_down_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_rad_zm_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 516 : wstar = ( one/T0 * grav * wpthlp(i,1) * 0.2_core_rknd * depth_pos_wpthlp(i) )**(one_third) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/sfc_varnce_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 177 : call stat_assign( var_index=stats_metadata%ilh_thlm_mc, var_name="lh_thlm_mc", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 306 : call stat_assign( var_index=stats_metadata%ilh_rcm_avg, var_name="lh_rcm_avg", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 459 : call stat_assign( var_index=stats_metadata%ilh_cloud_frac, var_name="lh_cloud_frac", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 513 : call stat_assign( var_index=stats_metadata%ilh_Ncnp2_zt, var_name="lh_Ncnp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 522 : call stat_assign( var_index=stats_metadata%ilh_Ncp2_zt, var_name="lh_Ncp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 531 : call stat_assign( var_index=stats_metadata%ilh_Nrp2_zt, var_name="lh_Nrp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 540 : call stat_assign( var_index=stats_metadata%ilh_rcp2_zt, var_name="lh_rcp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 549 : call stat_assign( var_index=stats_metadata%ilh_rtp2_zt, var_name="lh_rtp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 558 : call stat_assign( var_index=stats_metadata%ilh_thlp2_zt, var_name="lh_thlp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 567 : call stat_assign( var_index=stats_metadata%ilh_rrp2_zt, var_name="lh_rrp2_zt", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 576 : call stat_assign( var_index=stats_metadata%ilh_rrm_auto, var_name="lh_rrm_auto", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 585 : call stat_assign( var_index=stats_metadata%ilh_rrm_accr, var_name="lh_rrm_accr", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 593 : call stat_assign( var_index=stats_metadata%ilh_rrm_evap, var_name="lh_rrm_evap", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 602 : call stat_assign( var_index=stats_metadata%ilh_Nrm_auto, var_name="lh_Nrm_auto", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 611 : call stat_assign( var_index=stats_metadata%ilh_Nrm_evap, var_name="lh_Nrm_evap", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 620 : call stat_assign( var_index=stats_metadata%ilh_rrm_src_adj, var_name="lh_rrm_src_adj", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 629 : call stat_assign( var_index=stats_metadata%ilh_rrm_evap_adj, var_name="lh_rrm_evap_adj", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 638 : call stat_assign( var_index=stats_metadata%ilh_Nrm_src_adj, var_name="lh_Nrm_src_adj", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 648 : call stat_assign( var_index=stats_metadata%ilh_Nrm_evap_adj, var_name="lh_Nrm_evap_adj", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 658 : call stat_assign( var_index=stats_metadata%ilh_precip_frac, var_name="lh_precip_frac", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 677 : call stat_assign( var_index=stats_metadata%ilh_mixt_frac, var_name="lh_mixt_frac", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 697 : call stat_assign( var_index=stats_metadata%ilh_m_vol_rad_rain, var_name="lh_m_vol_rad_rain", & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 705 : call stat_assign( var_index=stats_metadata%ilh_rrm_mc_nonadj, var_name="lh_rrm_mc_nonadj", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 717 : call stat_assign( var_index=stats_metadata%isilhs_variance_category(icategory), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 733 : call stat_assign( var_index=stats_metadata%ilh_samp_frac_category(icategory), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_lh_zt_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 88 : call stat_assign( var_index=stats_metadata%iT_in_K_rad, var_name="T_in_K_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 123 : call stat_assign( var_index=stats_metadata%ircm_in_cloud_rad, var_name="rcm_in_cloud_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 132 : call stat_assign( var_index=stats_metadata%icloud_frac_rad, var_name="cloud_frac_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 142 : call stat_assign( var_index=stats_metadata%iice_supersat_frac_rad, var_name="ice_supersat_frac_rad", & !In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 160 : call stat_assign( var_index=stats_metadata%iradht_LW_rad, var_name="radht_LW_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 169 : call stat_assign( var_index=stats_metadata%iradht_SW_rad, var_name="radht_SW_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 178 : call stat_assign( var_index=stats_metadata%ip_in_mb_rad, var_name="p_in_mb_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 187 : call stat_assign( var_index=stats_metadata%isp_humidity_rad, var_name="sp_humidity_rad", & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_rad_zt_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 385 : call stat_update_var_pt( stats_metadata%iprecip_frac_tol, 1, precip_frac_tol(j), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 395 : call precip_frac_assert_check( nz, hydromet_dim, hydromet_tol, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 397 : precip_frac_1(j,:), precip_frac_2(j,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 398 : precip_frac_tol(j) ) ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/precipitation_fraction.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 43 : ! lower(k)*upper(k-1)+l_diag(k)*1 = lhs( 0,k) => l_diag(k) = lhs( 0,k) - lower(k)*upper(k-1) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 205 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 292 : lower_diag_invrs(i,ndim) = 1.0_core_rknd / ( lhs(0,i,ndim) - lhs(1,i,ndim) * upper(i,ndim-1) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/tridiag_lu_solver.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 127 : call stat_assign( var_index=stats_metadata%icc, var_name="cc", var_description="cc, Cloud cover", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 344 : call stat_assign( var_index=stats_metadata%iwp23_matrix_condt_num, var_name="wp23_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 351 : call stat_assign( var_index=stats_metadata%ithlm_matrix_condt_num, var_name="thlm_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 360 : call stat_assign( var_index=stats_metadata%irtm_matrix_condt_num, var_name="rtm_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 369 : call stat_assign( var_index=stats_metadata%ithlp2_matrix_condt_num, var_name="thlp2_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 377 : call stat_assign( var_index=stats_metadata%irtp2_matrix_condt_num, var_name="rtp2_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 403 : call stat_assign( var_index=stats_metadata%iwindm_matrix_condt_num, var_name="windm_matrix_condt_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 437 : call stat_assign( var_index=stats_metadata%itot_vartn_normlzd_rtm, var_name="tot_vartn_normlzd_rtm", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 445 : call stat_assign( var_index=stats_metadata%itot_vartn_normlzd_thlm, var_name="tot_vartn_normlzd_thlm", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 453 : call stat_assign( var_index=stats_metadata%itot_vartn_normlzd_wprtp, var_name="tot_vartn_normlzd_wprtp", & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_sfc_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 845 : !$acc rc_coef, Km_zm, Kmh_zm, gamma_Skw_fnc, sigma_sqd_w, sigma_sqd_w_tmp, sigma_sqd_w_zt, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 924 : thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 925 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 926 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 927 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 928 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 929 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 930 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 931 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 934 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 935 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1357 : mu, rtp2_zt, thlp2_zt, rtpthlp_zt, pdf_params, em, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1562 : ! Added an extra check for stats_metadata%irel_humidity > 0; otherwise, if both stats_metadata%irsat = 0 and CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1563 : ! stats_metadata%irel_humidity = 0, rsat is not computed, leading to a floating-point exception CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1575 : call stat_update_var( stats_metadata%irel_humidity, rel_humidity(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1624 : call stat_update_var( stats_metadata%istability_correction, stability_correction(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1705 : call stat_update_var(stats_metadata%iinvrs_tau_wpxp_zm, invrs_tau_wpxp_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1709 : call stat_update_var(stats_metadata%iinvrs_tau_wp3_zm, invrs_tau_wp3_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1713 : call stat_update_var(stats_metadata%iinvrs_tau_no_N2_zm, invrs_tau_no_N2_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1722 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd, brunt_vaisala_freq_sqd(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1724 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd_splat, brunt_vaisala_freq_sqd_splat(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1726 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd_mixed, brunt_vaisala_freq_sqd_mixed(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1728 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd_moist, brunt_vaisala_freq_sqd_moist(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1730 : call stat_update_var(stats_metadata%ibrunt_vaisala_freq_sqd_dry, brunt_vaisala_freq_sqd_dry(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1749 : clubb_config_flags%l_modify_limiters_for_cnvg_test, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1751 : stats_zm, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1843 : sclrm(i,:,:), sclrm_trsport_only(i,:,:), & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2206 : * ( one - exp( brunt_vaisala_freq_sqd_zt(i,k) / clubb_params(i,ixp3_coef_slope) ) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2602 : thlm(i,:), rtm(i,:), wprtp(i,:), wpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2603 : wp2(i,:), wp3(i,:), rtp2(i,:), rtp3(i,:), thlp2(i,:), thlp3(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2604 : wpthvp(i,:), wp2thvp(i,:), rtpthvp(i,:), thlpthvp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2605 : p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2606 : rho_ds_zm(i,:), rho_ds_zt(i,:), thv_ds_zm(i,:), thv_ds_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2607 : wm_zt(i,:), wm_zm(i,:), rcm(i,:), wprcp(i,:), rc_coef(i,:), rc_coef_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2608 : rcm_zm(i,:), rtm_zm(i,:), thlm_zm(i,:), cloud_frac(i,:), ice_supersat_frac(i,:),& ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2611 : thvm(i,:), ug(i,:), vg(i,:), Lscale(i,:), wpthlp2(i,:), wp2thlp(i,:), wprtp2(i,:), wp2rtp(i,:),& ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2612 : Lscale_up(i,:), Lscale_down(i,:), tau_zt(i,:), Kh_zt(i,:), wp2rcp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2613 : wprtpthlp(i,:), sigma_sqd_w_zt(i,:), rsat(i,:), wp2_zt(i,:), thlp2_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2614 : wpthlp_zt(i,:), wprtp_zt(i,:), rtp2_zt(i,:), rtpthlp_zt(i,:), up2_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2615 : vp2_zt(i,:), upwp_zt(i,:), vpwp_zt(i,:), wpup2(i,:), wpvp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2618 : rtprcp(i,:), rcp2(i,:), em(i,:), a3_coef(i,:), a3_coef_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2619 : wp3_zm(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), Skw_velocity(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2622 : pdf_params_single_col(i), pdf_params_zm_single_col(i), sclrm(i,:,:), sclrp2(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2623 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), sclrpthvp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2624 : wpsclrp(i,:,:), sclrprcp(i,:,:), wp2sclrp(i,:,:), wpsclrp2(i,:,:), wpsclrprtp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2625 : wpsclrpthlp(i,:,:), wpedsclrp(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2626 : clubb_config_flags%saturation_formula, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2627 : stats_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2628 : stats_zt(i), stats_zm(i), stats_sfc(i) ) ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2650 : thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2651 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2652 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2653 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2654 : thv_ds_zm(i,:), thv_ds_zt(i,:), wpthlp_sfc(i), wprtp_sfc(i), upwp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2655 : vpwp_sfc(i), um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), up2(i,:), vp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2656 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2657 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2660 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2661 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2759 : !$acc sqrt_em_zt, xp3_coef_fnc, w_1_zm, w_2_zm, varnce_w_1_zm, varnce_w_2_zm, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2764 : !$acc invrs_tau_C4_zm, invrs_tau_C14_zm, invrs_tau_wp2_zm, invrs_tau_wpxp_zm, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2765 : !$acc invrs_tau_wp3_zm, invrs_tau_no_N2_zm, invrs_tau_bkgnd, invrs_tau_shear, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3301 : sclrp2_zt(:,:,j) = zm2zt( nz, ngrdcol, gr, sclrp2(:,:,j), sclr_tol(j)**2 ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3440 : sigma_sqd_w(:,:) = zm2zt2zm( nz, ngrdcol, gr, sigma_sqd_w_tmp(:,:), zero_threshold ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3444 : sigma_sqd_w_zt(:,:) = zm2zt( nz, ngrdcol, gr, sigma_sqd_w(:,:), zero_threshold ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3480 : sclrp2_zt(:,:,j) = zm2zt( nz, ngrdcol, gr, sclrp2(:,:,j), sclr_tol(j)**2 ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4062 : write(fstderr,*) "l_stability_correct_tau_zm = ", clubb_config_flags%l_stability_correct_tau_zm CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4098 : write(fstderr,*) "Unknown type of double Gaussian PDF selected: ", clubb_config_flags%iiPDF_type CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_clubb_core_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 231 : real( kind = core_rknd ), dimension(ngrdcol, nz, min(1,sclr_dim), 2 ), intent(in) :: & ! h1g, 2010-06-15 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 577 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 578 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 605 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 606 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 617 : call LY93_driver( nz, wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 618 : thlp2(i,:), Skw(i,:), Skrt(i,:), Skthl(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 973 : pdf_params%rsatl_1(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl1(i,:) ) * RH_crit(i, :, 1, 1) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 988 : pdf_params%rsatl_2(i,:) = sat_mixrat_ice( nz, p_in_Pa(i,:), tl2(i,:) ) * RH_crit(i, :, 1, 2) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1011 : rsatl_2 = sat_mixrat_liq( nz, ngrdcol, p_in_Pa, tl2, saturation_formula ) ! h1g, 2010-06-16 end mod CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1117 : rcm(i,k) = pdf_params%mixt_frac(i,k) * pdf_params%rc_1(i,k) + ( one - pdf_params%mixt_frac(i,k) ) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1292 : = pdf_params%mixt_frac(i,k) * ( ( sclr1(i,k,j) - sclrm(i,k,j) ) * pdf_params%rc_1(i,k) ) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1298 : + ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_rt_2(i,k,j) * pdf_params%crt_2(i,k) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1304 : - ( one - pdf_params%mixt_frac(i,k) ) * corr_sclr_thl_2(i,k,j) * pdf_params%cthl_2(i,k) & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/pdf_closure_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 431 : call stat_assign( var_index=stats_metadata%iinvrs_tau_wpxp_zm, var_name="invrs_tau_wpxp_zm", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 447 : call stat_assign( var_index=stats_metadata%iinvrs_tau_no_N2_zm, var_name="invrs_tau_no_N2_zm", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2086 : call stat_assign( var_index=stats_metadata%iice_supersat_frac_zm, var_name="ice_supersat_frac_zm", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2210 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd, var_name="bv_freq_sqd", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2218 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd_splat, var_name="bv_freq_sqd_splat", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2226 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd_mixed, var_name="bv_freq_sqd_mixed", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2234 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd_moist, var_name="bv_freq_sqd_moist", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2242 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd_dry, var_name="bv_freq_sqd_dry", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2250 : call stat_assign( var_index=stats_metadata%ibrunt_vaisala_freq_sqd_smth, var_name="bv_freq_sqd_smth", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2258 : call stat_assign( var_index=stats_metadata%ibrunt_freq_out_cloud, var_name="bv_freq_out_cloud", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2302 : call stat_assign( var_index=stats_metadata%iwp3_on_wp2_cfl_num, var_name="wp3_on_wp2_cfl_num", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2330 : call stat_assign( var_index=stats_metadata%istability_correction, var_name="stability_correction", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2384 : call stat_assign( var_index=stats_metadata%isclrprtp(j), var_name="sclr"//trim(sclr_idx)//"prtp", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2395 : call stat_assign( var_index=stats_metadata%isclrp2(j), var_name="sclr"//trim(sclr_idx)//"p2", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2406 : call stat_assign( var_index=stats_metadata%isclrpthvp(j), var_name="sclr"//trim(sclr_idx)//"pthvp", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2417 : call stat_assign( var_index=stats_metadata%isclrpthlp(j), var_name="sclr"//trim(sclr_idx)//"pthlp", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2428 : call stat_assign( var_index=stats_metadata%isclrprcp(j), var_name="sclr"//trim(sclr_idx)//"prcp", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2439 : call stat_assign( var_index=stats_metadata%iwpsclrp(j), var_name="wpsclr"//trim(sclr_idx)//"p", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2450 : call stat_assign( var_index=stats_metadata%iwpsclrp2(j), var_name="wpsclr"//trim(sclr_idx)//"p2", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2461 : call stat_assign( var_index=stats_metadata%iwp2sclrp(j), var_name="wp2sclr"//trim(sclr_idx)//"p", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2472 : call stat_assign( var_index=stats_metadata%iwpsclrprtp(j), var_name="wpsclr"//trim(sclr_idx)//"prtp", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2495 : call stat_assign( var_index=stats_metadata%iwpedsclrp(j), var_name="wpedsclr"//trim(sclr_idx)//"p", & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_zm_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 624 : call solve_xp2_xpyp_with_single_lhs( nz, ngrdcol, sclr_dim, sclr_tol, gr, sclr_idx, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1327 : sclrpthlp(:,:,sclr) ) ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1857 : rhs_ta_wpsclrp2, rhs_ta_wprtpsclrp, rhs_ta_wpthlpsclrp, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2729 : real( kind = core_rknd ), dimension(ngrdcol) :: rcond ! Est. of the reciprocal of the condition # on the matrix CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2763 : ixapxbp_matrix_condt_num = max( stats_metadata%irtp2_matrix_condt_num, stats_metadata%ithlp2_matrix_condt_num, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2783 : call stat_update_var_pt( stats_metadata%irtp2_matrix_condt_num, 1, one / rcond(i), & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2786 : call stat_update_var_pt( stats_metadata%ithlp2_matrix_condt_num, 1, one / rcond(i), & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2789 : call stat_update_var_pt( stats_metadata%irtpthlp_matrix_condt_num, 1, one / rcond(i), & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4042 : wp_coef(i,k) = ( one - one_third * beta(i) ) * a1(i,k)**2 * wp3_on_wp2(i,k) / wp2(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4043 : wp_coef_zt(i,k) = ( one - one_third * beta(i) ) * a1_zt(i,k)**2 * wp3_on_wp2_zt(i,k) / wp2_zt(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4224 : sgn_t_vel_sclrprtp(i,k) = sign(one,term_wprtpsclrp_explicit_zm(i,k)*sclrprtp(i,k,sclr)) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4258 : sgn_t_vel_sclrpthlp(i,k) = sign(one,term_wpthlpsclrp_explicit_zm(i,k)*sclrpthlp(i,k,sclr)) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4351 : invrs_rho_ds_zm, rho_ds_zm, & ! Intent(in) & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5253 : !call stat_update_var( stats_metadata%icoef_wprtp2_implicit, coef_wprtp2_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5257 : !call stat_update_var( stats_metadata%iterm_wprtp2_explicit, term_wprtp2_explicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5261 : !call stat_update_var( stats_metadata%icoef_wpthlp2_implicit, coef_wpthlp2_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5265 : !call stat_update_var( stats_metadata%iterm_wpthlp2_explicit, term_wpthlp2_explicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5269 : !call stat_update_var( stats_metadata%icoef_wprtpthlp_implicit, coef_wprtpthlp_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5273 : !call stat_update_var( stats_metadata%iterm_wprtpthlp_explicit, term_wprtpthlp_explicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_xp2_xpyp_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 499 : write(fstderr,*) "l_mono_flux_lim_rtm=T with l_mono_flux_lim_spikefix=F can lead to spikes aloft." CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 824 : call solve_xm_wpxp_with_single_lhs( nz, ngrdcol, sclr_dim, sclr_tol, gr, dt, l_iter, nrhs, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 923 : dt, sigma_sqd_w(i,:), wm_zm(i,:), wm_zt(i,:), wp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 924 : Lscale_zm(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 925 : Kh_zt(i,:), Kh_zm(i,:), invrs_tau_C6_zm(i,:), Skw_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 929 : wpthlp_forcing(i,:), thlm_ref(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 935 : wp2sclrp(i,:,:), sclrpthvp(i,:,:), sclrm_forcing(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 936 : sclrp2(i,:,:), exner(i,:), rcm(i,:), p_in_Pa(i,:), thvm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 939 : um_forcing(i,:), vm_forcing(i,:), ug(i,:), vg(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 940 : wpthvp(i,:), fcor(i), um_ref(i,:), vm_ref(i,:), up2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 941 : vp2(i,:), uprcp(i,:), vprcp(i,:), rc_coef_zm(i,:), rtm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 942 : wprtp(i,:), thlm(i,:), wpthlp(i,:), sclrm(i,:,:), wpsclrp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 943 : um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), rtm_old(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 945 : sclrm_old(i,:,:), wpsclrp_old(i,:,:), um_old(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3012 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3127 : call stat_update_var( stats_metadata%iupwp_pr4, C_uu_shr(i) * wp2(i,:) * ddzt_um(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3129 : call stat_update_var( stats_metadata%ivpwp_pr4, C_uu_shr(i) * wp2(i,:) * ddzt_vm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3326 : if ( stats_metadata%l_stats_samp .and. stats_metadata%ithlm_matrix_condt_num + stats_metadata%irtm_matrix_condt_num > 0 ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4137 : call xm_wpxp_rhs( nz, ngrdcol, xm_wpxp_scalar, l_iter, dt, sclrm(:,:,j), wpsclrp(:,:,j), & ! In CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/advance_xm_wpxp_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 725 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 830 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 838 : time_current, stats_metadata%stats_tout, stats_lh_zt%num_output_fields, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 912 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 920 : time_current, stats_metadata%stats_tout, stats_lh_sfc%num_output_fields, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1149 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1232 : time_current+real(stats_metadata%stats_tout, kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1316 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1405 : time_current+real(stats_metadata%stats_tout,kind=time_precision), & !intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1413 : time_current, stats_metadata%stats_tout, stats_sfc%num_output_fields, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2067 : integer :: grid_level = 1 ! grid level for stats where there is only one sensible level (eg timeseries) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2203 : call stat_update_var( stats_metadata%ivarnce_thl_1, pdf_params%varnce_thl_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2205 : call stat_update_var( stats_metadata%ivarnce_thl_2, pdf_params%varnce_thl_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2223 : call stat_update_var( stats_metadata%icloud_frac_1, pdf_params%cloud_frac_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2225 : call stat_update_var( stats_metadata%icloud_frac_2, pdf_params%cloud_frac_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2239 : call stat_update_var( stats_metadata%icovar_chi_eta_1, pdf_params%covar_chi_eta_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2241 : call stat_update_var( stats_metadata%icovar_chi_eta_2, pdf_params%covar_chi_eta_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2243 : call stat_update_var( stats_metadata%icorr_w_chi_1, pdf_params%corr_w_chi_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2245 : call stat_update_var( stats_metadata%icorr_w_chi_2, pdf_params%corr_w_chi_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2247 : call stat_update_var( stats_metadata%icorr_w_eta_1, pdf_params%corr_w_eta_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2249 : call stat_update_var( stats_metadata%icorr_w_eta_2, pdf_params%corr_w_eta_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2251 : call stat_update_var( stats_metadata%icorr_chi_eta_1, pdf_params%corr_chi_eta_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2253 : call stat_update_var( stats_metadata%icorr_chi_eta_2, pdf_params%corr_chi_eta_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2259 : call stat_update_var( stats_metadata%icorr_w_thl_1, pdf_params%corr_w_thl_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2261 : call stat_update_var( stats_metadata%icorr_w_thl_2, pdf_params%corr_w_thl_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2263 : call stat_update_var( stats_metadata%icorr_rt_thl_1, pdf_params%corr_rt_thl_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2265 : call stat_update_var( stats_metadata%icorr_rt_thl_2, pdf_params%corr_rt_thl_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2325 : call stat_update_var( stats_metadata%isclrm_f(isclr), sclrm_forcing(:,isclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2334 : call stat_update_var( stats_metadata%iedsclrm_f(isclr), edsclrm_forcing(:,isclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2417 : call stat_update_var( stats_metadata%iwp3_on_wp2_cfl_num, wp3_on_wp2 * dt / dzm, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2422 : call stat_update_var( stats_metadata%iice_supersat_frac_zm, ice_supersat_frac_zm, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2434 : call stat_update_var( stats_metadata%ivarnce_w_1_zm, pdf_params_zm%varnce_w_1(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2436 : call stat_update_var( stats_metadata%ivarnce_w_2_zm, pdf_params_zm%varnce_w_2(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2438 : call stat_update_var( stats_metadata%imixt_frac_zm, pdf_params_zm%mixt_frac(1,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2459 : call stat_update_var( stats_metadata%iwpsclrprtp(isclr), wpsclrprtp(:,isclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2461 : call stat_update_var( stats_metadata%iwpsclrpthlp(isclr), wpsclrpthlp(:,isclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2486 : call stat_update_var_pt( stats_metadata%icc, grid_level, maxval( cloud_frac(1:nz) ), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2510 : call stat_update_var_pt( stats_metadata%iz_cloud_base, grid_level, -10.0_core_rknd , & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2621 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_rtm, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2627 : write(fstderr, *) "Warning: tot_vartn_normlzd_thlm tried to divide by zero denominator ", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2634 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_thlm, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2640 : write(fstderr, *) "Warning: tot_vartn_normlzd_wprtp tried to divide by zero denominator ", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2647 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_wprtp, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2893 : call stat_update_var( stats_metadata%ilh_rrm_mc, lh_hydromet_mc(:,hm_metadata%iirr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_clubb_utilities.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 466 : = ( ( hm_metadata%hmp2_ip_on_hmm2_ip(j) + one ) / precip_fracs%precip_frac(i,k) - one ) & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 695 : call calc_corr_norm_and_cholesky_factor( nz, ngrdcol, iiPDF_type, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 696 : pdf_dim, hm_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 697 : pdf_params%rc_1, pdf_params%rc_2, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 698 : corr_array_n_cloud, corr_array_n_below, & ! intent(out) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 699 : corr_array_1_n, corr_array_2_n, & ! intent(out) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 783 : call stat_update_var_pt( stats_metadata%ihmp2_zt(j), k, hydrometp2_zt(i,k,j), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 820 : corr_array_1_n(i,:,hm_metadata%iiPDF_chi,hm_metadata%iiPDF_eta), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 821 : corr_array_2_n(i,:,hm_metadata%iiPDF_chi,hm_metadata%iiPDF_eta) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 846 : call stat_update_var_pt( stats_metadata%iprecip_frac, k, precip_fracs%precip_frac(i,k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 855 : call stat_update_var_pt( stats_metadata%iprecip_frac_1, k, precip_fracs%precip_frac_1(i,k), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 864 : call stat_update_var_pt( stats_metadata%iprecip_frac_2, k, precip_fracs%precip_frac_2(i,k), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3854 : call stat_update_var_pt( stats_metadata%imu_hm_1(hm_idx), k, mu_x_1(k,ivar), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3864 : call stat_update_var_pt( stats_metadata%imu_hm_2(hm_idx), k, mu_x_2(k,ivar), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3875 : call stat_update_var_pt( stats_metadata%imu_Ncn_1, k, mu_x_1(k,iiPDF_Ncn), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3884 : call stat_update_var_pt( stats_metadata%imu_Ncn_2, k, mu_x_2(k,iiPDF_Ncn), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3899 : call stat_update_var_pt( stats_metadata%isigma_hm_1(hm_idx), k, sigma_x_1(k,ivar), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3910 : call stat_update_var_pt( stats_metadata%isigma_hm_2(hm_idx), k, sigma_x_2(k,ivar), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3921 : call stat_update_var_pt( stats_metadata%isigma_Ncn_1, k, sigma_x_1(k,iiPDF_Ncn), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3930 : call stat_update_var_pt( stats_metadata%isigma_Ncn_2, k, sigma_x_2(k,iiPDF_Ncn), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4257 : call stat_update_var_pt( stats_metadata%icorr_hmx_hmy_1(hm_idx_jvar,hm_idx_ivar), k, & ! in CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4269 : call stat_update_var_pt( stats_metadata%icorr_hmx_hmy_2(hm_idx_jvar,hm_idx_ivar), k, & ! in CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4394 : call stat_update_var_pt( stats_metadata%imu_hm_1_n(hm_idx), k, mu_hm_1_n(k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4413 : call stat_update_var_pt( stats_metadata%imu_hm_2_n(hm_idx), k, mu_hm_2_n(k), & ! intent(in) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/setup_clubb_pdf_params.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 552 : call stat_assign( var_index=stats_metadata%iice_supersat_frac, var_name="ice_supersat_frac", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 784 : var_description="rt'^3, Third-order moment of total water, rt", var_units="(kg/kg)^3", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 938 : call stat_assign( var_index=stats_metadata%irho, var_name="rho", var_description="rho, Air density", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2890 : call stat_assign( var_index=stats_metadata%iw_KK_evap_covar_zt, var_name="w_KK_evap_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2898 : call stat_assign( var_index=stats_metadata%irt_KK_evap_covar_zt, var_name="rt_KK_evap_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2906 : call stat_assign( var_index=stats_metadata%ithl_KK_evap_covar_zt, var_name="thl_KK_evap_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2915 : call stat_assign( var_index=stats_metadata%iw_KK_auto_covar_zt, var_name="w_KK_auto_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2923 : call stat_assign( var_index=stats_metadata%irt_KK_auto_covar_zt, var_name="rt_KK_auto_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2931 : call stat_assign( var_index=stats_metadata%ithl_KK_auto_covar_zt, var_name="thl_KK_auto_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2940 : call stat_assign( var_index=stats_metadata%iw_KK_accr_covar_zt, var_name="w_KK_accr_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2949 : call stat_assign( var_index=stats_metadata%irt_KK_accr_covar_zt, var_name="rt_KK_accr_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2958 : call stat_assign( var_index=stats_metadata%ithl_KK_accr_covar_zt, var_name="thl_KK_accr_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2966 : call stat_assign( var_index=stats_metadata%irr_KK_mvr_covar_zt, var_name="rr_KK_mvr_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2975 : call stat_assign( var_index=stats_metadata%iNr_KK_mvr_covar_zt, var_name="Nr_KK_mvr_covar_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2984 : call stat_assign( var_index=stats_metadata%iKK_mvr_variance_zt, var_name="KK_mvr_variance_zt", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4932 : call stat_assign( var_index=stats_metadata%icloud_frac_refined, var_name="cloud_frac_refined", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4948 : call stat_assign( var_index=stats_metadata%ihl_on_Cp_residual, var_name="hl_on_Cp_residual", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4969 : call stat_assign( var_index=stats_metadata%isclrm(j), var_name="sclr"//trim(sclr_idx)//"m", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4980 : call stat_assign( var_index=stats_metadata%isclrm_f(j), var_name="sclr"//trim(sclr_idx)//"m_f", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4991 : call stat_assign( var_index=stats_metadata%iedsclrm(j), var_name="edsclr"//trim(sclr_idx)//"m", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5002 : call stat_assign( var_index=stats_metadata%iedsclrm_f(j), var_name="edsclr"//trim(sclr_idx)//"m_f", & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/CLUBB_core/stats_zt_module.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 137 : wprtp_sfc = compute_wprtp_sfc( Cq, ubar, rtm_sfc, sat_mixrat_liq( p_sfc, T_sfc, saturation_formula ) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/Benchmark_cases/cloud_feedback.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 164 : wprtp_sfc = compute_wprtp_sfc( Cd, ubar, rtm_sfc, sat_mixrat_liq( p_sfc, T_sfc, saturation_formula ) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/Benchmark_cases/dycoms2_rf01.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 99 : wprtp_sfc = compute_wprtp_sfc( Cz, ubar, rtm_sfc, sat_mixrat_liq( p_sfc, T_sfc, saturation_formula ) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/Benchmark_cases/fire.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has forbidden elements: .gt. . 71 : if (time.gt.80880_time_precision) then CLUBBStandardsCheck.pl WARNING: File has forbidden elements. ../src/Benchmark_cases/neutral_case.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. CLUBBStandardsCheck.pl has begun. CLUBBStandardsCheck.pl has finished. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 447 : call assert_correct_cloud_normal( num_samples, X_u_all_levs(i,:,k,hm_metadata%iiPDF_chi), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2273 : ! call stat_update_var( stats_metadata%ilh_cloud_frac_unweighted, lh_cloud_frac, stats_lh_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2617 : ! call stat_update_var( stats_metadata%ilh_precip_frac_unweighted, lh_precip_frac, stats_lh_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2660 : call stat_update_var_pt( stats_metadata%ik_lh_start, 1, real( k_lh_start(i), kind=core_rknd ), stats_lh_sfc ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2707 : ! call stat_update_var( stats_metadata%ilh_samp_frac_category(icategory), lh_samp_frac(:,icategory), & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/SILHS/latin_hypercube_driver_module.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 121 : result = smooth_min(4, 1, input, zero, min_max_smth_mag) ! Order of nz and ngrdcol is opposite to order of indexing! This is very unintuitive! CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 174 : ! Case 3: Make sure that on a large number of arbitrarily chosen points with small min_max_smth_mag, CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/G_unit_test_types/smooth_min_max_tests.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 502 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/G_unit_test_types/spurious_source_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 559 : l_host_applies_sfc_fluxes ! Use to determine whether a host model has already applied the surface flux, CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1597 : wp2(1,:), rtp2(1,:), thlp2(1,:), up2(1,:), vp2(1,:), &! In CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. ../src/G_unit_test_types/pdf_parameter_tests.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. configurable_multi_column_nl not found, setting num_standalone_columns = 1 Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used. Program exited normally configurable_multi_column_nl not found, setting num_standalone_columns = 1 Warning: ../input/case_setups/dycoms2_rf01_corr_array_cloud.in was not found! The default correlation arrays will be used. Program exited normally Directory 1 is a67e22194ccac507c0dc1b684db1336cf93054fe Directory 2 is 7d2369cb2db29fbc630c678a19d08445c261c08d Using reporting threshold: 0.0 The following cases will be compared: ['bomex', 'dycoms2_rf01'] ###DIFFING bomex netCDF (*.nc) files### >No differences detected by the linux diff in bomex_zm.nc< >No differences detected by the linux diff in bomex_zt.nc< >No differences detected by the linux diff in bomex_sfc.nc< >>>The linux diff could not detect any differences in the file pairs for case bomex.<<< ********************************************************************************************************** ###DIFFING dycoms2_rf01 netCDF (*.nc) files### >No differences detected by the linux diff in dycoms2_rf01_zm.nc< >No differences detected by the linux diff in dycoms2_rf01_zt.nc< >No differences detected by the linux diff in dycoms2_rf01_sfc.nc< >>>The linux diff could not detect any differences in the file pairs for case dycoms2_rf01.<<< ********************************************************************************************************** SUMMARY: Linux diff did not detect any differences in the compared files. =============================== Configuring Test =============================== Working directory set to: . Trying to clone repo... Cloned repo location: /home/jenkins/workspace/clubb_bin_diff_regression_backwards_compatibility_gfortran_test/repo Output Save Mode: none Using branch: master Making list from 'UnresolvedCommits': Run Output Path: repo/output Run commands: ['repo/compile/compile.bash', '\nrm -rf repo/output', 'mkdir repo/output', '\ncp repo/input/tunable_parameters_compatible_r8029/configurable_model_flags.in repo/input/tunable_parameters', '\ncp repo/input/tunable_parameters_compatible_r8029/silhs_parameters.in repo/input/tunable_parameters', '\ncp repo/input/tunable_parameters_compatible_r8029/tunable_parameters.in repo/input/tunable_parameters', '\nrepo/run_scripts/run_scm.bash bomex', '\nrepo/run_scripts/run_scm.bash dycoms2_rf01'] Diffing command: python3 repo/run_scripts/run_bindiff_all.py =============================== Running Test =============================== Parsing message from commit: 4a157a41ada7c94ad9d4d626d8effb2f89b787ab Parsing message from commit: e9cf9a87c16e65f678c6146663dbb8ff9b22b5c7 Parsing message from commit: ed26ee90739d5041950bc843717fa39c922934ed Parsing message from commit: a67e22194ccac507c0dc1b684db1336cf93054fe Checking Commit: 4a157a41ada7c94ad9d4d626d8effb2f89b787ab Skipping: not final commit and not labelled BIT_CHANGING Checking Commit: e9cf9a87c16e65f678c6146663dbb8ff9b22b5c7 Skipping: not final commit and not labelled BIT_CHANGING Checking Commit: ed26ee90739d5041950bc843717fa39c922934ed Skipping: not final commit and not labelled BIT_CHANGING Checking Commit: a67e22194ccac507c0dc1b684db1336cf93054fe Running: final commit to check, not labelled BIT_CHANGING Checking out a67e22194ccac507c0dc1b684db1336cf93054fe Running: 'repo/compile/compile.bash' Running: ' rm -rf repo/output' Running: 'mkdir repo/output' Running: ' cp repo/input/tunable_parameters_compatible_r8029/configurable_model_flags.in repo/input/tunable_parameters' Running: ' cp repo/input/tunable_parameters_compatible_r8029/silhs_parameters.in repo/input/tunable_parameters' Running: ' cp repo/input/tunable_parameters_compatible_r8029/tunable_parameters.in repo/input/tunable_parameters' Running: ' repo/run_scripts/run_scm.bash bomex' Running: ' repo/run_scripts/run_scm.bash dycoms2_rf01' Checking out 7d2369cb2db29fbc630c678a19d08445c261c08d Running: 'repo/compile/compile.bash' Running: ' rm -rf repo/output' Running: 'mkdir repo/output' Running: ' cp repo/input/tunable_parameters_compatible_r8029/configurable_model_flags.in repo/input/tunable_parameters' Running: ' cp repo/input/tunable_parameters_compatible_r8029/silhs_parameters.in repo/input/tunable_parameters' Running: ' cp repo/input/tunable_parameters_compatible_r8029/tunable_parameters.in repo/input/tunable_parameters' Running: ' repo/run_scripts/run_scm.bash bomex' Running: ' repo/run_scripts/run_scm.bash dycoms2_rf01' Diffing: 'python3 repo/run_scripts/run_bindiff_all.py a67e22194ccac507c0dc1b684db1336cf93054fe 7d2369cb2db29fbc630c678a19d08445c261c08d' =============================== Test Results =============================== Commit Range Checked = 7d2369cb2db29fbc630c678a19d08445c261c08d...a67e22194ccac507c0dc1b684db1336cf93054fe No new Unresolved commits found. No fake BIT_CHANGING commits found. No remaining Unresolved Commits. =============================== Updating Config File =============================== Saving into UnresolvedCommits: Saving into BaselineCommit: a67e22194ccac507c0dc1b684db1336cf93054fe =============================== Cleanup =============================== Removed repo. Removing all generated output REMOVING: 7d2369cb2db29fbc630c678a19d08445c261c08d REMOVING: a67e22194ccac507c0dc1b684db1336cf93054fe ================== Unresolved Commit Status ================== No remaining Unresolved Commits. Exiting with code: 0 [Pipeline] } [Pipeline] // stage [Pipeline] stage [Pipeline] { (Declarative: Post Actions) [Pipeline] script [Pipeline] { [Pipeline] cleanWs [WS-CLEANUP] Deleting project workspace... [WS-CLEANUP] Deferred wipeout is used... [WS-CLEANUP] done [Pipeline] } [Pipeline] // script [Pipeline] } [Pipeline] // stage [Pipeline] } [Pipeline] // withEnv [Pipeline] } [Pipeline] // node [Pipeline] End of Pipeline Finished: SUCCESS