/[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.82 by jmc, Tue Nov 2 20:41:30 2004 UTC revision 1.83 by jmc, Fri Dec 3 15:39:11 2004 UTC
# Line 77  C     == Global variables === Line 77  C     == Global variables ===
77  #include "PARAMS.h"  #include "PARAMS.h"
78  #include "DYNVARS.h"  #include "DYNVARS.h"
79  #include "GRID.h"  #include "GRID.h"
80    #ifdef ALLOW_GENERIC_ADVDIFF
81  #include "GAD.h"  #include "GAD.h"
82    #endif
83  #ifdef ALLOW_OFFLINE  #ifdef ALLOW_OFFLINE
84  #include "OFFLINE.h"  #include "OFFLINE.h"
85  #endif  #endif
# Line 115  C     myThid - Thread number for this in Line 117  C     myThid - Thread number for this in
117        INTEGER myIter        INTEGER myIter
118        INTEGER myThid        INTEGER myThid
119    
120    #ifdef ALLOW_GENERIC_ADVDIFF
121  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
122  C     == Local variables  C     == Local variables
123  C     xA, yA                 - Per block temporaries holding face areas  C     xA, yA                 - Per block temporaries holding face areas
# Line 654  C--   end bi,bj loops. Line 657  C--   end bi,bj loops.
657       &    CALL DEBUG_LEAVE('THERMODYNAMICS',myThid)       &    CALL DEBUG_LEAVE('THERMODYNAMICS',myThid)
658  #endif  #endif
659    
660    #endif /* ALLOW_GENERIC_ADVDIFF */
661    
662        RETURN        RETURN
663        END        END
Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83
  ViewVC Help
Powered by ViewVC 1.1.22