| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
119 |
NO PROCEDURE |
_RL dhSnowLin |
|
./pkg/thsice/THSICE_PARAMS.h |
87 |
NO PROCEDURE |
& i0swFrac, ksolar, dhSnowLin, |
|
./pkg/thsice/thsice_readparms.F |
110 |
THSICE_READPARMS |
dhSnowLin= 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
280 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: dhSnowLin =',dhSnowLin |
|
./pkg/thsice/thsice_readparms.F |
56 |
THSICE_READPARMS |
& i0swFrac, ksolar, dhSnowLin, |
|
./pkg/thsice/thsice_solve4temp.F |
208 |
THSICE_SOLVE4TEMP |
IF ( dhSnowLin.GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
209 |
THSICE_SOLVE4TEMP |
recip_dhSnowLin = 1. _d 0 / dhSnowLin |
|
./pkg/thsice/thsice_solve4temp.F |
254 |
THSICE_SOLVE4TEMP |
IF ( hSnow(i,j) .GT. iceMask(i,j)*dhSnowLin ) THEN |