/[MITgcm]/MITgcm_contrib/torge/itd/code/seaice_growth.F
ViewVC logotype

Diff of /MITgcm_contrib/torge/itd/code/seaice_growth.F

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

revision 1.10 by torge, Mon Oct 22 21:12:47 2012 UTC revision 1.11 by torge, Mon Oct 22 22:18:09 2012 UTC
# Line 750  C           if there's no ice, potential Line 750  C           if there's no ice, potential
750            ENDDO            ENDDO
751           ENDDO           ENDDO
752          ENDDO          ENDDO
753    #ifdef ALLOW_SITRACER
754  C prepare SItrHEFF to be computed as cumulative sum  C prepare SItrHEFF to be computed as cumulative sum
755          DO iTr=2,5          DO iTr=2,5
756           DO J=1,sNy           DO J=1,sNy
# Line 765  C prepare SItrAREA to be computed as cum Line 766  C prepare SItrAREA to be computed as cum
766           ENDDO           ENDDO
767          ENDDO          ENDDO
768  #endif  #endif
769    #endif /* SEAICE_ITD */
770    
771  C 4) treat sea ice salinity pathological cases  C 4) treat sea ice salinity pathological cases
772  #ifdef SEAICE_VARIABLE_SALINITY  #ifdef SEAICE_VARIABLE_SALINITY
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22