/[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.87 by jmc, Thu Dec 16 23:20:06 2004 UTC revision 1.88 by dimitri, Fri Dec 17 19:17:56 2004 UTC
# Line 629  C--      Apply open boundary conditions Line 629  C--      Apply open boundary conditions
629  #endif /* ndef MINIMAL_TAVE_OUTPUT */  #endif /* ndef MINIMAL_TAVE_OUTPUT */
630  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
631    
632    #ifdef ALLOW_DIAGNOSTICS
633            IF ( usediagnostics ) CALL DIAGNOSTICS_FILL_SURF_FLUX(myThid)
634    #endif
635    
636  #endif /* SINGLE_LAYER_MODE */  #endif /* SINGLE_LAYER_MODE */
637    
638  C--   end bi,bj loops.  C--   end bi,bj loops.
Legend:
Removed from v.1.87  
changed lines
  Added in v.1.88
  ViewVC Help
Powered by ViewVC 1.1.22