188 |
WRITE(6,'(A,2I4,2I2)') 'ThSI_FWD: i,j=',i,j,bi,bj |
WRITE(6,'(A,2I4,2I2)') 'ThSI_FWD: i,j=',i,j,bi,bj |
189 |
WRITE(6,1010) 'ThSI_FWD:-1- iceMask, hIc, hSn, Tsf =', |
WRITE(6,1010) 'ThSI_FWD:-1- iceMask, hIc, hSn, Tsf =', |
190 |
& compact, iceHeight(i,j,bi,bj), |
& compact, iceHeight(i,j,bi,bj), |
191 |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
192 |
WRITE(6,1010) 'ThSI_FWD: ocTs, TFrzOce, frzmltMxL =', |
WRITE(6,1010) 'ThSI_FWD: ocTs,TFrzOce,frzmltMxL,Qnet=', |
193 |
& oceTs, TFrzOce, frzmltMxL |
& oceTs, TFrzOce, frzmltMxL,Qnet(i,j,bi,bj) |
194 |
ENDIF |
ENDIF |
195 |
C------- |
C------- |
196 |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |