/[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.24 by mlosch, Fri Mar 3 10:20:34 2006 UTC revision 1.25 by jmc, Fri Mar 3 20:15:29 2006 UTC
# Line 166  C jmc: do not know precisely where to pu Line 166  C jmc: do not know precisely where to pu
166  # endif  # endif
167  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
168    
169    #ifdef ALLOW_BALANCE_FLUXES
170    C     balance fluxes
171           IF ( balanceEmPmR )
172         &        CALL REMOVE_MEAN_RS( 1, EmPmR, maskH, maskH, rA, drF,
173         &        'EmPmR', myTime, myThid )
174           IF ( balanceQnet )
175         &        CALL REMOVE_MEAN_RS( 1, Qnet,  maskH, maskH, rA, drF,
176         &        'Qnet ', myTime, myThid )
177    #endif /* ALLOW_BALANCE_FLUXES */
178    
179  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
180  C--   HPF directive to help TAMC  C--   HPF directive to help TAMC
181  CHPF$ INDEPENDENT  CHPF$ INDEPENDENT
# Line 367  C--     Calculate future values on open Line 377  C--     Calculate future values on open
377  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
378          IF ( fluidIsWater ) THEN          IF ( fluidIsWater ) THEN
379  #endif  #endif
 #ifdef ALLOW_BALANCE_FLUXES  
 C     balance fluxes  
          IF ( balanceEmPmR )  
      &        CALL REMOVE_MEAN_RS( 1, EmPmR, maskH, maskH, rA, drF,  
      &        'EmPmR', myTime, myThid )  
          IF ( balanceQnet )  
      &        CALL REMOVE_MEAN_RS( 1, Qnet,  maskH, maskH, rA, drF,  
      &        'Qnet ', myTime, myThid )  
 #endif /* ALLOW_BALANCE_FLUXES */  
380  C--     Determines forcing terms based on external fields  C--     Determines forcing terms based on external fields
381  C       relaxation terms, etc.  C       relaxation terms, etc.
382  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22