| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
123 |
NO PROCEDURE |
_RL Tf0kel |
|
./pkg/thsice/THSICE_PARAMS.h |
89 |
NO PROCEDURE |
& Tf0kel, Tmlt1, Terrmax, |
|
./pkg/thsice/thsice_get_precip.F |
107 |
THSICE_GET_PRECIP |
& ( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn ) |
|
./pkg/thsice/thsice_get_precip.F |
91 |
THSICE_GET_PRECIP |
& .AND. Tair(i,j,bi,bj).LE.Tf0kel ) THEN |
|
./pkg/thsice/thsice_readparms.F |
135 |
THSICE_READPARMS |
Tf0kel = celsius2K |
|
./pkg/thsice/thsice_readparms.F |
319 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'Tf0kel =', Tf0kel |
|
./pkg/thsice/thsice_readparms.F |
61 |
THSICE_READPARMS |
& Tf0kel, Terrmax, nitMaxTsf, |
|
./pkg/bulk_force/BULKF_PARAMS.h |
66 |
NO PROCEDURE |
_RL Tf0kel |
|
./pkg/bulk_force/BULKF_PARAMS.h |
90 |
NO PROCEDURE |
& Tf0kel, Rgas, |
|
./pkg/bulk_force/bulkf_forcing.F |
234 |
BULKF_FORCING |
IF ( Tair(i,j,bi,bj).LE.Tf0kel ) THEN |
|
./pkg/bulk_force/bulkf_forcing.F |
241 |
BULKF_FORCING |
& *( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn ) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
138 |
BULKF_FORMULA_LANL |
Tsf=Tsf_in+Tf0kel |
|
./pkg/bulk_force/bulkf_formula_lay.F |
145 |
BULKF_FORMULA_LAY |
Tsf = tsfCel+Tf0kel |
|
./pkg/bulk_force/bulkf_readparms.F |
221 |
BULKF_READPARMS |
WRITE(iUnit,*) 'BlkF: Tf0kel =',Tf0kel |
|
./pkg/bulk_force/bulkf_readparms.F |
39 |
BULKF_READPARMS |
& Tf0kel, Rgas, xkar, stefan, |
|
./pkg/bulk_force/bulkf_readparms.F |
95 |
BULKF_READPARMS |
Tf0kel = celsius2K |