| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
109 |
NO PROCEDURE |
_RL tempSnowAlb |
|
./pkg/thsice/THSICE_PARAMS.h |
84 |
NO PROCEDURE |
& albColdSnow, albWarmSnow, tempSnowAlb, |
|
./pkg/thsice/thsice_albedo.F |
130 |
THSICE_ALBEDO |
IF ( tempSnowAlb.LT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_albedo.F |
133 |
THSICE_ALBEDO |
& *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlb, 1. _d 0) ) |
|
./pkg/thsice/thsice_readparms.F |
100 |
THSICE_READPARMS |
tempSnowAlb= -10. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
270 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: tempSnowAlb=',tempSnowAlb |
|
./pkg/thsice/thsice_readparms.F |
53 |
THSICE_READPARMS |
& albColdSnow, albWarmSnow, tempSnowAlb, |