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

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

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

revision 1.13 by dimitri, Thu May 22 15:54:37 2008 UTC revision 1.14 by dimitri, Fri May 23 09:56:25 2008 UTC
# Line 145  C     default to <= 20 cm snow thickness Line 145  C     default to <= 20 cm snow thickness
145            DO bi = myBxLo(myThid), myBxHi(myThid)            DO bi = myBxLo(myThid), myBxHi(myThid)
146             DO j=1-OLy,sNy+OLy             DO j=1-OLy,sNy+OLy
147              DO i=1-OLx,sNx+OLx              DO i=1-OLx,sNx+OLx
148               snowHeight(i,j,bi,bj) = 0.2 _d 0               IF (iceMask(i,j,bi,bj) .NE. 0. _d 0)
149         &            snowHeight(i,j,bi,bj) = 0.2 _d 0
150              ENDDO              ENDDO
151             ENDDO             ENDDO
152            ENDDO            ENDDO
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22