/[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.69 by gforget, Fri Feb 3 13:34:31 2012 UTC revision 1.70 by gforget, Mon Mar 5 15:21:44 2012 UTC
# Line 45  C     i,j,k,bi,bj :: Loop counters Line 45  C     i,j,k,bi,bj :: Loop counters
45  #ifdef SEAICE_CGRID  #ifdef SEAICE_CGRID
46        _RS  mask_uice        _RS  mask_uice
47  #endif  #endif
 #ifdef SEAICE_MULTICATEGORY  
48        INTEGER k        INTEGER k
 #endif  
49  #ifdef ALLOW_SITRACER  #ifdef ALLOW_SITRACER
50        INTEGER iTr, jTh        INTEGER iTr, jTh
51  #endif  #endif
# Line 81  C Line 79  C
79            areaNm1(i,j,bi,bj)=0. _d 0            areaNm1(i,j,bi,bj)=0. _d 0
80            hEffNm1(i,j,bi,bj)=0. _d 0            hEffNm1(i,j,bi,bj)=0. _d 0
81  #endif  #endif
          ENDDO  
         ENDDO  
 #ifdef SEAICE_MULTICATEGORY  
         DO k=1,MULTDIM  
          DO j=1-OLy,sNy+OLy  
           DO i=1-OLx,sNx+OLx  
            TICES(i,j,k,bi,bj)=0. _d 0  
           ENDDO  
          ENDDO  
         ENDDO  
 #endif  
         DO j=1-OLy,sNy+OLy  
          DO i=1-OLx,sNx+OLx  
82            ETA (i,j,bi,bj)   = 0. _d 0            ETA (i,j,bi,bj)   = 0. _d 0
83            ZETA(i,j,bi,bj)   = 0. _d 0            ZETA(i,j,bi,bj)   = 0. _d 0
84            DRAGS(i,j,bi,bj)  = 0. _d 0            DRAGS(i,j,bi,bj)  = 0. _d 0
# Line 146  c "ice concentration" tracer that should Line 131  c "ice concentration" tracer that should
131            ENDDO            ENDDO
132  #endif  #endif
133            TICE(i,j,bi,bj)   = 0. _d 0            TICE(i,j,bi,bj)   = 0. _d 0
134              DO k=1,MULTDIM
135                TICES(i,j,k,bi,bj)=0. _d 0
136              ENDDO
137            TAUX(i,j,bi,bj)   = 0. _d 0            TAUX(i,j,bi,bj)   = 0. _d 0
138            TAUY(i,j,bi,bj)   = 0. _d 0            TAUY(i,j,bi,bj)   = 0. _d 0
139  #ifdef ALLOW_SEAICE_COST_EXPORT  #ifdef ALLOW_SEAICE_COST_EXPORT
# Line 229  C Western boundary Line 217  C Western boundary
217          DO j=1-OLy,sNy+OLy          DO j=1-OLy,sNy+OLy
218           DO i=1-OLx,sNx+OLx           DO i=1-OLx,sNx+OLx
219            TICE(i,j,bi,bj)=273.0 _d 0            TICE(i,j,bi,bj)=273.0 _d 0
 #ifdef SEAICE_MULTICATEGORY  
220            DO k=1,MULTDIM            DO k=1,MULTDIM
221             TICES(i,j,k,bi,bj)=273.0 _d 0             TICES(i,j,k,bi,bj)=273.0 _d 0
222            ENDDO            ENDDO
 #endif /* SEAICE_MULTICATEGORY */  
223  #ifndef SEAICE_CGRID  #ifndef SEAICE_CGRID
224            AMASS      (i,j,bi,bj)=1000.0 _d 0            AMASS      (i,j,bi,bj)=1000.0 _d 0
225  #else  #else
Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70
  ViewVC Help
Powered by ViewVC 1.1.22