| 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 |
263 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: kIce =',kIce |
|
./pkg/thsice/thsice_readparms.F |
51 |
THSICE_READPARMS |
& kIce, kSnow, |
|
./pkg/thsice/thsice_readparms.F |
93 |
THSICE_READPARMS |
kIce = 2.03 _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
275 |
THSICE_SOLVE4TEMP |
k12(i,j) = 4. _d 0*kIce*kSnow |
|
./pkg/thsice/thsice_solve4temp.F |
276 |
THSICE_SOLVE4TEMP |
& / (kSnow*hIce(i,j) + 4. _d 0*kIce*hSnow(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
277 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kIce / hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
525 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kIce / hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
538 |
THSICE_SOLVE4TEMP |
flxCnB(i,j) = 4. _d 0*kIce *(tIc2(i,j)-tFrz(i,j))/hIce(i,j) |