| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_albedo.F |
10 |
THSICE_ALBEDO |
I hi, hs, Tsf, age, |
|
./pkg/thsice/thsice_albedo.F |
33 |
THSICE_ALBEDO |
_RL Tsf ! surface temperature |
|
./pkg/thsice/thsice_albedo.F |
69 |
THSICE_ALBEDO |
& *MAX( 0. _d 0, 1. _d 0 + MIN(Tsf/10. _d 0, 0. _d 0) ) |
|
./pkg/thsice/thsice_solve4temp.F |
11 |
THSICE_SOLVE4TEMP |
U flxSW, Tsf, qicen, |
|
./pkg/thsice/thsice_solve4temp.F |
162 |
THSICE_SOLVE4TEMP |
IF (dBug) WRITE(6,1010) 'ThSI_SOLVE4T: k, Ts, Tice=',0,Tsf,Tice |
|
./pkg/thsice/thsice_solve4temp.F |
194 |
THSICE_SOLVE4TEMP |
I iceornot, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
210 |
THSICE_SOLVE4TEMP |
b1 = b10 - k12*(flx0-df0dT*Tsf) / (k12-df0dT) |
|
./pkg/thsice/thsice_solve4temp.F |
212 |
THSICE_SOLVE4TEMP |
dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT) |
|
./pkg/thsice/thsice_solve4temp.F |
213 |
THSICE_SOLVE4TEMP |
Tsf = Tsf + dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
214 |
THSICE_SOLVE4TEMP |
if (Tsf .gt. 0. _d 0) then |
|
./pkg/thsice/thsice_solve4temp.F |
216 |
THSICE_SOLVE4TEMP |
& k,Tsf,Tice(1),dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
220 |
THSICE_SOLVE4TEMP |
Tsf = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
228 |
THSICE_SOLVE4TEMP |
I iceornot, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
238 |
THSICE_SOLVE4TEMP |
Tsf = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
249 |
THSICE_SOLVE4TEMP |
& k,Tsf,Tice(1),dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
256 |
THSICE_SOLVE4TEMP |
write (6,*) 'BB: thermw conv err: Tsf, flx0', Tsf,flx0 |
|
./pkg/thsice/thsice_solve4temp.F |
257 |
THSICE_SOLVE4TEMP |
if (Tsf.lt.-70. _d 0) stop !QQQQ fails |
|
./pkg/thsice/thsice_solve4temp.F |
277 |
THSICE_SOLVE4TEMP |
IF (dBug) WRITE(6,1010) 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf,Tice |
|
./pkg/thsice/thsice_solve4temp.F |
282 |
THSICE_SOLVE4TEMP |
fct = k12*(Tsf-Tice(1)) |
|
./pkg/thsice/thsice_solve4temp.F |
59 |
THSICE_SOLVE4TEMP |
_RL Tsf |
|
./pkg/thsice/thsice_calc_thickn.F |
12 |
THSICE_CALC_THICKN |
U compact, hi, hs, Tsf, qicen, qleft, |
|
./pkg/thsice/thsice_calc_thickn.F |
329 |
THSICE_CALC_THICKN |
Tsf=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
417 |
THSICE_CALC_THICKN |
Tsf=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
60 |
THSICE_CALC_THICKN |
_RL Tsf |
|
./pkg/thsice/thsice_impl_temp.F |
104 |
THSICE_IMPL_TEMP |
U flxSW, Tsf, qicen, |
|
./pkg/thsice/thsice_impl_temp.F |
111 |
THSICE_IMPL_TEMP |
Tsrf(i,j,bi,bj) =Tsf |
|
./pkg/thsice/thsice_impl_temp.F |
119 |
THSICE_IMPL_TEMP |
& Tsf, Tice, dTsurf(i,j) |
|
./pkg/thsice/thsice_impl_temp.F |
66 |
THSICE_IMPL_TEMP |
_RL hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr) |
|
./pkg/thsice/thsice_impl_temp.F |
93 |
THSICE_IMPL_TEMP |
Tsf = Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_impl_temp.F |
99 |
THSICE_IMPL_TEMP |
& iceMask(i,j,bi,bj), hIce, hSnow, Tsf |
|
./pkg/thsice/thsice_step_fwd.F |
120 |
THSICE_STEP_FWD |
Tsf = Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
126 |
THSICE_STEP_FWD |
& icFrac, hIce,hSnow,Tsf |
|
./pkg/thsice/thsice_step_fwd.F |
130 |
THSICE_STEP_FWD |
I hIce, hSnow, Tsf, snowAge(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
137 |
THSICE_STEP_FWD |
U flxSW(i,j), Tsf, qicen, |
|
./pkg/thsice/thsice_step_fwd.F |
148 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) =Tsf |
|
./pkg/thsice/thsice_step_fwd.F |
156 |
THSICE_STEP_FWD |
& Tsf, Tice, frzmltMxL |
|
./pkg/thsice/thsice_step_fwd.F |
211 |
THSICE_STEP_FWD |
Tsf = Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
219 |
THSICE_STEP_FWD |
U compact, hIce, hSnow, Tsf, qicen, flx2oc, |
|
./pkg/thsice/thsice_step_fwd.F |
259 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) =Tsf |
|
./pkg/thsice/thsice_step_fwd.F |
89 |
THSICE_STEP_FWD |
_RL compact, hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr) |
|
./pkg/thsice/thsice_get_bulkf.F |
10 |
THSICE_GET_BULKF |
I iceornot, Tsf, |
|
./pkg/thsice/thsice_get_bulkf.F |
44 |
THSICE_GET_BULKF |
_RL Tsf |
|
./pkg/thsice/thsice_get_bulkf.F |
69 |
THSICE_GET_BULKF |
I Tair(i,j,bi,bj), Qair(i,j,bi,bj), cloud(i,j,bi,bj), Tsf, |
|
./pkg/land/land_albedo.F |
56 |
LAND_ALBEDO |
_RL albSnow, ageSnow, hSnow, Tsf |
|
./pkg/land/land_albedo.F |
65 |
LAND_ALBEDO |
Tsf = land_skinT(i,j,bi,bj) |
|
./pkg/land/land_albedo.F |
76 |
LAND_ALBEDO |
& *MAX( 0. _d 0, 1. _d 0 + MIN(Tsf/10. _d 0, 0. _d 0) ) |