/[MITgcm]/MITgcm/pkg/thsice/thsice_step_fwd.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_step_fwd.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by jmc, Mon Jul 12 20:20:03 2004 UTC revision 1.7 by jmc, Thu Jul 22 22:52:59 2004 UTC
# Line 188  C------- Line 188  C-------
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
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22