| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_bulkf.F |
15 |
THSICE_GET_BULKF |
I iceFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_get_bulkf.F |
54 |
THSICE_GET_BULKF |
LOGICAL iceFlag (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_bulkf.F |
86 |
THSICE_GET_BULKF |
IF ( iceFlag(i,j) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
15 |
THSICE_GET_EXF |
I iceFlag, hSnow, tsfCel, |
|
./pkg/thsice/thsice_get_exf.F |
218 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) .AND. iceFlag(i,j) ) WRITE(stdUnit, |
|
./pkg/thsice/thsice_get_exf.F |
224 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
273 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
305 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
402 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
429 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
462 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).LE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
62 |
THSICE_GET_EXF |
LOGICAL iceFlag (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
144 |
THSICE_SOLVE4TEMP |
LOGICAL iceFlag(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
237 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = .TRUE. |
|
./pkg/thsice/thsice_solve4temp.F |
318 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = .FALSE. |
|
./pkg/thsice/thsice_solve4temp.F |
357 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
365 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
406 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
414 |
THSICE_SOLVE4TEMP |
I iceFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_solve4temp.F |
422 |
THSICE_SOLVE4TEMP |
IF ( iceFlag(i,j) ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
443 |
THSICE_SOLVE4TEMP |
IF ( iceFlag(i,j) ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
481 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = ABS(dTsrf(i,j)).GE.Terrmax |
|
./pkg/thsice/thsice_solve4temp.F |
482 |
THSICE_SOLVE4TEMP |
iterate4Tsf = iterate4Tsf .OR. iceFlag(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
492 |
THSICE_SOLVE4TEMP |
IF ( useBlkFlx .AND. k.EQ.nitMaxTsf .AND. iceFlag(i,j) ) THEN |