| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
133 |
THSICE_SOLVE4TEMP |
_RL dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
309 |
THSICE_SOLVE4TEMP |
dTsf = Terrmax |
|
./pkg/thsice/thsice_solve4temp.F |
324 |
THSICE_SOLVE4TEMP |
IF ( ABS(dTsf).GE.Terrmax ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
370 |
THSICE_SOLVE4TEMP |
dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT) |
|
./pkg/thsice/thsice_solve4temp.F |
371 |
THSICE_SOLVE4TEMP |
Tsf = Tsf + dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
375 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf,Tice(1),dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
399 |
THSICE_SOLVE4TEMP |
dTsf = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
402 |
THSICE_SOLVE4TEMP |
dTsf = 1000. |
|
./pkg/thsice/thsice_solve4temp.F |
417 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf,Tice(1),dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
420 |
THSICE_SOLVE4TEMP |
& .AND. ABS(dTsf).GE.Terrmax ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
424 |
THSICE_SOLVE4TEMP |
WRITE (6,*) 'BB: not converge: Tsf, dTsf=', Tsf,dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
451 |
THSICE_SOLVE4TEMP |
flx0 = flx0 + df0dT*dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
454 |
THSICE_SOLVE4TEMP |
evpAtm(i,j) = evap + dEvdT*dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
462 |
THSICE_SOLVE4TEMP |
& + df0dT*dTsf + evpAtm(i,j)*Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
501 |
THSICE_SOLVE4TEMP |
IF ( .NOT.useBlkFlx ) dTsrf(i,j) = dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
509 |
THSICE_SOLVE4TEMP |
& Tsf, Tice, dTsf |