![[Jenkins]](/jenkins/static/57c8a776/images/svgs/logo.svg){kind=logo}
Started by an SCM change Obtained jenkins_tests/clubb_bin_diff_regression_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_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_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 3f865924bdcf798fa45acaa67b57c44f40c32d89 (refs/remotes/origin/master) > git config core.sparsecheckout # timeout=10 > git checkout -f 3f865924bdcf798fa45acaa67b57c44f40c32d89 # timeout=10 Commit message: "Moving pdf_params copying to copyin. This is the data structure that contains pointers, and these pointers will be different on the host and device, so it is bad in theory to copy the structure back to the CPU as it might overwrite cpu memory pointers with gpu memory pointers. In practice though I've seen no problems caused by this, I'm just making this commit preemptively, and it has already been tested with the ECT test." > git rev-list --no-walk e7c07d8527cafa4ab3ee16b1b90ce1abe24941f3 # timeout=10 [Pipeline] } [Pipeline] // stage [Pipeline] withEnv [Pipeline] { [Pipeline] stage [Pipeline] { (Clone SysAdmin to tmp) [Pipeline] sh + rm -rf /home/jenkins/clubb_bit_diff_test_workspace/sys_admin + git clone https://github.com/larson-group/sys_admin.git /home/jenkins/clubb_bit_diff_test_workspace/sys_admin Cloning into '/home/jenkins/clubb_bit_diff_test_workspace/sys_admin'... [Pipeline] } [Pipeline] // stage [Pipeline] stage [Pipeline] { (Run Python Test) [Pipeline] sh + source /etc/profile.d/larson-group.sh ++ export GIT_EDITOR=vi ++ GIT_EDITOR=vi ++ export SVN_EDITOR=vi ++ SVN_EDITOR=vi ++ export OMP_STACKSIZE=1048579 ++ OMP_STACKSIZE=1048579 ++ export LMOD_ROOT=/usr/local/spack/opt/spack/linux-pop22-cascadelake/gcc-12.2.0/lmod-8.7.37-bi3kyxcdrfgw3y7vv2k7c5rjxg75qzju ++ LMOD_ROOT=/usr/local/spack/opt/spack/linux-pop22-cascadelake/gcc-12.2.0/lmod-8.7.37-bi3kyxcdrfgw3y7vv2k7c5rjxg75qzju ++ source /usr/local/spack/opt/spack/linux-pop22-cascadelake/gcc-12.2.0/lmod-8.7.37-bi3kyxcdrfgw3y7vv2k7c5rjxg75qzju/lmod/lmod/init/bash +++ '[' -z '' ']' +++ case "$-" in +++ __lmod_vx=x +++ '[' -n x ']' +++ set +x Shell debugging temporarily silenced: export LMOD_SH_DBG_ON=1 for this output (/usr/local/spack/opt/spack/linux-pop22-cascadelake/gcc-12.2.0/lmod-8.7.37-bi3kyxcdrfgw3y7vv2k7c5rjxg75qzju/lmod/lmod/init/bash) Shell debugging restarted +++ unset __lmod_vx ++ export MODULEPATH=/usr/local/spack/share/spack/lmod/linux-pop22-x86_64/Core ++ MODULEPATH=/usr/local/spack/share/spack/lmod/linux-pop22-x86_64/Core + module load gcc netcdf-fortran + '[' -z '' ']' + case "$-" in + __lmod_sh_dbg=x + '[' -n x ']' + set +x Shell debugging temporarily silenced: export LMOD_SH_DBG_ON=1 for Lmod's output Lmod Warning: ------------------------------------------------------------------------------- The following dependent module(s) are not currently loaded: gcc-runtime/13.1.0-gzedt3f (required by: mpich/4.2.1, hdf5/1.14.3-42x3zrv, netcdf-c/4.9.2, netcdf-fortran/4.5.3) ------------------------------------------------------------------------------- Shell debugging restarted + unset __lmod_sh_dbg + return 0 + python3 /home/jenkins/clubb_bit_diff_test_workspace/sys_admin/python_nightly_test_suite/run_test.py -c /home/jenkins/clubb_bit_diff_test_workspace/bit_diff_clubb_config ......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................../home/jenkins/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/repo/compile/../lib/libclubb_gfdlact.a /home/jenkins/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/saturation.F90:1378:10: 1378 | rsat | 1 Warning: Unused variable 'rsat' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_helper_module.F90:1784:16: 1784 | integer :: i, k | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_helper_module.F90:1784:19: 1784 | integer :: i, k | 1 Warning: Unused variable 'k' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:5848:8: 5848 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:5839:57: 5839 | rho_ds_zm, rho_ds_zt, & | 1 Warning: Unused dummy argument 'rho_ds_zt' at (1) [-Wunused-dummy-argument] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:4000:22: 4000 | sclr, i, b, k, l ! Loop index | 1 Warning: Unused variable 'l' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3457:34: 3457 | integer :: i, k, k_low, k_high | 1 Warning: Unused variable 'k_high' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3457:26: 3457 | integer :: i, k, k_low, k_high | 1 Warning: Unused variable 'k_low' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3438:35: 3438 | real( kind = core_rknd ) :: tmp | 1 Warning: Unused variable 'tmp' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3441:20: 3441 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2983:60: 2983 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2983:35: 2983 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3020:8: 3020 | use constants_clubb, only: & | 1 Warning: Unused parameter 'one_third' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3105:35: 3105 | real( kind = core_rknd ) :: tmp | 1 Warning: Unused variable 'tmp' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:3020:8: 3020 | use constants_clubb, only: & | 1 Warning: Unused parameter 'two_thirds' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2698:13: 2698 | k_mdiag = 2, & ! Momentum main diagonal index. | 1 Warning: Unused parameter 'k_mdiag' declared at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2699:15: 2699 | km1_mdiag = 3 ! Momentum subdiagonal index. | 1 Warning: Unused parameter 'km1_mdiag' declared at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2697:15: 2697 | kp1_mdiag = 1, & ! Momentum superdiagonal index. | 1 Warning: Unused parameter 'kp1_mdiag' declared at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2604:42: 2604 | integer :: i, k, low_bound, high_bound | 1 Warning: Unused variable 'high_bound' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:2604:30: 2604 | integer :: i, k, low_bound, high_bound | 1 Warning: Unused variable 'low_bound' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:1598:28: 1598 | integer :: sclr, k, i, j | 1 Warning: Unused variable 'j' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xp2_xpyp_module.F90:410:33: 410 | rtm_zm, cloud_frac_zm, test | 1 Warning: Unused variable 'test' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:4374:8: 4374 | use constants_clubb, only: & | 1 Warning: Unused parameter 'eps' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:4374:8: 4374 | use constants_clubb, only: & | 1 Warning: Unused parameter 'num_hf_draw_points' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:4233:43: 4233 | subroutine xm_wpxp_solve( nz, ngrdcol, gr, nrhs, & | 1 Warning: Unused dummy argument 'gr' at (1) [-Wunused-dummy-argument] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1588:22: 1588 | integer :: i, k, b | 1 Warning: Unused variable 'b' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1173:74: 1173 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1313:45: 1313 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1313:29: 1313 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1251:8: 1251 | use constants_clubb, only: & | 1 Warning: Unused parameter 'one' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1179:40: 1179 | stats_metadata, & ! In | 1 Warning: Unused dummy argument 'stats_metadata' at (1) [-Wunused-dummy-argument] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1173:62: 1173 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1173:55: 1173 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1174:56: 1174 | wpxp_upper_lim, wpxp_lower_lim, & ! In | 1 Warning: Unused dummy argument 'wpxp_lower_lim' at (1) [-Wunused-dummy-argument] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_xm_wpxp_module.F90:1174:40: 1174 | wpxp_upper_lim, wpxp_lower_lim, & ! In | 1 Warning: Unused dummy argument 'wpxp_upper_lim' at (1) [-Wunused-dummy-argument] /home/jenkins/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4872:47: 4872 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4875:47: 4875 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4878:47: 4878 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4766:34: 4766 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4771:34: 4771 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4776:34: 4776 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4801:30: 4801 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4805:30: 4805 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4809:30: 4809 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4813:30: 4813 | 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/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4704:21: 4704 | integer :: i, k, sclr | 1 Warning: Unused variable 'k' declared at (1) [-Wunused-variable] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4032:10: 4032 | use parameter_indices, only: & | 1 Warning: Unused parameter 'iskw_max_mag' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4062:10: 4062 | use model_flags, only: & | 1 Warning: Unused parameter 'lapack' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:4016:40: 4016 | subroutine check_clubb_settings( nzmax, params, & ! intent(in) | 1 Warning: Unused dummy argument 'nzmax' at (1) [-Wunused-dummy-argument] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:2943:8: 2943 | use parameter_indices, only: & | 1 Warning: Unused parameter 'iskw_denom_coef' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:2943:8: 2943 | use parameter_indices, only: & | 1 Warning: Unused parameter 'iskw_max_mag' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:145:23: 145 | hydromet, l_mix_rat_hm, & ! intent(in) | 1 Warning: Unused dummy argument 'hydromet' at (1) [-Wunused-dummy-argument] /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/advance_clubb_core_module.F90:199:8: 199 | use constants_clubb, only: & | 1 Warning: Unused parameter 'num_hf_draw_points' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/repo/compile/../lib/libclubb_param.a ar: creating /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../lib/libclubb_lapack.a ar: creating /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../lib/libmicrophys_utils.a ar: creating /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../lib/libclubb_parabolic.a ar: creating /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../lib/libclubb_KK_microphys.a /home/jenkins/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/repo/compile/../lib/libclubb_bugsrad.a /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/SILHS/latin_hypercube_driver_module.F90:1016:44: 1016 | subroutine clip_transform_silhs_output( gr, nz, ngrdcol, num_samples, & ! In | 1 Warning: Unused dummy argument 'gr' at (1) [-Wunused-dummy-argument] /home/jenkins/clubb_bit_diff_test_workspace/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] ar: creating /home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../lib/libclubb_coamps.a /home/jenkins/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/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/clubb_bit_diff_test_workspace/repo/compile/../lib/libsilhs.a ar: creating /home/jenkins/clubb_bit_diff_test_workspace/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:6531:39: 6531 | clubb_params, nu_vert_res_dep, lmin, & ! intent(in) | 1 Warning: Unused dummy argument 'lmin' at (1) [-Wunused-dummy-argument] ../src/clubb_driver.F90:6531:33: 6531 | 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:5706:8: 5706 | 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/clubb_bit_diff_test_workspace/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. 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. 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. 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. 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. 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. 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. 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. 956 : if ( trim( hm_metadata%hydromet_list(i) ) == "rrm" .and. stats_metadata%iVrrprrp > 0 ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 959 : call stat_update_var( stats_metadata%iVrrprrp, hydromet_vel_covar(:,hm_metadata%iirr), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 962 : elseif ( trim( hm_metadata%hydromet_list(i) ) == "Nrm" .and. stats_metadata%iVNrpNrp > 0 ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 965 : 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: 6648 : 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. 1312 : 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. 1313 : 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. 2212 : (/lon_vals/), (/lat_vals/), time_current, dt_main, l_silhs_out_in,&!intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2229 : (/lon_vals/), (/lat_vals/), time_current, dt_main, l_silhs_out_in,&!intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2284 : 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. 2286 : ( 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. 2501 : clubb_params(1,:), nu_vert_res_dep, lmin, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2552 : clubb_params(1,:), nu_vert_res_dep, lmin, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2600 : clubb_params(1,:), & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2609 : stats_zt, stats_zm, stats_sfc, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2615 : precip_fracs, & ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2635 : stats_zt, stats_zm, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3499 : ! 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. 4099 : = 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. 338 : stability_correction(i,k) = one + min( lambda0_stability(i,k) * brunt_vaisala_freq_sqd(i,k) & 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. 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. 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/lapack_wrap.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. 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 -------------------------------------------------------------------------------- ../src/CLUBB_core/clip_explicit.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: 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. 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. 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. 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. 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. 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. 1696 : / ( gr%zm(i,k) - sfc_elevation(i) + clubb_params(i,iz_displace) ) ! small CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1922 : 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. 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. 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. 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. 1183 : !$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. 1186 : !$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. 1187 : !$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(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. 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. 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. 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. 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. 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. 574 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 575 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 602 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 603 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 614 : call LY93_driver( nz, wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 615 : thlp2(i,:), Skw(i,:), Skrt(i,:), Skthl(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 970 : 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. 985 : 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. 1008 : 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. 1114 : 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. 1289 : = 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. 1295 : + ( 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. 1301 : - ( 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. 340 : l_modify_limiters_for_cnvg_test ! Flag to activate modifications on limiters for convergence test CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 501 : 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. 827 : 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. 926 : dt, sigma_sqd_w(i,:), wm_zm(i,:), wm_zt(i,:), wp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 927 : Lscale_zm(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 928 : Kh_zt(i,:), Kh_zm(i,:), invrs_tau_C6_zm(i,:), Skw_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 932 : wpthlp_forcing(i,:), thlm_ref(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 938 : wp2sclrp(i,:,:), sclrpthvp(i,:,:), sclrm_forcing(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 939 : sclrp2(i,:,:), exner(i,:), rcm(i,:), p_in_Pa(i,:), thvm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 942 : um_forcing(i,:), vm_forcing(i,:), ug(i,:), vg(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 943 : wpthvp(i,:), fcor(i), um_ref(i,:), vm_ref(i,:), up2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 944 : vp2(i,:), uprcp(i,:), vprcp(i,:), rc_coef_zm(i,:), rtm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 945 : wprtp(i,:), thlm(i,:), wpthlp(i,:), sclrm(i,:,:), wpsclrp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 946 : um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), rtm_old(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 948 : sclrm_old(i,:,:), wpsclrp_old(i,:,:), um_old(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1558 : l_modify_limiters_for_cnvg_test ! Flag to activate modifications on limiters for convergence test CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3018 : 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. 3133 : 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. 3135 : 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. 3332 : 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. 4143 : 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(2:nz) ), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2517 : 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. 2628 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_rtm, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2634 : write(fstderr, *) "Warning: tot_vartn_normlzd_thlm tried to divide by zero denominator ", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2641 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_thlm, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2647 : write(fstderr, *) "Warning: tot_vartn_normlzd_wprtp tried to divide by zero denominator ", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2654 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_wprtp, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2900 : 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. 824 : logical, parameter :: l_smooth_min_max = .false. ! whether to apply smooth min and max functions CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 942 : thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 943 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 944 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 945 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 946 : 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. 947 : 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. 948 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 949 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 952 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 953 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1415 : 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. 1449 : mu, rtp2_zt, thlp2_zt, rtpthlp_zt, pdf_params, em, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1632 : ! 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. 1633 : ! stats_metadata%irel_humidity = 0, rsat is not computed, leading to a floating-point exception CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1645 : call stat_update_var( stats_metadata%irel_humidity, rel_humidity(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1695 : call stat_update_var( stats_metadata%istability_correction, stability_correction(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1777 : 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. 1781 : 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. 1785 : 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. 1794 : 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. 1796 : 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. 1798 : 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. 1800 : 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. 1802 : 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. 1804 : 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. 1824 : clubb_config_flags%l_modify_limiters_for_cnvg_test, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1826 : stats_zm, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1919 : sclrm(i,:,:), sclrm_trsport_only(i,:,:), & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2282 : * ( one - exp( brunt_vaisala_freq_sqd_zt(i,k) / clubb_params(i,ixp3_coef_slope) ) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2678 : thlm(i,:), rtm(i,:), wprtp(i,:), wpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2679 : wp2(i,:), wp3(i,:), rtp2(i,:), rtp3(i,:), thlp2(i,:), thlp3(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2680 : wpthvp(i,:), wp2thvp(i,:), rtpthvp(i,:), thlpthvp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2681 : p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2682 : 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. 2683 : 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. 2684 : 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. 2687 : 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. 2688 : Lscale_up(i,:), Lscale_down(i,:), tau_zt(i,:), Kh_zt(i,:), wp2rcp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2689 : 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. 2690 : 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. 2691 : vp2_zt(i,:), upwp_zt(i,:), vpwp_zt(i,:), wpup2(i,:), wpvp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2694 : rtprcp(i,:), rcp2(i,:), em(i,:), a3_coef(i,:), a3_coef_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2695 : 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. 2698 : 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. 2699 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), sclrpthvp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2700 : wpsclrp(i,:,:), sclrprcp(i,:,:), wp2sclrp(i,:,:), wpsclrp2(i,:,:), wpsclrprtp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2701 : wpsclrpthlp(i,:,:), wpedsclrp(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2702 : clubb_config_flags%saturation_formula, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2703 : stats_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2704 : stats_zt(i), stats_zm(i), stats_sfc(i) ) ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2726 : thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2727 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2728 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2729 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2730 : 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. 2731 : 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. 2732 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2733 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2736 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2737 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2836 : !$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. 2841 : !$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. 2842 : !$acc invrs_tau_wp3_zm, invrs_tau_no_N2_zm, invrs_tau_bkgnd, invrs_tau_shear, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3378 : sclrp2_zt(:,:,j) = zm2zt( nz, ngrdcol, gr, sclrp2(:,:,j), sclr_tol(j)**2 ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3517 : sigma_sqd_w(:,:) = zm2zt2zm( nz, ngrdcol, gr, sigma_sqd_w_tmp(:,:), zero_threshold ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3521 : sigma_sqd_w_zt(:,:) = zm2zt( nz, ngrdcol, gr, sigma_sqd_w(:,:), zero_threshold ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3557 : sclrp2_zt(:,:,j) = zm2zt( nz, ngrdcol, gr, sclrp2(:,:,j), sclr_tol(j)**2 ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4139 : write(fstderr,*) "l_stability_correct_tau_zm = ", clubb_config_flags%l_stability_correct_tau_zm CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4175 : 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. 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 WARNING: Line has exceeded 100 characters. 473 : C2rt_1d(i,k) = clubb_params(i,iC2rt) * max( min_cloud_frac_mult, cloud_frac_zm(i,k) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 474 : C2thl_1d(i,k) = clubb_params(i,iC2thl) * max( min_cloud_frac_mult, cloud_frac_zm(i,k) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 475 : C2rtthl_1d(i,k) = clubb_params(i,iC2rtthl) * max( min_cloud_frac_mult, cloud_frac_zm(i,k) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 628 : 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. 1331 : sclrpthlp(:,:,sclr) ) ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1861 : rhs_ta_wpsclrp2, rhs_ta_wprtpsclrp, rhs_ta_wpthlpsclrp, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2733 : 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. 2767 : 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. 2787 : 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. 2790 : 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. 2793 : 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. 4046 : 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. 4047 : 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. 4228 : 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. 4262 : 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. 4355 : invrs_rho_ds_zm, rho_ds_zm, & ! Intent(in) & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5257 : !call stat_update_var( stats_metadata%icoef_wprtp2_implicit, coef_wprtp2_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5261 : !call stat_update_var( stats_metadata%iterm_wprtp2_explicit, term_wprtp2_explicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5265 : !call stat_update_var( stats_metadata%icoef_wpthlp2_implicit, coef_wpthlp2_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5269 : !call stat_update_var( stats_metadata%iterm_wpthlp2_explicit, term_wpthlp2_explicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5273 : !call stat_update_var( stats_metadata%icoef_wprtpthlp_implicit, coef_wprtpthlp_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5277 : !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 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. 561 : r_status = curandGenerate(cu_gen, rand_pool(:,:,2:nz,:), ngrdcol*num_samples*(nz-1)*(pdf_dim+d_uniform_extra)) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2282 : ! call stat_update_var( stats_metadata%ilh_cloud_frac_unweighted, lh_cloud_frac, stats_lh_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2626 : ! call stat_update_var( stats_metadata%ilh_precip_frac_unweighted, lh_precip_frac, stats_lh_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2669 : 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. 2716 : ! 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. ......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................../home/jenkins/clubb_bit_diff_test_workspace/repo/compile/../src/CLUBB_core/clubb_api_module.F90:1026:16: 1026 | integer :: i | 1 Warning: Unused variable 'i' declared at (1) [-Wunused-variable] ../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/clubb_driver.F90:6531:39: 6531 | clubb_params, nu_vert_res_dep, lmin, & ! intent(in) | 1 Warning: Unused dummy argument 'lmin' at (1) [-Wunused-dummy-argument] ../src/clubb_driver.F90:6531:33: 6531 | 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:5706:8: 5706 | 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. 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. 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. 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. 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. 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. 956 : if ( trim( hm_metadata%hydromet_list(i) ) == "rrm" .and. stats_metadata%iVrrprrp > 0 ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 959 : call stat_update_var( stats_metadata%iVrrprrp, hydromet_vel_covar(:,hm_metadata%iirr), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 962 : elseif ( trim( hm_metadata%hydromet_list(i) ) == "Nrm" .and. stats_metadata%iVNrpNrp > 0 ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 965 : 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: 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: 'use' statement w/o 'only' found in the following line: 6648 : 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. 1312 : 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. 1313 : 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. 2212 : (/lon_vals/), (/lat_vals/), time_current, dt_main, l_silhs_out_in,&!intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2229 : (/lon_vals/), (/lat_vals/), time_current, dt_main, l_silhs_out_in,&!intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2284 : 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. 2286 : ( 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. 2501 : clubb_params(1,:), nu_vert_res_dep, lmin, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2552 : clubb_params(1,:), nu_vert_res_dep, lmin, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2600 : clubb_params(1,:), & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2609 : stats_zt, stats_zm, stats_sfc, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2615 : precip_fracs, & ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2635 : stats_zt, stats_zm, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3499 : ! 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. 4099 : = 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. 338 : stability_correction(i,k) = one + min( lambda0_stability(i,k) * brunt_vaisala_freq_sqd(i,k) & 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. -------------------------------------------------------------------------------- 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/corr_varnce_module.F90 -------------------------------------------------------------------------------- ../src/CLUBB_core/adg1_adg2_3d_luhar_pdf.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. 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. 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: 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: 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. 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. 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. 1696 : / ( gr%zm(i,k) - sfc_elevation(i) + clubb_params(i,iz_displace) ) ! small CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1922 : 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. 824 : logical, parameter :: l_smooth_min_max = .false. ! whether to apply smooth min and max functions CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 942 : thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 943 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 944 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 945 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 946 : 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. 947 : 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. 948 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 949 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 952 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 953 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1415 : 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. 1449 : mu, rtp2_zt, thlp2_zt, rtpthlp_zt, pdf_params, em, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1632 : ! 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. 1633 : ! stats_metadata%irel_humidity = 0, rsat is not computed, leading to a floating-point exception CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1645 : call stat_update_var( stats_metadata%irel_humidity, rel_humidity(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1695 : call stat_update_var( stats_metadata%istability_correction, stability_correction(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1777 : 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. 1781 : 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. 1785 : 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. 1794 : 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. 1796 : 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. 1798 : 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. 1800 : 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. 1802 : 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. 1804 : 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. 1824 : clubb_config_flags%l_modify_limiters_for_cnvg_test, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1826 : stats_zm, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1919 : sclrm(i,:,:), sclrm_trsport_only(i,:,:), & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2282 : * ( one - exp( brunt_vaisala_freq_sqd_zt(i,k) / clubb_params(i,ixp3_coef_slope) ) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2678 : thlm(i,:), rtm(i,:), wprtp(i,:), wpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2679 : wp2(i,:), wp3(i,:), rtp2(i,:), rtp3(i,:), thlp2(i,:), thlp3(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2680 : wpthvp(i,:), wp2thvp(i,:), rtpthvp(i,:), thlpthvp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2681 : p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2682 : 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. 2683 : 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. 2684 : 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. 2687 : 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. 2688 : Lscale_up(i,:), Lscale_down(i,:), tau_zt(i,:), Kh_zt(i,:), wp2rcp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2689 : 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. 2690 : 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. 2691 : vp2_zt(i,:), upwp_zt(i,:), vpwp_zt(i,:), wpup2(i,:), wpvp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2694 : rtprcp(i,:), rcp2(i,:), em(i,:), a3_coef(i,:), a3_coef_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2695 : 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. 2698 : 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. 2699 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), sclrpthvp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2700 : wpsclrp(i,:,:), sclrprcp(i,:,:), wp2sclrp(i,:,:), wpsclrp2(i,:,:), wpsclrprtp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2701 : wpsclrpthlp(i,:,:), wpedsclrp(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2702 : clubb_config_flags%saturation_formula, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2703 : stats_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2704 : stats_zt(i), stats_zm(i), stats_sfc(i) ) ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2726 : thlm_forcing(i,:), rtm_forcing(i,:), um_forcing(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2727 : vm_forcing(i,:), wm_zm(i,:), wm_zt(i,:), p_in_Pa(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2728 : rho_zm(i,:), rho(i,:), exner(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2729 : rho_ds_zt(i,:), invrs_rho_ds_zm(i,:), invrs_rho_ds_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2730 : 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. 2731 : 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. 2732 : rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), wp2(i,:), wp3(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2733 : rtp2(i,:), thlp2(i,:), rtpthlp(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2736 : wpsclrp_sfc(i,:), wpedsclrp_sfc(i,:), sclrm(i,:,:), wpsclrp(i,:,:), sclrp2(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2737 : sclrprtp(i,:,:), sclrpthlp(i,:,:), sclrm_forcing(i,:,:), edsclrm(i,:,:), edsclrm_forcing(i,:,:) ) ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2836 : !$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. 2841 : !$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. 2842 : !$acc invrs_tau_wp3_zm, invrs_tau_no_N2_zm, invrs_tau_bkgnd, invrs_tau_shear, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3378 : sclrp2_zt(:,:,j) = zm2zt( nz, ngrdcol, gr, sclrp2(:,:,j), sclr_tol(j)**2 ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3517 : sigma_sqd_w(:,:) = zm2zt2zm( nz, ngrdcol, gr, sigma_sqd_w_tmp(:,:), zero_threshold ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3521 : sigma_sqd_w_zt(:,:) = zm2zt( nz, ngrdcol, gr, sigma_sqd_w(:,:), zero_threshold ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3557 : sclrp2_zt(:,:,j) = zm2zt( nz, ngrdcol, gr, sclrp2(:,:,j), sclr_tol(j)**2 ) ! Pos. def. quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4139 : write(fstderr,*) "l_stability_correct_tau_zm = ", clubb_config_flags%l_stability_correct_tau_zm CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 4175 : 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. 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. 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. 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(2:nz) ), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2517 : 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. 2628 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_rtm, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2634 : write(fstderr, *) "Warning: tot_vartn_normlzd_thlm tried to divide by zero denominator ", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2641 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_thlm, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2647 : write(fstderr, *) "Warning: tot_vartn_normlzd_wprtp tried to divide by zero denominator ", & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2654 : call stat_update_var_pt( stats_metadata%itot_vartn_normlzd_wprtp, grid_level, xtmp, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2900 : 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. 574 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 575 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 602 : wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), thlp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 603 : Skw(i,:), Skrt(i,:), Skthl(i,:), wprtp(i,:), wpthlp(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 614 : call LY93_driver( nz, wm(i,:), rtm(i,:), thlm(i,:), wp2(i,:), rtp2(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 615 : thlp2(i,:), Skw(i,:), Skrt(i,:), Skthl(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 970 : 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. 985 : 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. 1008 : 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. 1114 : 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. 1289 : = 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. 1295 : + ( 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. 1301 : - ( 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. 340 : l_modify_limiters_for_cnvg_test ! Flag to activate modifications on limiters for convergence test CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 501 : 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. 827 : 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. 926 : dt, sigma_sqd_w(i,:), wm_zm(i,:), wm_zt(i,:), wp2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 927 : Lscale_zm(i,:), wp3_on_wp2(i,:), wp3_on_wp2_zt(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 928 : Kh_zt(i,:), Kh_zm(i,:), invrs_tau_C6_zm(i,:), Skw_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 932 : wpthlp_forcing(i,:), thlm_ref(i,:), rho_ds_zm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 938 : wp2sclrp(i,:,:), sclrpthvp(i,:,:), sclrm_forcing(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 939 : sclrp2(i,:,:), exner(i,:), rcm(i,:), p_in_Pa(i,:), thvm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 942 : um_forcing(i,:), vm_forcing(i,:), ug(i,:), vg(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 943 : wpthvp(i,:), fcor(i), um_ref(i,:), vm_ref(i,:), up2(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 944 : vp2(i,:), uprcp(i,:), vprcp(i,:), rc_coef_zm(i,:), rtm(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 945 : wprtp(i,:), thlm(i,:), wpthlp(i,:), sclrm(i,:,:), wpsclrp(i,:,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 946 : um(i,:), upwp(i,:), vm(i,:), vpwp(i,:), rtm_old(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 948 : sclrm_old(i,:,:), wpsclrp_old(i,:,:), um_old(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1558 : l_modify_limiters_for_cnvg_test ! Flag to activate modifications on limiters for convergence test CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3018 : 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. 3133 : 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. 3135 : 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. 3332 : 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. 4143 : 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. 473 : C2rt_1d(i,k) = clubb_params(i,iC2rt) * max( min_cloud_frac_mult, cloud_frac_zm(i,k) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 474 : C2thl_1d(i,k) = clubb_params(i,iC2thl) * max( min_cloud_frac_mult, cloud_frac_zm(i,k) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 475 : C2rtthl_1d(i,k) = clubb_params(i,iC2rtthl) * max( min_cloud_frac_mult, cloud_frac_zm(i,k) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 628 : 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. 1331 : sclrpthlp(:,:,sclr) ) ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1861 : rhs_ta_wpsclrp2, rhs_ta_wprtpsclrp, rhs_ta_wpthlpsclrp, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2733 : 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. 2767 : 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. 2787 : 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. 2790 : 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. 2793 : 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. 4046 : 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. 4047 : 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. 4228 : 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. 4262 : 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. 4355 : invrs_rho_ds_zm, rho_ds_zm, & ! Intent(in) & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5257 : !call stat_update_var( stats_metadata%icoef_wprtp2_implicit, coef_wprtp2_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5261 : !call stat_update_var( stats_metadata%iterm_wprtp2_explicit, term_wprtp2_explicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5265 : !call stat_update_var( stats_metadata%icoef_wpthlp2_implicit, coef_wpthlp2_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5269 : !call stat_update_var( stats_metadata%iterm_wpthlp2_explicit, term_wpthlp2_explicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5273 : !call stat_update_var( stats_metadata%icoef_wprtpthlp_implicit, coef_wprtpthlp_implicit(i,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 5277 : !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. 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. 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 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 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. 561 : r_status = curandGenerate(cu_gen, rand_pool(:,:,2:nz,:), ngrdcol*num_samples*(nz-1)*(pdf_dim+d_uniform_extra)) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2282 : ! call stat_update_var( stats_metadata%ilh_cloud_frac_unweighted, lh_cloud_frac, stats_lh_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2626 : ! call stat_update_var( stats_metadata%ilh_precip_frac_unweighted, lh_precip_frac, stats_lh_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2669 : 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. 2716 : ! 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. Directory 1 is /home/jenkins/clubb_bit_diff_test_workspace/3f865924bdcf798fa45acaa67b57c44f40c32d89. Directory 2 is /home/jenkins/clubb_bit_diff_test_workspace/e7c07d8527cafa4ab3ee16b1b90ce1abe24941f3. Diffing arm netCDF (*.nc) files Diffing arm_97 netCDF (*.nc) files Diffing atex netCDF (*.nc) files Diffing bomex netCDF (*.nc) files Diffing dycoms2_rf01 netCDF (*.nc) files Diffing dycoms2_rf02_ds netCDF (*.nc) files Diffing gabls3_night netCDF (*.nc) files Diffing lba netCDF (*.nc) files Diffing rico netCDF (*.nc) files Diffing twp_ice netCDF (*.nc) files Diffing wangara netCDF (*.nc) files There were no differences detected! =============================== Configuring Test =============================== Working directory set to: /home/jenkins/clubb_bit_diff_test_workspace Trying to clone repo... Cloned repo location: /home/jenkins/clubb_bit_diff_test_workspace/repo Output Save Mode: none Using branch: master Making list from 'UnresolvedCommits': Run Output Path: repo/output Run commands: ['repo/compile/compile.bash', 'rm -rf repo/output', 'mkdir repo/output', 'repo/run_scripts/run_scm_all.bash --min-cases'] Diffing command: repo/run_scripts/run_bindiff_all.bash =============================== Running Test =============================== Parsing message from commit: 3f865924bdcf798fa45acaa67b57c44f40c32d89 Checking Commit: 3f865924bdcf798fa45acaa67b57c44f40c32d89 Running: final commit to check, not labelled BIT_CHANGING Checking out 3f865924bdcf798fa45acaa67b57c44f40c32d89 Running: 'repo/compile/compile.bash' Running: 'rm -rf repo/output' Running: 'mkdir repo/output' Running: 'repo/run_scripts/run_scm_all.bash --min-cases' Checking out e7c07d8527cafa4ab3ee16b1b90ce1abe24941f3 Running: 'repo/compile/compile.bash' Running: 'rm -rf repo/output' Running: 'mkdir repo/output' Running: 'repo/run_scripts/run_scm_all.bash --min-cases' Diffing: 'repo/run_scripts/run_bindiff_all.bash 3f865924bdcf798fa45acaa67b57c44f40c32d89 e7c07d8527cafa4ab3ee16b1b90ce1abe24941f3' =============================== Test Results =============================== Commit Range Checked = e7c07d8527cafa4ab3ee16b1b90ce1abe24941f3...3f865924bdcf798fa45acaa67b57c44f40c32d89 No new Unresolved commits found. No fake BIT_CHANGING commits found. No remaining Unresolved Commits. =============================== Updating Config File =============================== Saving into UnresolvedCommits: Saving into BaselineCommit: 3f865924bdcf798fa45acaa67b57c44f40c32d89 =============================== Cleanup =============================== Removed repo. Removing all generated output REMOVING: e7c07d8527cafa4ab3ee16b1b90ce1abe24941f3 REMOVING: 3f865924bdcf798fa45acaa67b57c44f40c32d89 ================== 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