| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
102 |
NO PROCEDURE |
_RL kIce |
|
./pkg/thsice/THSICE_PARAMS.h |
82 |
NO PROCEDURE |
& kIce, kSnow, |
|
./pkg/thsice/thsice_readparms.F |
114 |
THSICE_READPARMS |
kIce = 2.03 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
298 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'kIce =', kIce |
|
./pkg/thsice/thsice_readparms.F |
54 |
THSICE_READPARMS |
& kIce, kSnow, |
|
./pkg/thsice/thsice_solve4temp.F |
294 |
THSICE_SOLVE4TEMP |
k12(i,j) = 4. _d 0*kIce*kSnow |
|
./pkg/thsice/thsice_solve4temp.F |
295 |
THSICE_SOLVE4TEMP |
& / (kSnow*hIce(i,j) + 4. _d 0*kIce*hSnow1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
296 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kIce / hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
575 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kIce / hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
588 |
THSICE_SOLVE4TEMP |
flxCnB(i,j) = 4. _d 0*kIce *(tIc2(i,j)-tFrz(i,j))/hIce(i,j) |