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

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

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

revision 1.102 by dimitri, Wed Apr 20 13:45:14 2011 UTC revision 1.103 by dimitri, Wed Apr 20 16:20:37 2011 UTC
# Line 323  C     ice-front ocean interface Line 323  C     ice-front ocean interface
323  #endif /* ALLOW_ICEFRONT */  #endif /* ALLOW_ICEFRONT */
324    
325  C--   Freeze water in the ocean interior and let it rise to the surface  C--   Freeze water in the ocean interior and let it rise to the surface
326    #ifndef ALLOW_AUTODIFF_TAMC
327    C     temporarily exclude from adjoint computations until
328    C     impact has been vetted in forward integrations
329        IF ( allowInteriorFreezing ) THEN        IF ( allowInteriorFreezing ) THEN
330          CALL FREEZE_INTERIOR(  myTime, myIter, myThid )          CALL FREEZE_INTERIOR(  myTime, myIter, myThid )
331        ENDIF        ENDIF
332    #endif
333    
334  C--   Freeze water at the surface  C--   Freeze water at the surface
335  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
Legend:
Removed from v.1.102  
changed lines
  Added in v.1.103
  ViewVC Help
Powered by ViewVC 1.1.22