/[MITgcm]/MITgcm/pkg/seaice/seaice_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_init_varia.F

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

revision 1.24 by dimitri, Wed Dec 5 07:28:29 2007 UTC revision 1.25 by dimitri, Thu Jan 17 23:18:39 2008 UTC
# Line 104  C--   Initialise all variables in common Line 104  C--   Initialise all variables in common
104            UVM(i,j,bi,bj)    = 0. _d 0            UVM(i,j,bi,bj)    = 0. _d 0
105            WINDX(i,j,bi,bj)  = 0. _d 0            WINDX(i,j,bi,bj)  = 0. _d 0
106            WINDY(i,j,bi,bj)  = 0. _d 0            WINDY(i,j,bi,bj)  = 0. _d 0
107              GWATX(i,j,bi,bj)  = 0. _d 0
108              GWATY(i,j,bi,bj)  = 0. _d 0
109              KGEO(i,j,bi,bj)   = 0
110  #endif /* SEAICE_CGRID */  #endif /* SEAICE_CGRID */
111            DWATN(i,j,bi,bj)  = 0. _d 0            DWATN(i,j,bi,bj)  = 0. _d 0
112            PRESS0(i,j,bi,bj) = 0. _d 0            PRESS0(i,j,bi,bj) = 0. _d 0
# Line 120  C--   Initialise all variables in common Line 123  C--   Initialise all variables in common
123            RIVER(i,j,bi,bj)  = 0. _d 0            RIVER(i,j,bi,bj)  = 0. _d 0
124            TMIX(i,j,bi,bj)   = 0. _d 0            TMIX(i,j,bi,bj)   = 0. _d 0
125            TICE(i,j,bi,bj)   = 0. _d 0            TICE(i,j,bi,bj)   = 0. _d 0
           GWATX(i,j,bi,bj)  = 0. _d 0  
           GWATY(i,j,bi,bj)  = 0. _d 0  
126            TAUX(i,j,bi,bj)   = 0. _d 0            TAUX(i,j,bi,bj)   = 0. _d 0
127            TAUY(i,j,bi,bj)   = 0. _d 0            TAUY(i,j,bi,bj)   = 0. _d 0
           KGEO(i,j,bi,bj)   = 0  
128  #ifdef ALLOW_SEAICE_COST_EXPORT  #ifdef ALLOW_SEAICE_COST_EXPORT
129            uHeffExportCell(i,j,bi,bj) = 0. _d 0            uHeffExportCell(i,j,bi,bj) = 0. _d 0
130            vHeffExportCell(i,j,bi,bj) = 0. _d 0            vHeffExportCell(i,j,bi,bj) = 0. _d 0
# Line 243  C     set UV mask to zero except for Arc Line 243  C     set UV mask to zero except for Arc
243           ENDDO           ENDDO
244          ENDDO          ENDDO
245    
246    #ifndef SEAICE_CGRID
247  C--   Choose a proxy level for geostrophic velocity,  C--   Choose a proxy level for geostrophic velocity,
248          DO j=1-OLy,sNy+OLy          DO j=1-OLy,sNy+OLy
249           DO i=1-OLx,sNx+OLx           DO i=1-OLx,sNx+OLx
# Line 261  C--   Choose a proxy level for geostroph Line 262  C--   Choose a proxy level for geostroph
262  #endif /* SEAICE_TEST_ICE_STRESS_1 */  #endif /* SEAICE_TEST_ICE_STRESS_1 */
263           ENDDO           ENDDO
264          ENDDO          ENDDO
265    #endif /* SEAICE_CGRID */
266    
267         ENDDO         ENDDO
268        ENDDO        ENDDO
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22