/[MITgcm]/MITgcm/model/src/thermodynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/thermodynamics.F

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

revision 1.28 by jmc, Wed Oct 9 00:57:57 2002 UTC revision 1.29 by heimbach, Tue Nov 12 20:45:41 2002 UTC
# Line 614  C--      Apply open boundary conditions Line 614  C--      Apply open boundary conditions
614  #endif   /* ALLOW_OBCS */  #endif   /* ALLOW_OBCS */
615    
616  C--      Freeze water  C--      Freeze water
617           IF (allowFreezing) THEN           IF ( allowFreezing .AND. .NOT. useSEAICE ) THEN
618  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
619  CADJ STORE gT(:,:,k,bi,bj) = comlev1_bibj_k  CADJ STORE gT(:,:,k,bi,bj) = comlev1_bibj_k
620  CADJ &   , key = kkey, byte = isbyte  CADJ &   , key = kkey, byte = isbyte
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22