| File |
Line number |
Procedure |
Code |
|
./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 iceFlag, 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 |
138 |
THSICE_GET_EXF |
_RL Tsf |
|
./pkg/thsice/thsice_get_exf.F |
231 |
THSICE_GET_EXF |
Tsf = tsfCel(i,j)+cen2kel |
|
./pkg/thsice/thsice_get_exf.F |
232 |
THSICE_GET_EXF |
Ts2 = Tsf*Tsf |
|
./pkg/thsice/thsice_get_exf.F |
241 |
THSICE_GET_EXF |
tmpbulk = qsat_fac*EXP(-qsat_exp/Tsf) |
|
./pkg/thsice/thsice_get_exf.F |
243 |
THSICE_GET_EXF |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/thsice/thsice_get_exf.F |
251 |
THSICE_GET_EXF |
dflwupdT = emiss*stefanBoltzmann*Ts2*Tsf * 4. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
153 |
THSICE_SOLVE4TEMP |
_RL Tsf (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
351 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
357 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
365 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
377 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = tSrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
406 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
414 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
452 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
456 |
THSICE_SOLVE4TEMP |
dTsrf(i,j) = (flxNet + k12(i,j)*(tIc1(i,j)-Tsf(i,j))) |
|
./pkg/thsice/thsice_solve4temp.F |
458 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = Tsf(i,j) + dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
459 |
THSICE_SOLVE4TEMP |
IF ( Tsf(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
462 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
468 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
491 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf(i,j),tIc1(i,j),dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
496 |
THSICE_SOLVE4TEMP |
& 'BB: not converge: Tsf, dTsf=', Tsf(i,j), dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
499 |
THSICE_SOLVE4TEMP |
IF ( Tsf(i,j).LT.-70. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
502 |
THSICE_SOLVE4TEMP |
& myIter, Tsf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
531 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
536 |
THSICE_SOLVE4TEMP |
tSrf(i,j) = Tsf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
537 |
THSICE_SOLVE4TEMP |
fct = k12(i,j)*(Tsf(i,j)-tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
580 |
THSICE_SOLVE4TEMP |
& Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf(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] |
|
./pkg/exf/exf_bulkformulae.F |
178 |
EXF_BULKFORMULAE |
_RL Tsf ! surface temperature [K] |
|
./pkg/exf/exf_bulkformulae.F |
282 |
EXF_BULKFORMULAE |
Tsf = theta(i,j,ksrf,bi,bj) + cen2kel |
|
./pkg/exf/exf_bulkformulae.F |
287 |
EXF_BULKFORMULAE |
Tsf = Tsf + MAX( SSTtmp, 0. _d 0 ) |
|
./pkg/exf/exf_bulkformulae.F |
290 |
EXF_BULKFORMULAE |
tmpbulk = cvapor_fac*exp(-cvapor_exp/Tsf) |
|
./pkg/exf/exf_bulkformulae.F |
292 |
EXF_BULKFORMULAE |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/exf/exf_radiation.F |
45 |
EXF_RADIATION |
_RL Tsf, SSTtmp, TsfSq |
|
./pkg/exf/exf_radiation.F |
68 |
EXF_RADIATION |
Tsf = theta(i,j,1,bi,bj) + cen2kel |
|
./pkg/exf/exf_radiation.F |
72 |
EXF_RADIATION |
Tsf = Tsf + MAX( SSTtmp, 0. _d 0 ) |
|
./pkg/exf/exf_radiation.F |
73 |
EXF_RADIATION |
TsfSq = Tsf*Tsf |