@@ -27,15 +27,12 @@ SUBROUTINE spec_init_soil_snow(dels, soil, ssnow, canopy, met, bal, veg,heat_cap
27
27
REAL , DIMENSION (mp) :: xx, tgg_old, tggsn_old
28
28
REAL (r_2), DIMENSION (mp) :: xxx,deltat,sinfil1,sinfil2,sinfil3
29
29
REAL :: zsetot
30
- INTEGER , SAVE :: ktau = 0
31
30
REAL :: heat_cap_lower_limit(mp,ms)
32
31
33
- ktau = ktau + 1
34
32
! since CMIP5 only ever (potentially) TRUE offline if special initialization
33
+ ! requested and then only on first timestep
35
34
IF ( .NOT. cable_user% cable_runtime_coupled ) THEN
36
35
37
- IF ( ktau_gl <= 1 ) THEN
38
-
39
36
! after discussion with BP
40
37
! N.B. snmin should exceed sum of layer depths, i.e. .11 m
41
38
ssnow% wbtot = 0.0
@@ -75,18 +72,18 @@ SUBROUTINE spec_init_soil_snow(dels, soil, ssnow, canopy, met, bal, veg,heat_cap
75
72
ssnow% gammzz(:,1 ) = MAX ( (1.0 - soil% ssat) * soil% css * soil% rhosoil &
76
73
& + (ssnow% wb(:,1 ) - ssnow% wbice(:,1 ) ) * Ccswat * Cdensity_liq &
77
74
& + ssnow% wbice(:,1 ) * Ccsice * Cdensity_ice, xx ) * soil% zse(1 )
78
- END IF
75
+
79
76
ENDIF ! if(.NOT.cable_runtime_coupled)
80
77
81
78
! this is done in all cases? overwrites gammzz from above and mediates thru
82
79
! snowd% (but only for single layer snow)
83
- IF (ktau < = 1 ) THEN
84
- xx = heat_cap_lower_limit(:, 1 )
85
- ssnow % gammzz (:,1 ) = MAX ( ( 1.0 - soil % ssat) * soil % css * soil % rhosoil &
86
- & + ( ssnow% wb (:,1 ) - ssnow % wbice(:, 1 ) ) * Ccswat * Cdensity_liq &
87
- & + ssnow% wbice(:,1 ) * Ccsice * Cdensity_ice, xx ) * soil % zse( 1 ) + &
88
- & ( 1 . - ssnow% isflag ) * Ccgsnow * ssnow % snowd
89
- END IF
80
+
81
+ ! Evaluated on first timestep offline/ ESM1.5
82
+ xx = heat_cap_lower_limit (:,1 )
83
+ ssnow% gammzz (:,1 ) = MAX ( ( 1.0 - soil % ssat ) * soil % css * soil % rhosoil &
84
+ & + ( ssnow% wb(:, 1 ) - ssnow % wbice(:,1 ) ) * Ccswat * Cdensity_liq &
85
+ & + ssnow% wbice(:, 1 ) * Ccsice * Cdensity_ice, xx ) * soil % zse( 1 ) + &
86
+ & ( 1 . - ssnow % isflag) * Ccgsnow * ssnow % snowd
90
87
91
88
END SUBROUTINE spec_init_soil_snow
92
89
0 commit comments