| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
182 |
EXF_BULKFORMULAE |
_RL Tsf ! surface temperature [K] |
|
./pkg/exf/exf_bulkformulae.F |
290 |
EXF_BULKFORMULAE |
Tsf = theta(i,j,ksrf,bi,bj) + cen2kel |
|
./pkg/exf/exf_bulkformulae.F |
295 |
EXF_BULKFORMULAE |
Tsf = Tsf + MAX( SSTtmp, 0. _d 0 ) |
|
./pkg/exf/exf_bulkformulae.F |
298 |
EXF_BULKFORMULAE |
tmpbulk = cvapor_fac*exp(-cvapor_exp/Tsf) |
|
./pkg/exf/exf_bulkformulae.F |
307 |
EXF_BULKFORMULAE |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/exf/exf_radiation.F |
51 |
EXF_RADIATION |
_RL Tsf, SSTtmp, TsfSq |
|
./pkg/exf/exf_radiation.F |
75 |
EXF_RADIATION |
Tsf = theta(i,j,ks,bi,bj) + cen2kel |
|
./pkg/exf/exf_radiation.F |
79 |
EXF_RADIATION |
Tsf = Tsf + MAX( SSTtmp, 0. _d 0 ) |
|
./pkg/exf/exf_radiation.F |
80 |
EXF_RADIATION |
TsfSq = Tsf*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 |
77 |
LAND_ALBEDO |
& *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlbL, 1. _d 0) ) |
|
./pkg/thsice/thsice_albedo.F |
108 |
THSICE_ALBEDO |
Tsf = tSrf(i,j) |
|
./pkg/thsice/thsice_albedo.F |
133 |
THSICE_ALBEDO |
& *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlb, 1. _d 0) ) |
|
./pkg/thsice/thsice_albedo.F |
147 |
THSICE_ALBEDO |
& + 0.075 _d 0 * MIN( -Tsf - 1. _d 0, 0. _d 0 ) |
|
./pkg/thsice/thsice_albedo.F |
151 |
THSICE_ALBEDO |
& + 0.15 _d 0 *MIN( -Tsf - 1. _d 0, 0. _d 0) ) |
|
./pkg/thsice/thsice_albedo.F |
71 |
THSICE_ALBEDO |
_RL Tsf ! surface temperature |
|
./pkg/thsice/thsice_get_bulkf.F |
126 |
THSICE_GET_BULKF |
I cloud(i,j,bi,bj), Tsf(i,j), |
|
./pkg/thsice/thsice_get_bulkf.F |
133 |
THSICE_GET_BULKF |
I Tair(i,j,bi,bj), Qair(i,j,bi,bj), Tsf(i,j), |
|
./pkg/thsice/thsice_get_bulkf.F |
15 |
THSICE_GET_BULKF |
I icFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_get_bulkf.F |
56 |
THSICE_GET_BULKF |
_RL Tsf (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_bulkf.F |
98 |
THSICE_GET_BULKF |
Tsurf(1) = Tsf(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
146 |
THSICE_GET_EXF |
_RL Tsf |
|
./pkg/thsice/thsice_get_exf.F |
238 |
THSICE_GET_EXF |
Tsf = tsfCel(i,j)+cen2kel |
|
./pkg/thsice/thsice_get_exf.F |
239 |
THSICE_GET_EXF |
Ts2 = Tsf*Tsf |
|
./pkg/thsice/thsice_get_exf.F |
248 |
THSICE_GET_EXF |
tmpbulk = qsat_fac*EXP(-qsat_exp/Tsf) |
|
./pkg/thsice/thsice_get_exf.F |
257 |
THSICE_GET_EXF |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/thsice/thsice_get_exf.F |
265 |
THSICE_GET_EXF |
dflwupdT = emiss*stefanBoltzmann*Ts2*Tsf * 4. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
165 |
THSICE_SOLVE4TEMP |
_RL Tsf (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
222 |
THSICE_SOLVE4TEMP |
Tsf (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
371 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
380 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow1, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
388 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow1, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
402 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = tSrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
442 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow1, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
450 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow1, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
490 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
494 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = (flxNet + k12(i,j)*(tIc1(i,j)-Tsf(i,j))) |
|
./pkg/thsice/thsice_solve4temp.F |
496 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = Tsf(i,j) + dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
498 |
THSICE_SOLVE4TEMP |
IF ( Tsf(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
501 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
507 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
538 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
544 |
THSICE_SOLVE4TEMP |
& 'BB: not converge: Tsf, dTsf=', Tsf(i,j), dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
547 |
THSICE_SOLVE4TEMP |
IF ( Tsf(i,j).LT.-70. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
550 |
THSICE_SOLVE4TEMP |
& myIter, Tsf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
581 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
586 |
THSICE_SOLVE4TEMP |
tSrf1(i,j) = Tsf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
587 |
THSICE_SOLVE4TEMP |
fct = k12(i,j)*(Tsf(i,j)-tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
634 |
THSICE_SOLVE4TEMP |
& Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf1(i,j) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
138 |
BULKF_FORMULA_LANL |
Tsf=Tsf_in+Tf0kel |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
151 |
BULKF_FORMULA_LANL |
ssq = ssq0*exp( lath*(ssq1-ssq2/Tsf) ) / p0 |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
218 |
BULKF_FORMULA_LANL |
dEvdT = clha*ssq*ssq2/(Tsf*Tsf) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
145 |
BULKF_FORMULA_LAY |
Tsf = tsfCel+Tf0kel |
|
./pkg/bulk_force/bulkf_formula_lay.F |
146 |
BULKF_FORMULA_LAY |
Ts2 = Tsf*Tsf |
|
./pkg/bulk_force/bulkf_formula_lay.F |
158 |
BULKF_FORMULA_LAY |
ssq = saltQsFac*qs1w*EXP( -qs2w/Tsf ) / rhoA |
|
./pkg/bulk_force/bulkf_formula_lay.F |
162 |
BULKF_FORMULA_LAY |
ssq = qs1i*EXP( -qs2i/Tsf ) / rhoA |
|
./pkg/bulk_force/bulkf_formula_lay.F |
168 |
BULKF_FORMULA_LAY |
delth = Ta + gamma_blk*zth - Tsf |
|
./pkg/bulk_force/bulkf_formula_lay.F |
247 |
BULKF_FORMULA_LAY |
dflwupdT= ocean_emissivity*stefan*Ts2*Tsf*4. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
250 |
BULKF_FORMULA_LAY |
dflwupdT = snow_emissivity*stefan*Ts2*Tsf*4. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
253 |
BULKF_FORMULA_LAY |
dflwupdT = ice_emissivity*stefan*Ts2*Tsf*4. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
78 |
BULKF_FORMULA_LAY |
_RL Tsf ! surface temperature [K] |