/[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.5 by jmc, Fri Nov 4 01:34:35 2005 UTC revision 1.6 by jmc, Thu May 25 18:03:24 2006 UTC
# Line 48  c     set up ice arrays to zero if start Line 48  c     set up ice arrays to zero if start
48          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
49           DO bi = myBxLo(myThid), myBxHi(myThid)           DO bi = myBxLo(myThid), myBxHi(myThid)
50  C-        state variables :  C-        state variables :
51            DO j=1-Oly,sNy+Oly            DO j=1-OLy,sNy+OLy
52             DO i=1-Olx,sNx+Olx             DO i=1-OLx,sNx+OLx
53              iceMask(i,j,bi,bj)  = 0. _d 0              iceMask(i,j,bi,bj)  = 0. _d 0
54              iceHeight(i,j,bi,bj)= 0. _d 0              iceHeight(i,j,bi,bj)= 0. _d 0
55              snowHeight(i,j,bi,bj)=0. _d 0              snowHeight(i,j,bi,bj)=0. _d 0
# Line 62  C-        state variables : Line 62  C-        state variables :
62             ENDDO             ENDDO
63            ENDDO            ENDDO
64  C-        fluxes :  C-        fluxes :
65            DO j=1-Oly,sNy+Oly            DO j=1-OLy,sNy+OLy
66             DO i=1-Olx,sNx+Olx             DO i=1-OLx,sNx+OLx
67              sHeating(i,j,bi,bj) = 0. _d 0              sHeating(i,j,bi,bj) = 0. _d 0
68              flxCndBt(i,j,bi,bj) = 0. _d 0              flxCndBt(i,j,bi,bj) = 0. _d 0
69              snowPrc(i,j,bi,bj)  = 0. _d 0              snowPrc(i,j,bi,bj)  = 0. _d 0
# Line 71  C-        fluxes : Line 71  C-        fluxes :
71  #ifdef COUPLE_MODEL  #ifdef COUPLE_MODEL
72              dFdT(i,j,bi,bj)     = 0. _d 0              dFdT(i,j,bi,bj)     = 0. _d 0
73  #endif  #endif
74                icFlxSW (i,j,bi,bj) = 0. _d 0
75                icFlxAtm(i,j,bi,bj) = 0. _d 0
76                icFrwAtm(i,j,bi,bj) = 0. _d 0
77             ENDDO             ENDDO
78            ENDDO            ENDDO
79  C-        oceanic mixed layer state :  C-        oceanic mixed layer state :
80            v2Loc = vMxL_default*vMxL_default            v2Loc = vMxL_default*vMxL_default
81            DO j=1-Oly,sNy+Oly            DO j=1-OLy,sNy+OLy
82             DO i=1-Olx,sNx+Olx             DO i=1-OLx,sNx+OLx
83               hOceMxL(i,j,bi,bj) = hMxL_default               hOceMxL(i,j,bi,bj) = hMxL_default
84               tOceMxL(i,j,bi,bj) = 0. _d 0               tOceMxL(i,j,bi,bj) = 0. _d 0
85               sOceMxL(i,j,bi,bj) = sMxL_default               sOceMxL(i,j,bi,bj) = sMxL_default
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22