![[Jenkins]](/jenkins/static/9dada5b8/images/svgs/logo.svg){kind=logo}
Started by user Gunther Huebler Obtained jenkins_tests/clubb_BFB_r8029_flags_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_BFB_r8029_flags_gfortran_test [Pipeline] { [Pipeline] stage [Pipeline] { (Declarative: Checkout SCM) [Pipeline] checkout The recommended git tool is: git Wiping out workspace first. Cloning the remote Git repository Cloning repository https://github.com/larson-group/clubb.git > git init /home/jenkins/workspace/clubb_BFB_r8029_flags_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' > 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 df9e2152bc4889d33e801021a44c11fd6b685d1f (refs/remotes/origin/master) > git config core.sparsecheckout # timeout=10 > git checkout -f df9e2152bc4889d33e801021a44c11fd6b685d1f # timeout=10 Commit message: "Must add -fopenmp back for now, since this is used for the openmp test and it also broke the BFB tests for an obnoxious reason - that test compiles each commit without cleaning the build, so the baseline commit had -fopenmp and compiled with openmp stuff enabled, but then the subsequent commits had it turned off, but no changes in the files, so it didn't recompile with it off, and only turned it off in the linking stage, causing a build error. RESOLVED:320551df13ee84bdb9280db0be788a36e1f03494 RESOLVED:6c0201d44694fadf7f4bb0d4d58c3a9871096a22 RESOLVED:26644de2ea83ee6335b273f54dd57afc8f6f4b0c" > git rev-list --no-walk 6c0201d44694fadf7f4bb0d4d58c3a9871096a22 # timeout=10 [Pipeline] } [Pipeline] // stage [Pipeline] withEnv [Pipeline] { [Pipeline] stage [Pipeline] { (Update sys_admin Repo) [Pipeline] sh + git -C /home/pub/jenkins_BFB_test_configs/sys_admin pull Already up to date. [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=/opt/lmod/ ++ LMOD_ROOT=/opt/lmod/ ++ source /opt/lmod//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 +++ find /usr/local/spack/share/spack/lmod/linux-pop22-x86_64/Core -print -quit ++ 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/pub/jenkins_BFB_test_configs/sys_admin/python_nightly_test_suite/run_test.py -c /home/pub/jenkins_BFB_test_configs/clubb_BFB_r8029_flags_gfortran_test_config ............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................./home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/endian.F90:167:53: 167 | call mvbits( i_element, 56, 8, i_element_br, 0 ) | ^ Warning: 'i_element_br' is used uninitialized [-Wuninitialized] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/endian.F90:159:39: 159 | integer(kind=int64) :: i_element_br | ^ note: 'i_element_br' declared here /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/endian.F90:123:53: 123 | CALL MVBITS( i_element, 24, 8, i_element_br, 0 ) | ^ Warning: 'i_element_br' is used uninitialized [-Wuninitialized] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/endian.F90:117:69: 117 | INTEGER(KIND=int32) :: i_element_br | ^ note: 'i_element_br' declared here ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libclubb_gfdlact.a /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/input_reader.F90:498:28: 491 | do i=1, dim_grid | 2 ...... 498 | if ( grid(i) < grid(i-1) ) then | 1 Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2) [-Wdo-subscript] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/lapack_wrap.F90:554:32: 554 | if ( info == ndim+1 ) then | ^ Warning: 'info' may be used uninitialized [-Wmaybe-uninitialized] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/lapack_wrap.F90:428:10: 428 | info, & ! If this doesn't come back as 0, something went wrong | ^ note: 'info' declared here /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/lapack_wrap.F90:334:28: 334 | soln = -999._core_rknd | ^ Warning: 'info' may be used uninitialized [-Wmaybe-uninitialized] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/lapack_wrap.F90:263:10: 263 | info, & ! Diagnostic output | ^ note: 'info' declared here /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/lapack_wrap.F90:180:32: 180 | if ( info == ndim+1 ) then | ^ Warning: 'info' may be used uninitialized [-Wmaybe-uninitialized] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/lapack_wrap.F90:118:19: 118 | integer :: info ! Diagnostic output | ^ note: 'info' declared here /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/remapping_module.F90:1171:43: 1171 | if(f(i,k+1)*f(i,k-1)<zero .and. df2(i,k)/=zero) then | 1 Warning: Inequality comparison for REAL(8) at (1) [-Wcompare-reals] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/remapping_module.F90:1065:15: 1065 | if(dm(i) == zero) then | 1 Warning: Equality comparison for REAL(8) at (1) [-Wcompare-reals] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/remapping_module.F90:146:71: 146 | *( val_below + lin_spline_rho_vals(l) )/2 | ^ Warning: 'level_below' may be used uninitialized [-Wmaybe-uninitialized] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/remapping_module.F90:90:17: 90 | level_below, & ! The altitude of the level or spline connection point below [m] | ^ note: 'level_below' was declared here /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/remapping_module.F90:146:71: 146 | *( val_below + lin_spline_rho_vals(l) )/2 | ^ Warning: 'val_below' may be used uninitialized [-Wmaybe-uninitialized] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/remapping_module.F90:89:15: 89 | val_below, & ! The rho value of the level or spline connection point below [kg/m^3] | ^ note: 'val_below' was declared here /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/mono_flux_limiter.F90:463:9: 463 | tmp, & | 1 Warning: Unused variable 'tmp' declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1492:63: 1492 | rcm_in_layer, cloud_cover, w_up_in_cloud, w_down_in_cloud, & | 1 Warning: Unused dummy argument 'cloud_cover' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1493:80: 1493 | cloudy_updraft_frac, cloudy_downdraft_frac, wprcp, & | 1 Warning: Unused dummy argument 'cloudy_downdraft_frac' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1493:57: 1493 | cloudy_updraft_frac, cloudy_downdraft_frac, wprcp, & | 1 Warning: Unused dummy argument 'cloudy_updraft_frac' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1491:93: 1491 | wp2vp2, um_pert, vm_pert, upwp_pert, vpwp_pert, edsclrm, & | 1 Warning: Unused dummy argument 'edsclrm' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1488:52: 1488 | p_in_Pa, exner, rcm, cloud_frac, wp2thvp, wpthvp, rtpthvp, & | 1 Warning: Unused dummy argument 'exner' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1490:55: 1490 | ice_supersat_frac, uprcp, vprcp, rc_coef_zm, wp4, wp2up2, & | 1 Warning: Unused dummy argument 'ice_supersat_frac' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1494:50: 1494 | invrs_tau_zm, Kh_zt, Kh_zm, thlprcp ) | 1 Warning: Unused dummy argument 'invrs_tau_zm' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1494:64: 1494 | invrs_tau_zm, Kh_zt, Kh_zm, thlprcp ) | 1 Warning: Unused dummy argument 'kh_zm' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1494:57: 1494 | invrs_tau_zm, Kh_zt, Kh_zm, thlprcp ) | 1 Warning: Unused dummy argument 'kh_zt' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1675:22: 1675 | integer :: i, k, n, status | 1 Warning: Unused variable 'n' declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1512:8: 1512 | use netcdf, only: & | 1 Warning: Unused parameter 'nf90_noerr' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1512:8: 1512 | use netcdf, only: & | 1 Warning: Unused parameter 'nf90_write' which has been explicitly imported at (1) [-Wunused-parameter] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1488:45: 1488 | p_in_Pa, exner, rcm, cloud_frac, wp2thvp, wpthvp, rtpthvp, & | 1 Warning: Unused dummy argument 'p_in_pa' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1490:81: 1490 | ice_supersat_frac, uprcp, vprcp, rc_coef_zm, wp4, wp2up2, & | 1 Warning: Unused dummy argument 'rc_coef_zm' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1492:50: 1492 | rcm_in_layer, cloud_cover, w_up_in_cloud, w_down_in_cloud, & | 1 Warning: Unused dummy argument 'rcm_in_layer' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1485:71: 1485 | um, vm, up3, vp3, rtm, thlm, rtp3, thlp3, wp3, upwp, vpwp, & | 1 Warning: Unused dummy argument 'rtp3' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1488:95: 1488 | p_in_Pa, exner, rcm, cloud_frac, wp2thvp, wpthvp, rtpthvp, & | 1 Warning: Unused dummy argument 'rtpthvp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1487:43: 1487 | sclrm, sclrp3, wpsclrp, sclrp2, sclrprtp, sclrpthlp, & | 1 Warning: Unused dummy argument 'sclrm' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1487:68: 1487 | sclrm, sclrp3, wpsclrp, sclrp2, sclrprtp, sclrpthlp, & | 1 Warning: Unused dummy argument 'sclrp2' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1487:51: 1487 | sclrm, sclrp3, wpsclrp, sclrp2, sclrprtp, sclrpthlp, & | 1 Warning: Unused dummy argument 'sclrp3' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1487:78: 1487 | sclrm, sclrp3, wpsclrp, sclrp2, sclrprtp, sclrpthlp, & | 1 Warning: Unused dummy argument 'sclrprtp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1487:89: 1487 | sclrm, sclrp3, wpsclrp, sclrp2, sclrprtp, sclrpthlp, & | 1 Warning: Unused dummy argument 'sclrpthlp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1489:57: 1489 | thlpthvp, sclrpthvp, wp2rtp, wp2thlp, wpup2, wpvp2, & | 1 Warning: Unused dummy argument 'sclrpthvp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1485:78: 1485 | um, vm, up3, vp3, rtm, thlm, rtp3, thlp3, wp3, upwp, vpwp, & | 1 Warning: Unused dummy argument 'thlp3' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1494:73: 1494 | invrs_tau_zm, Kh_zt, Kh_zm, thlprcp ) | 1 Warning: Unused dummy argument 'thlprcp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1489:46: 1489 | thlpthvp, sclrpthvp, wp2rtp, wp2thlp, wpup2, wpvp2, & | 1 Warning: Unused dummy argument 'thlpthvp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1485:40: 1485 | um, vm, up3, vp3, rtm, thlm, rtp3, thlp3, wp3, upwp, vpwp, & | 1 Warning: Unused dummy argument 'um' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1491:53: 1491 | wp2vp2, um_pert, vm_pert, upwp_pert, vpwp_pert, edsclrm, & | 1 Warning: Unused dummy argument 'um_pert' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1485:49: 1485 | um, vm, up3, vp3, rtm, thlm, rtp3, thlp3, wp3, upwp, vpwp, & | 1 Warning: Unused dummy argument 'up3' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1490:62: 1490 | ice_supersat_frac, uprcp, vprcp, rc_coef_zm, wp4, wp2up2, & | 1 Warning: Unused dummy argument 'uprcp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1491:73: 1491 | wp2vp2, um_pert, vm_pert, upwp_pert, vpwp_pert, edsclrm, & | 1 Warning: Unused dummy argument 'upwp_pert' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1485:44: 1485 | um, vm, up3, vp3, rtm, thlm, rtp3, thlp3, wp3, upwp, vpwp, & | 1 Warning: Unused dummy argument 'vm' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1491:62: 1491 | wp2vp2, um_pert, vm_pert, upwp_pert, vpwp_pert, edsclrm, & | 1 Warning: Unused dummy argument 'vm_pert' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1485:54: 1485 | um, vm, up3, vp3, rtm, thlm, rtp3, thlp3, wp3, upwp, vpwp, & | 1 Warning: Unused dummy argument 'vp3' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1490:69: 1490 | ice_supersat_frac, uprcp, vprcp, rc_coef_zm, wp4, wp2up2, & | 1 Warning: Unused dummy argument 'vprcp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1491:84: 1491 | wp2vp2, um_pert, vm_pert, upwp_pert, vpwp_pert, edsclrm, & | 1 Warning: Unused dummy argument 'vpwp_pert' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1492:95: 1492 | rcm_in_layer, cloud_cover, w_up_in_cloud, w_down_in_cloud, & | 1 Warning: Unused dummy argument 'w_down_in_cloud' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1492:78: 1492 | rcm_in_layer, cloud_cover, w_up_in_cloud, w_down_in_cloud, & | 1 Warning: Unused dummy argument 'w_up_in_cloud' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1489:65: 1489 | thlpthvp, sclrpthvp, wp2rtp, wp2thlp, wpup2, wpvp2, & | 1 Warning: Unused dummy argument 'wp2rtp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1489:74: 1489 | thlpthvp, sclrpthvp, wp2rtp, wp2thlp, wpup2, wpvp2, & | 1 Warning: Unused dummy argument 'wp2thlp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1488:78: 1488 | p_in_Pa, exner, rcm, cloud_frac, wp2thvp, wpthvp, rtpthvp, & | 1 Warning: Unused dummy argument 'wp2thvp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1490:94: 1490 | ice_supersat_frac, uprcp, vprcp, rc_coef_zm, wp4, wp2up2, & | 1 Warning: Unused dummy argument 'wp2up2' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1491:44: 1491 | wp2vp2, um_pert, vm_pert, upwp_pert, vpwp_pert, edsclrm, & | 1 Warning: Unused dummy argument 'wp2vp2' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1490:86: 1490 | ice_supersat_frac, uprcp, vprcp, rc_coef_zm, wp4, wp2up2, & | 1 Warning: Unused dummy argument 'wp4' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1493:87: 1493 | cloudy_updraft_frac, cloudy_downdraft_frac, wprcp, & | 1 Warning: Unused dummy argument 'wprcp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1487:60: 1487 | sclrm, sclrp3, wpsclrp, sclrp2, sclrprtp, sclrpthlp, & | 1 Warning: Unused dummy argument 'wpsclrp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1488:86: 1488 | p_in_Pa, exner, rcm, cloud_frac, wp2thvp, wpthvp, rtpthvp, & | 1 Warning: Unused dummy argument 'wpthvp' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1489:81: 1489 | thlpthvp, sclrpthvp, wp2rtp, wp2thlp, wpup2, wpvp2, & | 1 Warning: Unused dummy argument 'wpup2' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/output_netcdf.F90:1489:88: 1489 | thlpthvp, sclrpthvp, wp2rtp, wp2thlp, wpup2, wpvp2, & | 1 Warning: Unused dummy argument 'wpvp2' at (1) [-Wunused-dummy-argument] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/pdf_utilities.F90:1400:7: 1400 | m | 1 Warning: Unused variable 'm' declared at (1) [-Wunused-variable] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/mixing_length.F90:570:16: 570 | if ( abs( dCAPE_dz_j - dCAPE_dz_j_minus_1 ) * 2 <= & | ^ Warning: 'dcape_dz_j' may be used uninitialized [-Wmaybe-uninitialized] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/mixing_length.F90:204:42: 204 | real( kind = core_rknd ) :: dCAPE_dz_j, dCAPE_dz_j_minus_1, dCAPE_dz_j_plus_1 | ^ note: 'dcape_dz_j' was declared here /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:1858:12: 1858 | if ( abs(wp2_avg_before - wp2_avg_after) > epsilon(wp2_avg_after)*1000 ) then | ^ Warning: 'wp2_avg_before' may be used uninitialized [-Wmaybe-uninitialized] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/CLUBB_core/advance_wp2_wp3_module.F90:1461:20: 1461 | wp2_avg_before, & | ^ note: 'wp2_avg_before' was declared here ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libclubb_param.a ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libclubb_lapack.a ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libmicrophys_utils.a ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libclubb_parabolic.a ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libclubb_KK_microphys.a ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libclubb_coamps.a ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libclubb_bugsrad.a /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/SILHS/silhs_importance_sample_module.F90:638:62: 633 | do category=1, num_importance_categories | 2 ...... 638 | rand_vect(sample) < category_cumulative_probs(category+1) ) then | 1 Warning: Array reference at (1) out of bounds (9 > 8) in loop beginning at (2) [-Wdo-subscript] ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libclubb_morrison.a /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/SILHS/latin_hypercube_driver_module.F90:1626:10: 1626 | if ( X_u_chi(sample) < (one - cloud_frac_i) ) then | ^ Warning: 'cloud_frac_i' may be used uninitialized [-Wmaybe-uninitialized] /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../src/SILHS/latin_hypercube_driver_module.F90:1608:18: 1608 | cloud_frac_i | ^ note: 'cloud_frac_i' was declared here ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libsilhs.a ../src/Benchmark_cases/cloud_sed_module.F90:173:49: 173 | if ( zt2zm_api( gr, rcm, k ) > zero .AND. zt2zm_api( gr, Ncm, k ) > zero ) then | 1 Warning: Impure function 'redirect_interpolated_azm_k' at (1) might not be evaluated [-Wfunction-elimination] ../src/ice_dfsn_module.F90:275:25: 210 | do k = gr%nzt, 1, -1 | 2 ...... 275 | mass_ice_cryst(k-1) = mass_ice_cryst(k) & | 1 Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2) [-Wdo-subscript] ../src/ice_dfsn_module.F90:290:25: 210 | do k = gr%nzt, 1, -1 | 2 ...... 290 | mass_ice_cryst(k-1) = mass_ice_cryst(k) | 1 Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2) [-Wdo-subscript] ../src/Benchmark_cases/rad_lwsw_module.F90:475:23: 475 | tau(kk+1) = tau(kk) | ^ Warning: 'MEM[(real(kind=8)[0:D.4423] *)_167][_24]' may be used uninitialized [-Wmaybe-uninitialized] ../src/morrison_microphys_module.F90:20:33: 20 | saturation_formula, & | 1 Warning: Unused dummy argument 'saturation_formula' at (1) [-Wunused-dummy-argument] ../src/simple_rad_module.F90:625:74: 625 | - ( zt_flipped(gr%nzt-1) - zt_flipped(gr%nzt) ) | ^ Warning: 'MEM <real(kind=8)> [(real(kind=8)[0:D.5909] *)_161 + -8B]' may be used uninitialized [-Wmaybe-uninitialized] ../src/simple_rad_module.F90:625:74: Warning: 'MEM <real(kind=8)> [(real(kind=8)[0:D.5909] *)_161 + -16B]' may be used uninitialized [-Wmaybe-uninitialized] ../src/simple_rad_module.F90:625:74: Warning: 'MEM <real(kind=8)> [(real(kind=8)[0:D.5909] *)_15 + -8B]' may be used uninitialized [-Wmaybe-uninitialized] ../src/simple_rad_module.F90:625:74: Warning: 'MEM <real(kind=8)> [(real(kind=8)[0:D.5909] *)_15 + -16B]' may be used uninitialized [-Wmaybe-uninitialized] ../src/KK_microphys_module.F90:43:35: 43 | subroutine KK_local_microphys( gr, dt, nzt, & ! In | 1 Warning: Unused dummy argument 'gr' at (1) [-Wunused-dummy-argument] ../src/sounding.F90:160:13: 160 | p_in_Pa, & ! Pressure [Pa] | 1 Warning: Array 'p_in_pa' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] ../src/sounding.F90:155:8: 155 | rt, & ! Total water mixing ratio sounding [kg/kg] | 1 Warning: Array 'rt' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] ../src/sounding.F90:161:10: 161 | subs ! Vertical velocity sounding [m/s or Pa/s] | 1 Warning: Array 'subs' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] ../src/sounding.F90:154:11: 154 | theta, & ! Liquid potential temperature sounding [K] | 1 Warning: Array 'theta' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] ../src/sounding.F90:156:7: 156 | u, & ! u wind sounding [m/s] | 1 Warning: Array 'u' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] ../src/sounding.F90:158:8: 158 | ug, & ! u geostrophic wind sounding [m/s] | 1 Warning: Array 'ug' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] ../src/sounding.F90:157:7: 157 | v, & ! v wind sounding [m/s] | 1 Warning: Array 'v' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] ../src/sounding.F90:159:8: 159 | vg, & ! v geostrophic wind sounding [m/s] | 1 Warning: Array 'vg' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] ../src/sounding.F90:153:7: 153 | z, & ! Altitude [m] | 1 Warning: Array 'z' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] ../src/clubb_driver.F90:6145:8: 6145 | use constants_clubb, only: & | 1 Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:6145:8: 6145 | use constants_clubb, only: & | 1 Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'cp' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'em_min' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:67:8: 67 | use parameter_indices, only: & | 1 Warning: Unused parameter 'ic_k' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'lv' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:124:8: 124 | use error_code, only: & | 1 Warning: Unused parameter 'clubb_no_error' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'one_half' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:790:27: 790 | rho_ds_zm_dycore_init | 1 Warning: Unused variable 'rho_ds_zm_dycore_init' declared at (1) [-Wunused-variable] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'three_halves' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:3621:99: 3621 | call stat_update_var( stats_metadata%ialt_term, alt_term_weight*alt_term, stats_zm(i) ) | ^ Warning: 'alt_term.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized] ../src/clubb_driver.F90:1094:14: 1094 | alt_term, & | ^ note: 'alt_term.dim[0].ubound' was declared here ar: creating /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test/compile/../lib/libclubb_other.a ../src/clubb_standalone.F90:67:26: 67 | character(len=10) :: arg | 1 Warning: Unused variable 'arg' declared at (1) [-Wunused-variable] ../src/G_unit_test_types/mu_sigma_hm_tests.F90:511:17: 511 | if ( any( .not. l_pass_test_3 ) ) then | ^ Warning: 'MEM[(logical(kind=4)[1] *)&l_pass_test_3]' may be used uninitialized [-Wmaybe-uninitialized] ../src/G_unit_test_types/mu_sigma_hm_tests.F90:137:19: 137 | l_pass_test_3, & ! Flag for passing test 3 | ^ note: 'MEM[(logical(kind=4)[1] *)&l_pass_test_3]' was declared here CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1971 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1972 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2562 : !$acc rcm_in_layer, cloud_cover, wprcp, w_up_in_cloud, w_down_in_cloud, cloudy_updraft_frac, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2574 : !$acc pdf_params%corr_w_thl_2, pdf_params%corr_rt_thl_1, pdf_params%corr_rt_thl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2575 : !$acc pdf_params%alpha_thl, pdf_params%alpha_rt, pdf_params%crt_1, pdf_params%crt_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2578 : !$acc pdf_params%stdev_eta_2, pdf_params%covar_chi_eta_1, pdf_params%covar_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2580 : !$acc pdf_params%corr_w_eta_2, pdf_params%corr_chi_eta_1, pdf_params%corr_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2586 : !$acc pdf_params_zm%thl_2, pdf_params_zm%varnce_thl_1, pdf_params_zm%varnce_thl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2587 : !$acc pdf_params_zm%corr_w_rt_1, pdf_params_zm%corr_w_rt_2, pdf_params_zm%corr_w_thl_1, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2588 : !$acc pdf_params_zm%corr_w_thl_2, pdf_params_zm%corr_rt_thl_1, pdf_params_zm%corr_rt_thl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2589 : !$acc pdf_params_zm%alpha_thl, pdf_params_zm%alpha_rt, pdf_params_zm%crt_1, pdf_params_zm%crt_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2590 : !$acc pdf_params_zm%cthl_1, pdf_params_zm%cthl_2, pdf_params_zm%chi_1, pdf_params_zm%chi_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2591 : !$acc pdf_params_zm%stdev_chi_1, pdf_params_zm%stdev_chi_2, pdf_params_zm%stdev_eta_1, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2592 : !$acc pdf_params_zm%stdev_eta_2, pdf_params_zm%covar_chi_eta_1, pdf_params_zm%covar_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2593 : !$acc pdf_params_zm%corr_w_chi_1, pdf_params_zm%corr_w_chi_2, pdf_params_zm%corr_w_eta_1, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2594 : !$acc pdf_params_zm%corr_w_eta_2, pdf_params_zm%corr_chi_eta_1, pdf_params_zm%corr_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2595 : !$acc pdf_params_zm%rsatl_1, pdf_params_zm%rsatl_2, pdf_params_zm%rc_1, pdf_params_zm%rc_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2643 : invrs_rho_ds_zt(i,k) = invrs_rho_ds_zt_init(k) ! inv. dry, static density: t-levs CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2649 : um_pert(i,k) = zero ! Variables used to track perturbed version of winds. CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2651 : wm_zt(i,k) = wm_zt_init(k) ! Imposed large scale w - Thermodynamic levels CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2995 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3327 : !$acc X_nl_all_levs, X_mixt_comp_all_levs, lh_sample_point_weights, mu_x_1_n, mu_x_2_n, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3329 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3333 : !$acc pdf_params%cloud_frac_1, pdf_params%cloud_frac_2, pdf_params%cthl_1, pdf_params%cthl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3334 : !$acc pdf_params%crt_1, pdf_params%crt_2, pdf_params%stdev_chi_1, pdf_params%stdev_chi_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3350 : wp2_zt = zm2zt_api( gr%nzm, gr%nzt, ngrdcol, gr, wp2, w_tol_sqd ) ! Positive definite quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3356 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3357 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3358 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3374 : stats_zt(i), stats_zm(i), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3375 : stats_sfc(i), stats_lh_zt(i), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3376 : Nccnm(i,:), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3377 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3378 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3379 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3380 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3381 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3382 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3406 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3407 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3408 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3409 : thlm_mc(i,:), err_info, & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3410 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3419 : !$acc update device( rcm_mc, rvm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3477 : !$acc update host( rvm_mc, rcm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3483 : call stat_update_var( stats_metadata%irtm_mc, rvm_mc(i,:)+rcm_mc(i,:), stats_zt(i) ) ! kg/kg/s CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3485 : call stat_update_var( stats_metadata%iwprtp_mc, wprtp_mc(i,:), stats_zm(i) ) ! m*(kg/kg)/s^2 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3487 : call stat_update_var( stats_metadata%irtp2_mc, rtp2_mc(i,:), stats_zm(i) ) ! (kg/kg)^2/s CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3489 : call stat_update_var( stats_metadata%irtpthlp_mc, rtpthlp_mc(i,:), stats_zm(i) ) ! K*(kg/kg)/s CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3506 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, X_nl_all_levs, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3526 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, thlm, rtm, rcm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3566 : call update_radiation_variables( gr%nzm, gr%nzt, radht(i,:), Frad_SW_up(i,:), Frad_LW_up(i,:), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3694 : if ( ( stats_metadata%l_stats_last .or. stats_metadata%l_stats .or. l_output_multi_col ) .and. l_stdout ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6380 : !$acc enter data create( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6546 : !$acc update device( wm_zt, wm_zm, thlm_forcing, rtm_forcing, um_ref, vm_ref, sclrm_forcing, edsclrm_forcing ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6948 : call stat_update_var_pt( stats_metadata%ish, 1, wpthlp_sfc(i)*rho_zm(i,1)*Cp,& ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6951 : call stat_update_var_pt( stats_metadata%ilh, 1, wprtp_sfc(i)*rho_zm(i,1)*Lv, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6954 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6957 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6960 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6963 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6966 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6969 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6975 : !$acc exit data delete( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7177 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7181 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7185 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7186 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7189 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7190 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7193 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7194 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/clubb_driver.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function. CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning endCheck failed: ../src/error.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/generalized_grid_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 899 : pdf_params_zm_flip%ice_supersat_frac_1(i,:) = flip( pdf_params_zm%ice_supersat_frac_1(i,:), nzm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 900 : pdf_params_zm_flip%ice_supersat_frac_2(i,:) = flip( pdf_params_zm%ice_supersat_frac_2(i,:), nzm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1067 : rtm_ref_flip, thlm_ref_flip, um_ref_flip, vm_ref_flip, ug_flip, vg_flip, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1079 : um_flip, vm_flip, upwp_flip, vpwp_flip, up2_flip, vp2_flip, up3_flip, vp3_flip, & ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1081 : wp2_flip, wp3_flip, rtp2_flip, rtp3_flip, thlp2_flip, thlp3_flip, rtpthlp_flip, & ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1087 : wp2rtp_flip, wp2thlp_flip, uprcp_flip, vprcp_flip, rc_coef_zm_flip, wp4_flip, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1088 : wpup2_flip, wpvp2_flip, wp2up2_flip, wp2vp2_flip, ice_supersat_frac_flip, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/generalized_grid_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 303 : stats_zt(i), stats_zm(i), & ! In/Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 307 : !$acc update device( mu_x_1_n, mu_x_2_n, sigma_x_1_n, sigma_x_2_n, corr_array_1_n, corr_array_2_n, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 366 : ! Rather than using the seed just to intialize the random number generator at the first timestep, we use it every CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 367 : ! timestep. Thus this seed defines the randoms, that way we can reproduce results for restart runs by using a CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 368 : ! reproducible seed. If we didn't do it this way, we would have to save the internal state of the random number CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 369 : ! generator to disk each timestep, then read it back in to reinitialize the random number generator CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 410 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 213 : stats_sfc(i) ) ! intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/soil_vegetation.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/sounding.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 8 check(s) failed. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1002 : call windm_edsclrm_rhs( nzm, nzt, ngrdcol, gr, windm_edsclrm_scalar, dt, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1003 : lhs_diff, edsclrm(:,:,edsclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1004 : edsclrm_forcing(:,:,edsclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1005 : rho_ds_zm, invrs_rho_ds_zt, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1006 : l_imp_sfc_momentum_flux, wpedsclrp(:,gr%k_lb_zm,edsclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1007 : stats_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1008 : stats_zt, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1009 : rhs(:,:,edsclr) ) ! intent(out) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/advance_windm_edsclrm_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 782 : call wpxp_term_pr1_lhs( nzm, ngrdcol, gr, C6rt_Skw_fnc, C6thl_Skw_fnc, C7_Skw_fnc, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 783 : invrs_tau_C6_zm, l_scalar_calc, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 784 : lhs_pr1_wprtp, lhs_pr1_wpthlp, lhs_pr1_wpsclrp ) ! Intent(out) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 862 : stats_zt, stats_zm, stats_sfc, & ! InOut CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 863 : rtm, wprtp, thlm, wpthlp, sclrm, wpsclrp, & ! InOut CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 864 : err_info ) ! InOut CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/advance_xm_wpxp_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1319 : sclrprtp(:,:,sclr) ) ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1354 : sclrpthlp(:,:,sclr) ) ! Intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/advance_xp2_xpyp_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/CLUBB_core/err_info_type_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 265 : write(err_info%err_header_global,'(A38, I3, A15, I3, A, A28, A33, F6.2, A1, F6.2, A, A39, A40)') & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 276 : write(err_info%err_header(i),'(A38, I3, A15, I3, A, A22, I2, A11, F6.2, A13, F6.2, A, A39, A40)') & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/err_info_type_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 295 : write(fstderr, *) "The fixed minimum grid density momentum heights need to cover at least the domain of the physics grid." CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/grid_adaptation_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 688 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 839 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted " CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/mono_flux_limiter.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED! CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function. implicitCheck failed: ../src/CLUBB_core/mt95.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1747 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1748 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1749 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1801 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1802 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1803 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1849 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1850 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1852 : !=================================== Allocate Output Arrays =================================== CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1979 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/output_netcdf.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 775 : call sfc_varnce_check( sclr_dim, wp2(i,gr%k_lb_zm), up2(i,gr%k_lb_zm), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 776 : vp2(i,gr%k_lb_zm), thlp2(i,gr%k_lb_zm), rtp2(i,gr%k_lb_zm), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 777 : rtpthlp(i,gr%k_lb_zm), sclrp2(i,gr%k_lb_zm,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 778 : sclrprtp(i,gr%k_lb_zm,:), sclrpthlp(i,gr%k_lb_zm,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 779 : err_info ) ! intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/sfc_varnce_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3004 : call stat_update_var( stats_metadata%icovar_chi_eta_1, pdf_params%covar_chi_eta_1(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3006 : call stat_update_var( stats_metadata%icovar_chi_eta_2, pdf_params%covar_chi_eta_2(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3016 : call stat_update_var( stats_metadata%icorr_chi_eta_1, pdf_params%corr_chi_eta_1(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3018 : call stat_update_var( stats_metadata%icorr_chi_eta_2, pdf_params%corr_chi_eta_2(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3079 : chip2 = compute_variance_binormal( chi, pdf_params%chi_1(icol,:), pdf_params%chi_2(icol,:), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3080 : pdf_params%stdev_chi_1(icol,:), pdf_params%stdev_chi_2(icol,:), & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/stats_clubb_utilities.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2449 : call stat_assign( var_index=stats_metadata%inorm_min_grid_dens, var_name="norm_min_grid_dens", & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/stats_zm_module.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 12 check(s) failed. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/bomex.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/dycoms2_rf01.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/dycoms2_rf02.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/gabls2.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/lba.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/mpace_a.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/mpace_b.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/rico.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/wangara.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 9 check(s) failed. CLUBBStandardsCheck.pl has begun. CLUBBStandardsCheck.pl has finished. PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197. CLUBBStandardsCheck.pl has begun. CLUBBStandardsCheck.pl has finished. PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 229 : !seed used = -1102123834 1480475276 -248259584 525496705 1614213535 -1267052688 6290033 -78466652 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 230 : !seed_output = (/ -1102123834, 1480475276, -248259584, 525496705, 1614213535, -1267052688, 6290033, -78466652 /) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 746 : call xpyp_term_ta_pdf_lhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 750 : call xpyp_term_ta_pdf_lhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 791 : call xpyp_term_ta_pdf_rhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 797 : call xpyp_term_ta_pdf_rhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 2 check(s) failed. multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 1 Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used. Program exited normally multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 1 Warning: ../input/case_setups/dycoms2_rf01_corr_array_cloud.in was not found! The default correlation arrays will be used. Program exited normally .............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1971 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1972 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2562 : !$acc rcm_in_layer, cloud_cover, wprcp, w_up_in_cloud, w_down_in_cloud, cloudy_updraft_frac, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2574 : !$acc pdf_params%corr_w_thl_2, pdf_params%corr_rt_thl_1, pdf_params%corr_rt_thl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2575 : !$acc pdf_params%alpha_thl, pdf_params%alpha_rt, pdf_params%crt_1, pdf_params%crt_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2578 : !$acc pdf_params%stdev_eta_2, pdf_params%covar_chi_eta_1, pdf_params%covar_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2580 : !$acc pdf_params%corr_w_eta_2, pdf_params%corr_chi_eta_1, pdf_params%corr_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2586 : !$acc pdf_params_zm%thl_2, pdf_params_zm%varnce_thl_1, pdf_params_zm%varnce_thl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2587 : !$acc pdf_params_zm%corr_w_rt_1, pdf_params_zm%corr_w_rt_2, pdf_params_zm%corr_w_thl_1, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2588 : !$acc pdf_params_zm%corr_w_thl_2, pdf_params_zm%corr_rt_thl_1, pdf_params_zm%corr_rt_thl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2589 : !$acc pdf_params_zm%alpha_thl, pdf_params_zm%alpha_rt, pdf_params_zm%crt_1, pdf_params_zm%crt_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2590 : !$acc pdf_params_zm%cthl_1, pdf_params_zm%cthl_2, pdf_params_zm%chi_1, pdf_params_zm%chi_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2591 : !$acc pdf_params_zm%stdev_chi_1, pdf_params_zm%stdev_chi_2, pdf_params_zm%stdev_eta_1, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2592 : !$acc pdf_params_zm%stdev_eta_2, pdf_params_zm%covar_chi_eta_1, pdf_params_zm%covar_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2593 : !$acc pdf_params_zm%corr_w_chi_1, pdf_params_zm%corr_w_chi_2, pdf_params_zm%corr_w_eta_1, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2594 : !$acc pdf_params_zm%corr_w_eta_2, pdf_params_zm%corr_chi_eta_1, pdf_params_zm%corr_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2595 : !$acc pdf_params_zm%rsatl_1, pdf_params_zm%rsatl_2, pdf_params_zm%rc_1, pdf_params_zm%rc_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2643 : invrs_rho_ds_zt(i,k) = invrs_rho_ds_zt_init(k) ! inv. dry, static density: t-levs CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2649 : um_pert(i,k) = zero ! Variables used to track perturbed version of winds. CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2651 : wm_zt(i,k) = wm_zt_init(k) ! Imposed large scale w - Thermodynamic levels CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2995 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3327 : !$acc X_nl_all_levs, X_mixt_comp_all_levs, lh_sample_point_weights, mu_x_1_n, mu_x_2_n, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3329 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3333 : !$acc pdf_params%cloud_frac_1, pdf_params%cloud_frac_2, pdf_params%cthl_1, pdf_params%cthl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3334 : !$acc pdf_params%crt_1, pdf_params%crt_2, pdf_params%stdev_chi_1, pdf_params%stdev_chi_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3350 : wp2_zt = zm2zt_api( gr%nzm, gr%nzt, ngrdcol, gr, wp2, w_tol_sqd ) ! Positive definite quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3356 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3357 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3358 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3374 : stats_zt(i), stats_zm(i), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3375 : stats_sfc(i), stats_lh_zt(i), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3376 : Nccnm(i,:), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3377 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3378 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3379 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3380 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3381 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3382 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3406 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3407 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3408 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3409 : thlm_mc(i,:), err_info, & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3410 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3419 : !$acc update device( rcm_mc, rvm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3477 : !$acc update host( rvm_mc, rcm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3483 : call stat_update_var( stats_metadata%irtm_mc, rvm_mc(i,:)+rcm_mc(i,:), stats_zt(i) ) ! kg/kg/s CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3485 : call stat_update_var( stats_metadata%iwprtp_mc, wprtp_mc(i,:), stats_zm(i) ) ! m*(kg/kg)/s^2 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3487 : call stat_update_var( stats_metadata%irtp2_mc, rtp2_mc(i,:), stats_zm(i) ) ! (kg/kg)^2/s CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3489 : call stat_update_var( stats_metadata%irtpthlp_mc, rtpthlp_mc(i,:), stats_zm(i) ) ! K*(kg/kg)/s CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3506 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, X_nl_all_levs, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3526 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, thlm, rtm, rcm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3566 : call update_radiation_variables( gr%nzm, gr%nzt, radht(i,:), Frad_SW_up(i,:), Frad_LW_up(i,:), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3694 : if ( ( stats_metadata%l_stats_last .or. stats_metadata%l_stats .or. l_output_multi_col ) .and. l_stdout ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6380 : !$acc enter data create( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6546 : !$acc update device( wm_zt, wm_zm, thlm_forcing, rtm_forcing, um_ref, vm_ref, sclrm_forcing, edsclrm_forcing ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6948 : call stat_update_var_pt( stats_metadata%ish, 1, wpthlp_sfc(i)*rho_zm(i,1)*Cp,& ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6951 : call stat_update_var_pt( stats_metadata%ilh, 1, wprtp_sfc(i)*rho_zm(i,1)*Lv, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6954 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6957 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6960 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6963 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6966 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6969 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6975 : !$acc exit data delete( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7177 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7181 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7185 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7186 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7189 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7190 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7193 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7194 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/clubb_driver.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function. CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning endCheck failed: ../src/error.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/generalized_grid_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 899 : pdf_params_zm_flip%ice_supersat_frac_1(i,:) = flip( pdf_params_zm%ice_supersat_frac_1(i,:), nzm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 900 : pdf_params_zm_flip%ice_supersat_frac_2(i,:) = flip( pdf_params_zm%ice_supersat_frac_2(i,:), nzm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1067 : rtm_ref_flip, thlm_ref_flip, um_ref_flip, vm_ref_flip, ug_flip, vg_flip, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1079 : um_flip, vm_flip, upwp_flip, vpwp_flip, up2_flip, vp2_flip, up3_flip, vp3_flip, & ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1081 : wp2_flip, wp3_flip, rtp2_flip, rtp3_flip, thlp2_flip, thlp3_flip, rtpthlp_flip, & ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1087 : wp2rtp_flip, wp2thlp_flip, uprcp_flip, vprcp_flip, rc_coef_zm_flip, wp4_flip, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1088 : wpup2_flip, wpvp2_flip, wp2up2_flip, wp2vp2_flip, ice_supersat_frac_flip, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/generalized_grid_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 303 : stats_zt(i), stats_zm(i), & ! In/Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 307 : !$acc update device( mu_x_1_n, mu_x_2_n, sigma_x_1_n, sigma_x_2_n, corr_array_1_n, corr_array_2_n, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 366 : ! Rather than using the seed just to intialize the random number generator at the first timestep, we use it every CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 367 : ! timestep. Thus this seed defines the randoms, that way we can reproduce results for restart runs by using a CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 368 : ! reproducible seed. If we didn't do it this way, we would have to save the internal state of the random number CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 369 : ! generator to disk each timestep, then read it back in to reinitialize the random number generator CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 410 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 213 : stats_sfc(i) ) ! intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/soil_vegetation.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/sounding.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 8 check(s) failed. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1002 : call windm_edsclrm_rhs( nzm, nzt, ngrdcol, gr, windm_edsclrm_scalar, dt, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1003 : lhs_diff, edsclrm(:,:,edsclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1004 : edsclrm_forcing(:,:,edsclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1005 : rho_ds_zm, invrs_rho_ds_zt, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1006 : l_imp_sfc_momentum_flux, wpedsclrp(:,gr%k_lb_zm,edsclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1007 : stats_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1008 : stats_zt, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1009 : rhs(:,:,edsclr) ) ! intent(out) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/advance_windm_edsclrm_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 782 : call wpxp_term_pr1_lhs( nzm, ngrdcol, gr, C6rt_Skw_fnc, C6thl_Skw_fnc, C7_Skw_fnc, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 783 : invrs_tau_C6_zm, l_scalar_calc, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 784 : lhs_pr1_wprtp, lhs_pr1_wpthlp, lhs_pr1_wpsclrp ) ! Intent(out) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 862 : stats_zt, stats_zm, stats_sfc, & ! InOut CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 863 : rtm, wprtp, thlm, wpthlp, sclrm, wpsclrp, & ! InOut CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 864 : err_info ) ! InOut CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/advance_xm_wpxp_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1319 : sclrprtp(:,:,sclr) ) ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1354 : sclrpthlp(:,:,sclr) ) ! Intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/advance_xp2_xpyp_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/CLUBB_core/err_info_type_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 265 : write(err_info%err_header_global,'(A38, I3, A15, I3, A, A28, A33, F6.2, A1, F6.2, A, A39, A40)') & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 276 : write(err_info%err_header(i),'(A38, I3, A15, I3, A, A22, I2, A11, F6.2, A13, F6.2, A, A39, A40)') & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/err_info_type_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 295 : write(fstderr, *) "The fixed minimum grid density momentum heights need to cover at least the domain of the physics grid." CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/grid_adaptation_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 688 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 839 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted " CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/mono_flux_limiter.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED! CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function. implicitCheck failed: ../src/CLUBB_core/mt95.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1747 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1748 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1749 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1801 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1802 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1803 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1849 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1850 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1852 : !=================================== Allocate Output Arrays =================================== CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1979 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/output_netcdf.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 775 : call sfc_varnce_check( sclr_dim, wp2(i,gr%k_lb_zm), up2(i,gr%k_lb_zm), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 776 : vp2(i,gr%k_lb_zm), thlp2(i,gr%k_lb_zm), rtp2(i,gr%k_lb_zm), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 777 : rtpthlp(i,gr%k_lb_zm), sclrp2(i,gr%k_lb_zm,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 778 : sclrprtp(i,gr%k_lb_zm,:), sclrpthlp(i,gr%k_lb_zm,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 779 : err_info ) ! intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/sfc_varnce_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3004 : call stat_update_var( stats_metadata%icovar_chi_eta_1, pdf_params%covar_chi_eta_1(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3006 : call stat_update_var( stats_metadata%icovar_chi_eta_2, pdf_params%covar_chi_eta_2(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3016 : call stat_update_var( stats_metadata%icorr_chi_eta_1, pdf_params%corr_chi_eta_1(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3018 : call stat_update_var( stats_metadata%icorr_chi_eta_2, pdf_params%corr_chi_eta_2(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3079 : chip2 = compute_variance_binormal( chi, pdf_params%chi_1(icol,:), pdf_params%chi_2(icol,:), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3080 : pdf_params%stdev_chi_1(icol,:), pdf_params%stdev_chi_2(icol,:), & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/stats_clubb_utilities.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2449 : call stat_assign( var_index=stats_metadata%inorm_min_grid_dens, var_name="norm_min_grid_dens", & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/stats_zm_module.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 12 check(s) failed. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/bomex.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/dycoms2_rf01.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/dycoms2_rf02.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/gabls2.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/lba.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/mpace_a.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/mpace_b.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/rico.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/wangara.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 9 check(s) failed. CLUBBStandardsCheck.pl has begun. CLUBBStandardsCheck.pl has finished. PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197. CLUBBStandardsCheck.pl has begun. CLUBBStandardsCheck.pl has finished. PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 229 : !seed used = -1102123834 1480475276 -248259584 525496705 1614213535 -1267052688 6290033 -78466652 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 230 : !seed_output = (/ -1102123834, 1480475276, -248259584, 525496705, 1614213535, -1267052688, 6290033, -78466652 /) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 746 : call xpyp_term_ta_pdf_lhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 750 : call xpyp_term_ta_pdf_lhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 791 : call xpyp_term_ta_pdf_rhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 797 : call xpyp_term_ta_pdf_rhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 2 check(s) failed. multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 1 Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used. Program exited normally multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 1 Warning: ../input/case_setups/dycoms2_rf01_corr_array_cloud.in was not found! The default correlation arrays will be used. Program exited normally Directory 1 is 320551df13ee84bdb9280db0be788a36e1f03494 Directory 2 is eac573b2f186d900e285d06c2fd5a933316b7c4e Using reporting threshold: 0.0 The following cases will be compared: ['bomex', 'dycoms2_rf01'] ###DIFFING bomex netCDF (*.nc) files### >No differences detected by the linux diff in bomex_zm.nc< >No differences detected by the linux diff in bomex_zt.nc< >No differences detected by the linux diff in bomex_sfc.nc< >>>The linux diff could not detect any differences in the file pairs for case bomex.<<< ********************************************************************************************************** ###DIFFING dycoms2_rf01 netCDF (*.nc) files### >No differences detected by the linux diff in dycoms2_rf01_zm.nc< >No differences detected by the linux diff in dycoms2_rf01_zt.nc< >No differences detected by the linux diff in dycoms2_rf01_sfc.nc< >>>The linux diff could not detect any differences in the file pairs for case dycoms2_rf01.<<< ********************************************************************************************************** SUMMARY: Linux diff did not detect any differences in the compared files. .............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................../src/morrison_microphys_module.F90:20:33: 20 | saturation_formula, & | 1 Warning: Unused dummy argument 'saturation_formula' at (1) [-Wunused-dummy-argument] ../src/clubb_driver.F90:6145:8: 6145 | use constants_clubb, only: & | 1 Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:6145:8: 6145 | use constants_clubb, only: & | 1 Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'cp' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'em_min' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:67:8: 67 | use parameter_indices, only: & | 1 Warning: Unused parameter 'ic_k' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'lv' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:124:8: 124 | use error_code, only: & | 1 Warning: Unused parameter 'clubb_no_error' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'kappa' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'one_half' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'p0' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:790:27: 790 | rho_ds_zm_dycore_init | 1 Warning: Unused variable 'rho_ds_zm_dycore_init' declared at (1) [-Wunused-variable] ../src/clubb_driver.F90:85:8: 85 | use constants_clubb, only: & | 1 Warning: Unused parameter 'three_halves' which has been explicitly imported at (1) [-Wunused-parameter] ../src/clubb_driver.F90:3621:99: 3621 | call stat_update_var( stats_metadata%ialt_term, alt_term_weight*alt_term, stats_zm(i) ) | ^ Warning: 'alt_term.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized] ../src/clubb_driver.F90:1094:14: 1094 | alt_term, & | ^ note: 'alt_term.dim[0].ubound' was declared here ../src/clubb_standalone.F90:67:26: 67 | character(len=10) :: arg | 1 Warning: Unused variable 'arg' declared at (1) [-Wunused-variable] CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1971 : allocate( um_ref(ngrdcol, gr%nzt) ) ! Reference u wind for nudging; Michael Falk, 17 Oct 2007 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1972 : allocate( vm_ref(ngrdcol, gr%nzt) ) ! Reference v wind for nudging; Michael Falk, 17 Oct 2007 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2562 : !$acc rcm_in_layer, cloud_cover, wprcp, w_up_in_cloud, w_down_in_cloud, cloudy_updraft_frac, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2574 : !$acc pdf_params%corr_w_thl_2, pdf_params%corr_rt_thl_1, pdf_params%corr_rt_thl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2575 : !$acc pdf_params%alpha_thl, pdf_params%alpha_rt, pdf_params%crt_1, pdf_params%crt_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2578 : !$acc pdf_params%stdev_eta_2, pdf_params%covar_chi_eta_1, pdf_params%covar_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2580 : !$acc pdf_params%corr_w_eta_2, pdf_params%corr_chi_eta_1, pdf_params%corr_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2586 : !$acc pdf_params_zm%thl_2, pdf_params_zm%varnce_thl_1, pdf_params_zm%varnce_thl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2587 : !$acc pdf_params_zm%corr_w_rt_1, pdf_params_zm%corr_w_rt_2, pdf_params_zm%corr_w_thl_1, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2588 : !$acc pdf_params_zm%corr_w_thl_2, pdf_params_zm%corr_rt_thl_1, pdf_params_zm%corr_rt_thl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2589 : !$acc pdf_params_zm%alpha_thl, pdf_params_zm%alpha_rt, pdf_params_zm%crt_1, pdf_params_zm%crt_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2590 : !$acc pdf_params_zm%cthl_1, pdf_params_zm%cthl_2, pdf_params_zm%chi_1, pdf_params_zm%chi_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2591 : !$acc pdf_params_zm%stdev_chi_1, pdf_params_zm%stdev_chi_2, pdf_params_zm%stdev_eta_1, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2592 : !$acc pdf_params_zm%stdev_eta_2, pdf_params_zm%covar_chi_eta_1, pdf_params_zm%covar_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2593 : !$acc pdf_params_zm%corr_w_chi_1, pdf_params_zm%corr_w_chi_2, pdf_params_zm%corr_w_eta_1, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2594 : !$acc pdf_params_zm%corr_w_eta_2, pdf_params_zm%corr_chi_eta_1, pdf_params_zm%corr_chi_eta_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2595 : !$acc pdf_params_zm%rsatl_1, pdf_params_zm%rsatl_2, pdf_params_zm%rc_1, pdf_params_zm%rc_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2643 : invrs_rho_ds_zt(i,k) = invrs_rho_ds_zt_init(k) ! inv. dry, static density: t-levs CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2649 : um_pert(i,k) = zero ! Variables used to track perturbed version of winds. CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2651 : wm_zt(i,k) = wm_zt_init(k) ! Imposed large scale w - Thermodynamic levels CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2995 : um(i,:), vm(i,:), rtm(i,:), wprtp(i,:), thlm(i,:), wpthlp(i,:), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3327 : !$acc X_nl_all_levs, X_mixt_comp_all_levs, lh_sample_point_weights, mu_x_1_n, mu_x_2_n, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3329 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3333 : !$acc pdf_params%cloud_frac_1, pdf_params%cloud_frac_2, pdf_params%cthl_1, pdf_params%cthl_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3334 : !$acc pdf_params%crt_1, pdf_params%crt_2, pdf_params%stdev_chi_1, pdf_params%stdev_chi_2, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3350 : wp2_zt = zm2zt_api( gr%nzm, gr%nzt, ngrdcol, gr, wp2, w_tol_sqd ) ! Positive definite quantity CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3356 : thlm(i,:), p_in_Pa(i,:), exner(i,:), rho(i,:), rho_zm(i,:), rtm(i,:), &! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3357 : rcm(i,:), cloud_frac(i,:), wm_zt(i,:), wm_zm(i,:), wp2_zt(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3358 : hydromet(i,:,:), Nc_in_cloud(i,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3374 : stats_zt(i), stats_zm(i), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3375 : stats_sfc(i), stats_lh_zt(i), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3376 : Nccnm(i,:), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3377 : hydromet_mc(i,:,:), Ncm_mc(i,:), rcm_mc(i,:), rvm_mc(i,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3378 : thlm_mc(i,:), hydromet_vel_zt(i,:,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3379 : hydromet_vel_covar_zt_impc(i,:,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3380 : hydromet_vel_covar_zt_expc(i,:,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3381 : wprtp_mc(i,:), wpthlp_mc(i,:), rtp2_mc(i,:), & ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3382 : thlp2_mc(i,:), rtpthlp_mc(i,:) ) ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3406 : stats_zt(i), stats_zm(i), stats_sfc(i), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3407 : hydromet(i,:,:), hydromet_vel_zt(i,:,:), hydrometp2(i,:,:), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3408 : K_hm(i,:,:), Ncm(i,:), Nc_in_cloud(i,:), rvm_mc(i,:), & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3409 : thlm_mc(i,:), err_info, & ! Inout CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3410 : wphydrometp(i,:,:), wpNcp(i,:) ) ! Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3419 : !$acc update device( rcm_mc, rvm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3477 : !$acc update host( rvm_mc, rcm_mc, thlm_mc, wprtp_mc, wpthlp_mc, rtp2_mc, thlp2_mc, rtpthlp_mc ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3483 : call stat_update_var( stats_metadata%irtm_mc, rvm_mc(i,:)+rcm_mc(i,:), stats_zt(i) ) ! kg/kg/s CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3485 : call stat_update_var( stats_metadata%iwprtp_mc, wprtp_mc(i,:), stats_zm(i) ) ! m*(kg/kg)/s^2 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3487 : call stat_update_var( stats_metadata%irtp2_mc, rtp2_mc(i,:), stats_zm(i) ) ! (kg/kg)^2/s CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3489 : call stat_update_var( stats_metadata%irtpthlp_mc, rtpthlp_mc(i,:), stats_zm(i) ) ! K*(kg/kg)/s CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3506 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, X_nl_all_levs, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3526 : !$acc update host( rho, rho_zm, p_in_Pa, exner, cloud_frac, ice_supersat_frac, thlm, rtm, rcm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3566 : call update_radiation_variables( gr%nzm, gr%nzt, radht(i,:), Frad_SW_up(i,:), Frad_LW_up(i,:), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3694 : if ( ( stats_metadata%l_stats_last .or. stats_metadata%l_stats .or. l_output_multi_col ) .and. l_stdout ) then CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6380 : !$acc enter data create( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6546 : !$acc update device( wm_zt, wm_zm, thlm_forcing, rtm_forcing, um_ref, vm_ref, sclrm_forcing, edsclrm_forcing ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6948 : call stat_update_var_pt( stats_metadata%ish, 1, wpthlp_sfc(i)*rho_zm(i,1)*Cp,& ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6951 : call stat_update_var_pt( stats_metadata%ilh, 1, wprtp_sfc(i)*rho_zm(i,1)*Lv, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6954 : call stat_update_var_pt( stats_metadata%iwpthlp_sfc, 1, wpthlp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6957 : call stat_update_var_pt( stats_metadata%iwprtp_sfc, 1, wprtp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6960 : call stat_update_var_pt( stats_metadata%iupwp_sfc, 1, upwp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6963 : call stat_update_var_pt( stats_metadata%ivpwp_sfc, 1, vpwp_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6966 : call stat_update_var_pt( stats_metadata%iustar, 1, ustar(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6969 : call stat_update_var_pt( stats_metadata%iT_sfc, 1, T_sfc(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 6975 : !$acc exit data delete( um_bot, vm_bot, rtm_bot, thlm_bot, rho_bot, exner_bot, z_bot, ustar, ubar ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7177 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7181 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7185 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7186 : exner_zm(i,km1), exner_zm(i,k00), exner_zm(i,kp1), exner_zm(i,kp2) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7189 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7190 : thlm_zm(i,km1), thlm_zm(i,k00), thlm_zm(i,kp1), thlm_zm(i,kp2) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7193 : gr%zm(i,km1), gr%zm(i,k00), gr%zm(i,kp1), gr%zm(i,kp2), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 7194 : rtm_zm(i,km1), rtm_zm(i,k00), rtm_zm(i,kp1), rtm_zm(i,kp2) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/clubb_driver.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Expected read_random_seed for end function. CLUBBStandardsCheck.pl WARNING: Endings of either program, module, subroutine, or function blocks to not match the beginning endCheck failed: ../src/error.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/generalized_grid_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 899 : pdf_params_zm_flip%ice_supersat_frac_1(i,:) = flip( pdf_params_zm%ice_supersat_frac_1(i,:), nzm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 900 : pdf_params_zm_flip%ice_supersat_frac_2(i,:) = flip( pdf_params_zm%ice_supersat_frac_2(i,:), nzm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1067 : rtm_ref_flip, thlm_ref_flip, um_ref_flip, vm_ref_flip, ug_flip, vg_flip, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1079 : um_flip, vm_flip, upwp_flip, vpwp_flip, up2_flip, vp2_flip, up3_flip, vp3_flip, & ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1081 : wp2_flip, wp3_flip, rtp2_flip, rtp3_flip, thlp2_flip, thlp3_flip, rtpthlp_flip, & ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1087 : wp2rtp_flip, wp2thlp_flip, uprcp_flip, vprcp_flip, rc_coef_zm_flip, wp4_flip, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1088 : wpup2_flip, wpvp2_flip, wp2up2_flip, wp2vp2_flip, ice_supersat_frac_flip, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/generalized_grid_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 303 : stats_zt(i), stats_zm(i), & ! In/Out CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 307 : !$acc update device( mu_x_1_n, mu_x_2_n, sigma_x_1_n, sigma_x_2_n, corr_array_1_n, corr_array_2_n, & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 366 : ! Rather than using the seed just to intialize the random number generator at the first timestep, we use it every CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 367 : ! timestep. Thus this seed defines the randoms, that way we can reproduce results for restart runs by using a CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 368 : ! reproducible seed. If we didn't do it this way, we would have to save the internal state of the random number CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 369 : ! generator to disk each timestep, then read it back in to reinitialize the random number generator CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 410 : !$acc lh_rt_clipped, lh_thl_clipped, lh_rc_clipped, lh_rv_clipped, lh_Nc_clipped ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/pdf_hydromet_microphys_wrapper.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 174 : call stat_update_var_pt( stats_metadata%isfc_soil_T_in_K, 1, sfc_soil_T_in_K(i), stats_sfc(i) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 175 : call stat_update_var_pt( stats_metadata%ideep_soil_T_in_K, 1, deep_soil_T_in_K(i), stats_sfc(i) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 212 : call stat_update_var_pt( stats_metadata%isoil_heat_flux, 1, soil_heat_flux(i), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 213 : stats_sfc(i) ) ! intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/soil_vegetation.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 381 : um(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 383 : vm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 385 : ugm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 387 : vgm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 389 : thlm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 391 : rtm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 393 : press(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 396 : wm(i,k) = mono_cubic_interp( gr%zt(i,k), km1, k00, kp1, kp2, z(km1), z(k00), z(kp1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 413 : edsclr_snd(km1,edsclr), edsclr_snd(k00,edsclr), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 414 : edsclr_snd(kp1,edsclr), edsclr_snd(kp2,edsclr) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 438 : um(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), u(k_above), u(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 439 : vm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), v(k_above), v(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 440 : ugm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), ug(k_above), ug(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 441 : vgm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), vg(k_above), vg(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 442 : thlm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), theta(k_above), theta(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 443 : rtm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), rt(k_above), rt(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 444 : press(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), p_in_Pa(k_above), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 446 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 450 : sclrm(i,k,sclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 456 : edsclrm(i,k,edsclr) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 485 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 511 : wm(i,k) = lin_interpolate_two_points( gr%zt(i,k), z(k_above), z(k_above-1), subs(k_above), subs(k_above-1) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/sounding.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 8 check(s) failed. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1002 : call windm_edsclrm_rhs( nzm, nzt, ngrdcol, gr, windm_edsclrm_scalar, dt, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1003 : lhs_diff, edsclrm(:,:,edsclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1004 : edsclrm_forcing(:,:,edsclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1005 : rho_ds_zm, invrs_rho_ds_zt, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1006 : l_imp_sfc_momentum_flux, wpedsclrp(:,gr%k_lb_zm,edsclr), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1007 : stats_metadata, & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1008 : stats_zt, & ! intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1009 : rhs(:,:,edsclr) ) ! intent(out) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/advance_windm_edsclrm_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 782 : call wpxp_term_pr1_lhs( nzm, ngrdcol, gr, C6rt_Skw_fnc, C6thl_Skw_fnc, C7_Skw_fnc, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 783 : invrs_tau_C6_zm, l_scalar_calc, & ! Intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 784 : lhs_pr1_wprtp, lhs_pr1_wpthlp, lhs_pr1_wpsclrp ) ! Intent(out) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 862 : stats_zt, stats_zm, stats_sfc, & ! InOut CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 863 : rtm, wprtp, thlm, wpthlp, sclrm, wpsclrp, & ! InOut CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 864 : err_info ) ! InOut CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/advance_xm_wpxp_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1319 : sclrprtp(:,:,sclr) ) ! Intent(inout) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1354 : sclrpthlp(:,:,sclr) ) ! Intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/advance_xp2_xpyp_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/CLUBB_core/err_info_type_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 265 : write(err_info%err_header_global,'(A38, I3, A15, I3, A, A28, A33, F6.2, A1, F6.2, A, A39, A40)') & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 276 : write(err_info%err_header(i),'(A38, I3, A15, I3, A, A22, I2, A11, F6.2, A13, F6.2, A, A39, A40)') & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/err_info_type_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 295 : write(fstderr, *) "The fixed minimum grid density momentum heights need to cover at least the domain of the physics grid." CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/grid_adaptation_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 688 : !$acc parallel loop gang vector collapse(2) default(present) reduction(.or.:l_any_adjustment_needed) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 839 : ! MONOFLUX TEST COMMENT DO NOT REMOVE if( any(wpxp_net_adjust /= 0.0) ) write(fstderr,*) "MONOFLUX: wpxp adjusted " CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/mono_flux_limiter.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Missing 'implicit none' statements. 'Implicit None' check FAILED! CLUBBStandardsCheck.pl Add a line containing 'implicit none' to each program, module, subroutine, and function. implicitCheck failed: ../src/CLUBB_core/mt95.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1747 : status = nf90_def_var( ncid_zm, "columns", NF90_INT, (/column_id_zm/), column_var_id_zm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1748 : status = nf90_def_var( ncid_zm, "altitude", NF90_PREC, (/vertical_id_zm/), vertical_var_id_zm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1749 : status = nf90_def_var( ncid_zm, "time", NF90_PREC, (/time_id_zm/), time_var_id_zm ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1801 : status = nf90_def_var( ncid_zt, "columns", NF90_INT, (/column_id_zt/), column_var_id_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1802 : status = nf90_def_var( ncid_zt, "altitude", NF90_PREC, (/vertical_id_zt/), vertical_var_id_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1803 : status = nf90_def_var( ncid_zt, "time", NF90_PREC, (/time_id_zt/), time_var_id_zt ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1849 : status = nf90_put_var( ncid_zm, column_var_id_zm, column_list, start=(/1/), count=(/ngrdcol/) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1850 : status = nf90_put_var( ncid_zt, column_var_id_zt, column_list, start=(/1/), count=(/ngrdcol/) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1852 : !=================================== Allocate Output Arrays =================================== CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 1979 : !$acc upwp_out, vpwp_out, up2_out, vp2_out, wp3_out, rcm_out, cloud_frac_out, rtm_out, thlm_out ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/output_netcdf.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 775 : call sfc_varnce_check( sclr_dim, wp2(i,gr%k_lb_zm), up2(i,gr%k_lb_zm), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 776 : vp2(i,gr%k_lb_zm), thlp2(i,gr%k_lb_zm), rtp2(i,gr%k_lb_zm), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 777 : rtpthlp(i,gr%k_lb_zm), sclrp2(i,gr%k_lb_zm,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 778 : sclrprtp(i,gr%k_lb_zm,:), sclrpthlp(i,gr%k_lb_zm,:), & ! intent(in) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 779 : err_info ) ! intent(inout) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/sfc_varnce_module.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3004 : call stat_update_var( stats_metadata%icovar_chi_eta_1, pdf_params%covar_chi_eta_1(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3006 : call stat_update_var( stats_metadata%icovar_chi_eta_2, pdf_params%covar_chi_eta_2(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3016 : call stat_update_var( stats_metadata%icorr_chi_eta_1, pdf_params%corr_chi_eta_1(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3018 : call stat_update_var( stats_metadata%icorr_chi_eta_2, pdf_params%corr_chi_eta_2(icol,:), & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3079 : chip2 = compute_variance_binormal( chi, pdf_params%chi_1(icol,:), pdf_params%chi_2(icol,:), & CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 3080 : pdf_params%stdev_chi_1(icol,:), pdf_params%stdev_chi_2(icol,:), & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/stats_clubb_utilities.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 2449 : call stat_assign( var_index=stats_metadata%inorm_min_grid_dens, var_name="norm_min_grid_dens", & CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/CLUBB_core/stats_zm_module.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 12 check(s) failed. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 127 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 128 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/bomex.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 91 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 92 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/dycoms2_rf01.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 121 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 122 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/dycoms2_rf02.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 152 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 153 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/gabls2.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 96 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 97 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 176 : wpthlp_sfc(i) = convert_sens_ht_to_km_s( ( 270._core_rknd * ft**1.5_core_rknd ), rho_sfc(i) ) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 177 : wprtp_sfc(i) = convert_latent_ht_to_m_s( ( 554._core_rknd * ft**1.3_core_rknd ), rho_sfc(i) ) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/lba.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 272 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 273 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/mpace_a.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 157 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 158 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/mpace_b.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 159 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 160 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/rico.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 104 : if ( sclr_idx%iiedsclr_thl > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_thl) = thlm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 105 : if ( sclr_idx%iiedsclr_rt > 0 ) edsclrm_forcing(i,k,sclr_idx%iiedsclr_rt) = rtm_forcing(i,k) CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/Benchmark_cases/wangara.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 9 check(s) failed. CLUBBStandardsCheck.pl has begun. CLUBBStandardsCheck.pl has finished. PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197. CLUBBStandardsCheck.pl has begun. CLUBBStandardsCheck.pl has finished. PASS: 0 checks failed at ../utilities/CLUBBStandardsCheck.pl line 197. CLUBBStandardsCheck.pl has begun. -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Number of "private" statements does not not match number of modules. CLUBBStandardsCheck.pl WARNING: Private Test failed! privateCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 229 : !seed used = -1102123834 1480475276 -248259584 525496705 1614213535 -1267052688 6290033 -78466652 CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 230 : !seed_output = (/ -1102123834, 1480475276, -248259584, 525496705, 1614213535, -1267052688, 6290033, -78466652 /) CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 746 : call xpyp_term_ta_pdf_lhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 750 : call xpyp_term_ta_pdf_lhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 791 : call xpyp_term_ta_pdf_rhs_godunov( gr_ascending%nzm, gr_ascending%nzt, 1, gr_ascending, & ! In CLUBBStandardsCheck.pl WARNING: Line has exceeded 100 characters. 797 : call xpyp_term_ta_pdf_rhs_godunov( gr_descending%nzm, gr_descending%nzt, 1, gr_descending, & ! In CLUBBStandardsCheck.pl WARNING: File has lines that exceed 100 characters. lineCheck failed: ../src/G_unit_test_types/rev_direction_grid_test.F90 -------------------------------------------------------------------------------- CLUBBStandardsCheck.pl has finished. FAIL: 2 check(s) failed. multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 1 Warning: ../input/case_setups/bomex_corr_array_cloud.in was not found! The default correlation arrays will be used. Program exited normally multicol_def namelist not found in clubb.in -- defaulting to ngrdcol = 1 Warning: ../input/case_setups/dycoms2_rf01_corr_array_cloud.in was not found! The default correlation arrays will be used. Program exited normally Directory 1 is df9e2152bc4889d33e801021a44c11fd6b685d1f Directory 2 is eac573b2f186d900e285d06c2fd5a933316b7c4e Using reporting threshold: 0.0 The following cases will be compared: ['bomex', 'dycoms2_rf01'] ###DIFFING bomex netCDF (*.nc) files### >No differences detected by the linux diff in bomex_zm.nc< >No differences detected by the linux diff in bomex_zt.nc< >No differences detected by the linux diff in bomex_sfc.nc< >>>The linux diff could not detect any differences in the file pairs for case bomex.<<< ********************************************************************************************************** ###DIFFING dycoms2_rf01 netCDF (*.nc) files### >No differences detected by the linux diff in dycoms2_rf01_zm.nc< >No differences detected by the linux diff in dycoms2_rf01_zt.nc< >No differences detected by the linux diff in dycoms2_rf01_sfc.nc< >>>The linux diff could not detect any differences in the file pairs for case dycoms2_rf01.<<< ********************************************************************************************************** SUMMARY: Linux diff did not detect any differences in the compared files. =============================== Configuring Test =============================== Working directory set to: /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test Checking specified repo: /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test Using /home/jenkins/workspace/clubb_BFB_r8029_flags_gfortran_test with origin https://github.com/larson-group/clubb.git Output Save Mode: none Using branch: master Making list from 'UnresolvedCommits': - 26644de2ea83ee6335b273f54dd57afc8f6f4b0c - 6c0201d44694fadf7f4bb0d4d58c3a9871096a22 CheckRange = True: Getting commit range Run Output Path: output Run commands: ['compile/compile.bash', '\nrm -rf output', 'mkdir output', '\ncp input/tunable_parameters_compatible_r8029/configurable_model_flags.in input/tunable_parameters', '\ncp input/tunable_parameters_compatible_r8029/silhs_parameters.in input/tunable_parameters', '\ncp input/tunable_parameters_compatible_r8029/tunable_parameters.in input/tunable_parameters', '\nrun_scripts/run_scm.bash bomex', '\nrun_scripts/run_scm.bash dycoms2_rf01'] Diffing command: python3 run_scripts/run_bindiff_all.py =============================== Running Test =============================== Parsing message from commit: 320551df13ee84bdb9280db0be788a36e1f03494 Found: BIT_CHANGING Parsing message from commit: 26644de2ea83ee6335b273f54dd57afc8f6f4b0c Parsing message from commit: 6c0201d44694fadf7f4bb0d4d58c3a9871096a22 Parsing message from commit: df9e2152bc4889d33e801021a44c11fd6b685d1f Found: RESOLVED:320551df13ee84bdb9280db0be788a36e1f03494 Found: RESOLVED:6c0201d44694fadf7f4bb0d4d58c3a9871096a22 Found: RESOLVED:26644de2ea83ee6335b273f54dd57afc8f6f4b0c Checking Commit: 320551df13ee84bdb9280db0be788a36e1f03494 Checking out 320551df13ee84bdb9280db0be788a36e1f03494 Running: 'compile/compile.bash' Running: 'rm -rf output' Running: 'mkdir output' Running: 'cp input/tunable_parameters_compatible_r8029/configurable_model_flags.in input/tunable_parameters' Running: 'cp input/tunable_parameters_compatible_r8029/silhs_parameters.in input/tunable_parameters' Running: 'cp input/tunable_parameters_compatible_r8029/tunable_parameters.in input/tunable_parameters' Running: 'run_scripts/run_scm.bash bomex' Running: 'run_scripts/run_scm.bash dycoms2_rf01' Checking out eac573b2f186d900e285d06c2fd5a933316b7c4e Running: 'compile/compile.bash' Running: 'rm -rf output' Running: 'mkdir output' Running: 'cp input/tunable_parameters_compatible_r8029/configurable_model_flags.in input/tunable_parameters' Running: 'cp input/tunable_parameters_compatible_r8029/silhs_parameters.in input/tunable_parameters' Running: 'cp input/tunable_parameters_compatible_r8029/tunable_parameters.in input/tunable_parameters' Running: 'run_scripts/run_scm.bash bomex' Running: 'run_scripts/run_scm.bash dycoms2_rf01' Diffing: 'python3 run_scripts/run_bindiff_all.py 320551df13ee84bdb9280db0be788a36e1f03494 eac573b2f186d900e285d06c2fd5a933316b7c4e' WARNING: commit '320551df13ee84bdb9280db0be788a36e1f03494' was supposed to be BIT_CHANGING, but is not. Checking Commit: 26644de2ea83ee6335b273f54dd57afc8f6f4b0c Skipping: not final commit and not labelled BIT_CHANGING Checking Commit: 6c0201d44694fadf7f4bb0d4d58c3a9871096a22 Skipping: not final commit and not labelled BIT_CHANGING Checking Commit: df9e2152bc4889d33e801021a44c11fd6b685d1f Running: final commit to check, not labelled BIT_CHANGING Checking out df9e2152bc4889d33e801021a44c11fd6b685d1f Running: 'compile/compile.bash' Running: 'rm -rf output' Running: 'mkdir output' Running: 'cp input/tunable_parameters_compatible_r8029/configurable_model_flags.in input/tunable_parameters' Running: 'cp input/tunable_parameters_compatible_r8029/silhs_parameters.in input/tunable_parameters' Running: 'cp input/tunable_parameters_compatible_r8029/tunable_parameters.in input/tunable_parameters' Running: 'run_scripts/run_scm.bash bomex' Running: 'run_scripts/run_scm.bash dycoms2_rf01' Output from eac573b2f186d900e285d06c2fd5a933316b7c4e already saved Diffing: 'python3 run_scripts/run_bindiff_all.py df9e2152bc4889d33e801021a44c11fd6b685d1f eac573b2f186d900e285d06c2fd5a933316b7c4e' =============================== Test Results =============================== Commit Range Checked = eac573b2f186d900e285d06c2fd5a933316b7c4e...df9e2152bc4889d33e801021a44c11fd6b685d1f No new Unresolved commits found. Fake BIT_CHANGING Commits: 320551df13ee84bdb9280db0be788a36e1f03494 WARNING: 320551df13ee84bdb9280db0be788a36e1f03494 labelled as RESOLVED, but was not listed as unresolved. Resolved: 6c0201d44694fadf7f4bb0d4d58c3a9871096a22 Resolved: 26644de2ea83ee6335b273f54dd57afc8f6f4b0c No remaining Unresolved Commits. =============================== Updating Config File =============================== Saving into UnresolvedCommits: Saving into BaselineCommit: df9e2152bc4889d33e801021a44c11fd6b685d1f =============================== Cleanup =============================== Removing all generated output REMOVING: eac573b2f186d900e285d06c2fd5a933316b7c4e REMOVING: 320551df13ee84bdb9280db0be788a36e1f03494 REMOVING: df9e2152bc4889d33e801021a44c11fd6b685d1f ================== Unresolved Commit Status ================== No remaining Unresolved Commits. Exiting with code: 0 [Pipeline] } [Pipeline] // stage [Pipeline] } [Pipeline] // withEnv [Pipeline] } [Pipeline] // node [Pipeline] End of Pipeline Finished: SUCCESS