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

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

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

revision 1.38 by heimbach, Mon Mar 29 12:35:54 2010 UTC revision 1.39 by jmc, Sun Jun 27 20:14:21 2010 UTC
# Line 390  C     somewhere after doing the advectio Line 390  C     somewhere after doing the advectio
390           ENDDO           ENDDO
391          ENDDO          ENDDO
392         ENDDO         ENDDO
 #ifdef SEAICE_AGE  
 C     Sources and sinks for sea ice age (otherwise added in seaice_growth)  
        IF ( .TRUE. ) THEN  
         DO bj=myByLo(myThid),myByHi(myThid)  
          DO bi=myBxLo(myThid),myBxHi(myThid)  
           DO J=1,sNy  
            DO I=1,sNx  
             IF ( AREA(I,J,bi,bj) .GT. 0.15 ) THEN  
              IceAge(i,j,bi,bj) = IceAge(i,j,bi,bj) +  
      &            AREA(I,J,bi,bj) * SEAICE_deltaTtherm  
             ELSE  
              IceAge(i,j,bi,bj) = ZERO  
             ENDIF  
            ENDDO  
           ENDDO  
          ENDDO  
         ENDDO  
        ENDIF  
393  #endif /* SEAICE_AGE */  #endif /* SEAICE_AGE */
394        ENDIF        ENDIF
395    
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22