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

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

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

revision 1.10 by edhill, Thu Oct 9 04:19:20 2003 UTC revision 1.11 by dimitri, Thu Oct 23 07:14:49 2003 UTC
# Line 21  C     === Global variables === Line 21  C     === Global variables ===
21  #include "SEAICE_GRID.h"  #include "SEAICE_GRID.h"
22  #include "SEAICE_DIAGS.h"  #include "SEAICE_DIAGS.h"
23  #include "SEAICE_PARAMS.h"  #include "SEAICE_PARAMS.h"
 #include "SEAICE_EXTERNAL.h"  
24    
25  #ifdef ALLOW_COST  #ifdef ALLOW_COST
26  # include "cost.h"  # include "cost.h"
# Line 225  C---  Complete initialization Line 224  C---  Complete initialization
224           DO i=1-OLx,sNx+OLx           DO i=1-OLx,sNx+OLx
225            ZETA(I,J,bi,bj)=HEFF(I,J,1,bi,bj)*(1.0 _d 11)            ZETA(I,J,bi,bj)=HEFF(I,J,1,bi,bj)*(1.0 _d 11)
226            ETA(I,J,bi,bj)=ZETA(I,J,bi,bj)/4.0 _d 0            ETA(I,J,bi,bj)=ZETA(I,J,bi,bj)/4.0 _d 0
           surfaceTendencyTice(i,j,bi,bj) = ZERO  
227           ENDDO           ENDDO
228          ENDDO          ENDDO
229         ENDDO         ENDDO
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22