/[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.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 503  C--   end bi,bj loops. Line 513  C--   end bi,bj loops.
513         ENDDO         ENDDO
514        ENDDO        ENDDO
515    
 #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 */  
   
516  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
517        IF ( fluidIsWater .AND. useDiagnostics ) THEN        IF ( fluidIsWater .AND. useDiagnostics ) THEN
518          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.25
  ViewVC Help
Powered by ViewVC 1.1.22