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

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

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

revision 1.11 by mlosch, Mon Apr 16 22:43:01 2007 UTC revision 1.12 by jmc, Fri Apr 27 15:50:14 2007 UTC
# Line 625  C     convert snow to ice if submerged Line 625  C     convert snow to ice if submerged
625          ENDIF          ENDIF
626  #endif /* ALLOW_SEAICE_FLOODING */  #endif /* ALLOW_SEAICE_FLOODING */
627    
 #ifdef ATMOSPHERIC_LOADING  
628          IF ( useRealFreshWaterFlux ) THEN          IF ( useRealFreshWaterFlux ) THEN
629           DO J=1,sNy           DO J=1,sNy
630            DO I=1,sNx            DO I=1,sNx
# Line 634  C     convert snow to ice if submerged Line 633  C     convert snow to ice if submerged
633            ENDDO            ENDDO
634           ENDDO           ENDDO
635          ENDIF          ENDIF
 #endif  
636    
637         ENDDO         ENDDO
638        ENDDO        ENDDO
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22