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

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

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

revision 1.12 by dimitri, Mon Dec 27 20:34:11 2004 UTC revision 1.13 by dimitri, Thu Nov 16 03:25:11 2006 UTC
# Line 81  cph) Line 81  cph)
81  C DETERMINE AMOUNT OF OPEN WATER AND ICE THICKNESS  C DETERMINE AMOUNT OF OPEN WATER AND ICE THICKNESS
82          DO J=1,sNy          DO J=1,sNy
83           DO I=1,sNx           DO I=1,sNx
84            AREA(I,J,2,bi,bj)=MAX(A22,AREA(I,J,2,bi,bj))            AREA(I,J,3,bi,bj)=MAX(A22,AREA(I,J,2,bi,bj))
85            FHEFF(I,J,bi,bj)=0.0 _d 0            FHEFF(I,J,bi,bj)=0.0 _d 0
86  #ifdef SEAICE_MULTILEVEL  #ifdef SEAICE_MULTILEVEL
87            FICEP(I,J)=0.0 _d 0            FICEP(I,J)=0.0 _d 0
# Line 94  CADJ &                         key = iic Line 94  CADJ &                         key = iic
94  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
95          DO J=1,sNy          DO J=1,sNy
96           DO I=1,sNx           DO I=1,sNx
97            HICE(I,J)=HEFF(I,J,2,bi,bj)/AREA(I,J,2,bi,bj)            HICE(I,J)=HEFF(I,J,2,bi,bj)/AREA(I,J,3,bi,bj)
98           ENDDO           ENDDO
99          ENDDO          ENDDO
100    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22