/[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.23 by heimbach, Thu Mar 2 23:41:10 2006 UTC revision 1.24 by mlosch, Fri Mar 3 10:20:34 2006 UTC
# Line 367  C--     Calculate future values on open Line 367  C--     Calculate future values on open
367  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
368          IF ( fluidIsWater ) THEN          IF ( fluidIsWater ) THEN
369  #endif  #endif
370    #ifdef ALLOW_BALANCE_FLUXES
371    C     balance fluxes
372             IF ( balanceEmPmR )
373         &        CALL REMOVE_MEAN_RS( 1, EmPmR, maskH, maskH, rA, drF,
374         &        'EmPmR', myTime, myThid )
375             IF ( balanceQnet )
376         &        CALL REMOVE_MEAN_RS( 1, Qnet,  maskH, maskH, rA, drF,
377         &        'Qnet ', myTime, myThid )
378    #endif /* ALLOW_BALANCE_FLUXES */
379  C--     Determines forcing terms based on external fields  C--     Determines forcing terms based on external fields
380  C       relaxation terms, etc.  C       relaxation terms, etc.
381  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 503  C--   end bi,bj loops. Line 512  C--   end bi,bj loops.
512         ENDDO         ENDDO
513        ENDDO        ENDDO
514    
 #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 */  
   
515  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
516        IF ( fluidIsWater .AND. useDiagnostics ) THEN        IF ( fluidIsWater .AND. useDiagnostics ) THEN
517          CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid )          CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid )
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22