Skip to content

Console Output

+ diff --exclude=.git --exclude=version_clubb_core.txt --exclude=version_silhs.txt -r clubb clubb_release
diff '--exclude=.git' '--exclude=version_clubb_core.txt' '--exclude=version_silhs.txt' -r clubb/src/CLUBB_core/advance_clubb_core_module.F90 clubb_release/src/CLUBB_core/advance_clubb_core_module.F90
986c986
<     !$acc              brunt_vaisala_freq_sqd_splat, &
---
>     !$acc              brunt_vaisala_freq_sqd_plus, brunt_vaisala_freq_sqd_splat, &
1552d1551
<           invrs_tau_wp3_zm(i,k)  = invrs_tau_zm(i,k)
2903c2902
<     !$acc                   brunt_vaisala_freq_sqd_splat, &
---
>     !$acc                   brunt_vaisala_freq_sqd_plus, brunt_vaisala_freq_sqd_splat, &
diff '--exclude=.git' '--exclude=version_clubb_core.txt' '--exclude=version_silhs.txt' -r clubb/src/CLUBB_core/advance_helper_module.F90 clubb_release/src/CLUBB_core/advance_helper_module.F90
335c335
<     !$acc                   lambda0_stability, Lscale_zm )
---
>     !$acc                   brunt_vaisala_freq_sqd_plus, lambda0_stability, Lscale_zm )
900,901c900,901
<     !$acc                   Richardson_num, Cx_fnc_interp, Ri_zm, &
<     !$acc                   ddzt_um, ddzt_vm, shear_sqd, turb_freq_sqd, Lscale_zm, &
---
>     !$acc                   brunt_vaisala_freq_sqd_plus, Richardson_num, Cx_fnc_interp, &
>     !$acc                   Ri_zm, ddzt_um, ddzt_vm, shear_sqd, turb_freq_sqd, Lscale_zm, &
diff '--exclude=.git' '--exclude=version_clubb_core.txt' '--exclude=version_silhs.txt' -r clubb/src/CLUBB_core/mixing_length.F90 clubb_release/src/CLUBB_core/mixing_length.F90
1586c1586
<       brunt_vaisala_freq_sqd_smth = zm2zt2zm( nz,ngrdcol,gr, brunt_vaisala_freq_sqd_mixed )
---
>       brunt_vaisala_freq_sqd_smth = zm2zt2zm( nz,ngrdcol,gr, brunt_vaisala_freq_sqd )
1595c1595
<             tmp_calc(i,k) = 1.e8_core_rknd * abs(brunt_vaisala_freq_sqd_mixed(i,k))**3
---
>             tmp_calc(i,k) = 1.e8_core_rknd * abs(brunt_vaisala_freq_sqd(i,k))**3
1601c1601
<                                                  brunt_vaisala_freq_sqd_mixed, &
---
>                                                  brunt_vaisala_freq_sqd, &
1612,1613c1612,1613
<             brunt_vaisala_freq_clipped(i,k) = min( brunt_vaisala_freq_sqd_mixed(i,k), &
<                                                    1.e8_core_rknd * abs(brunt_vaisala_freq_sqd_mixed(i,k))**3)
---
>             brunt_vaisala_freq_clipped(i,k) = min( brunt_vaisala_freq_sqd(i,k), &
>                                                    1.e8_core_rknd * abs(brunt_vaisala_freq_sqd(i,k))**3)
1844c1844
<           invrs_tau_xp2_zm(i,k) = invrs_tau_bkgnd(i,k) + invrs_tau_sfc(i,k) &
---
>           invrs_tau_xp2_zm(i,k) = 0.1_core_rknd * invrs_tau_bkgnd(i,k) + invrs_tau_sfc(i,k) &
1852,1861c1852,1861
< !      !$acc parallel loop gang vector collapse(2) default(present)
< !      do k = 1, nz
< !        do i = 1, ngrdcol
< !          if ( ice_supersat_frac_zm(i,k) <= 0.01_core_rknd &
< !               .and. invrs_tau_xp2_zm(i,k)  >= 0.003_core_rknd ) then
< !            invrs_tau_xp2_zm(i,k) = 0.003_core_rknd
< !          end if
< !        end do
< !      end do
< !      !$acc end parallel loop
---
>       !$acc parallel loop gang vector collapse(2) default(present)
>       do k = 1, nz
>         do i = 1, ngrdcol
>           if ( ice_supersat_frac_zm(i,k) <= 0.01_core_rknd &
>                .and. invrs_tau_xp2_zm(i,k)  >= 0.003_core_rknd ) then
>             invrs_tau_xp2_zm(i,k) = 0.003_core_rknd
>           end if
>         end do
>       end do
>       !$acc end parallel loop
diff '--exclude=.git' '--exclude=version_clubb_core.txt' '--exclude=version_silhs.txt' -r clubb/src/error.F90 clubb_release/src/error.F90
111c111
<   character(len=20), dimension(:), allocatable, private ::  &
---
>   character(len=10), dimension(:), allocatable, private ::  &
290c290
<     character(len=20), dimension(max_variables) :: &
---
>     character(len=10), dimension(max_variables) :: &
376c376
<       t_variables(1:max_variables)  = "                    "
---
>       t_variables(1:max_variables)  = "          "
423c423
<         if (t_variables(i) == "                    ") exit
---
>         if (t_variables(i) == "          ") exit