100 |
|
|
101 |
CALL THSICE_SOLVE4TEMP( |
CALL THSICE_SOLVE4TEMP( |
102 |
I bi, bj, siLo, siHi, sjLo, sjHi, |
I bi, bj, siLo, siHi, sjLo, sjHi, |
103 |
I iMin,iMax, jMin,jMax, dBugFlag, .FALSE., |
I iMin,iMax, jMin,jMax, dBugFlag, .FALSE.,.FALSE., |
104 |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
105 |
I snowHeight(siLo,sjLo,bi,bj), tFrzOce, sFlx, |
I snowHeight(siLo,sjLo,bi,bj), tFrzOce, sFlx, |
106 |
U icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
U icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |