/[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.11 by heimbach, Thu Nov 6 22:13:00 2003 UTC revision 1.13 by dimitri, Thu Nov 16 03:25:11 2006 UTC
# Line 36  C     myThid - Thread no. that called th Line 36  C     myThid - Thread no. that called th
36        _RL A22        _RL A22
37        INTEGER myThid        INTEGER myThid
38  CEndOfInterface  CEndOfInterface
   
 #ifdef ALLOW_SEAICE  
39    
40  C     === Local variables ===  C     === Local variables ===
41  C     i,j,bi,bj - Loop counters  C     i,j,bi,bj - Loop counters
# Line 83  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 96  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    
# Line 181  CADJ &                           key = i Line 179  CADJ &                           key = i
179         ENDDO         ENDDO
180        ENDDO        ENDDO
181    
 #endif /* ALLOW_SEAICE */  
   
182        RETURN        RETURN
183        END        END
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22