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

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

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

revision 1.5 by mlosch, Tue May 30 22:49:00 2006 UTC revision 1.6 by jmc, Fri Jun 2 02:01:02 2006 UTC
# Line 80  C     Solve for surface and ice temperat Line 80  C     Solve for surface and ice temperat
80  C-------  C-------
81        DO j = jMin, jMax        DO j = jMin, jMax
82         DO i = iMin, iMax         DO i = iMin, iMax
83            icFlxSW(i,j,bi,bj) = netSW(i,j)
84          IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN          IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
85            tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)            tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
           icFlxSW(i,j,bi,bj) = netSW(i,j)  
86  #ifdef ALLOW_DBUG_THSICE  #ifdef ALLOW_DBUG_THSICE
87            IF ( dBug(i,j,bi,bj) ) THEN            IF ( dBug(i,j,bi,bj) ) THEN
88             WRITE(6,'(A,2I4,2I2)') 'ThSI_IMPL_T: i,j=',i,j,bi,bj             WRITE(6,'(A,2I4,2I2)') 'ThSI_IMPL_T: i,j=',i,j,bi,bj
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22