/[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.21 by mlosch, Tue Feb 7 11:47:49 2006 UTC revision 1.22 by mlosch, Fri Feb 10 07:56:20 2006 UTC
# Line 38  C     == Global variables === Line 38  C     == Global variables ===
38  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
39  #include "TIMEAVE_STATV.h"  #include "TIMEAVE_STATV.h"
40  #endif  #endif
41    #if defined (ALLOW_BALANCE_FLUXES) && !(defined ALLOW_AUTODIFF_TAMC)
42    #include "FFIELDS.h"
43    #endif
44    
45  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
46  # include "tamc.h"  # include "tamc.h"
# Line 498  C--   end bi,bj loops. Line 501  C--   end bi,bj loops.
501         ENDDO         ENDDO
502        ENDDO        ENDDO
503    
504    #ifdef ALLOW_BALANCE_FLUXES
505    C     balance fluxes
506          if ( balanceEmPmR )
507         &     CALL REMOVE_MEAN_RS( 1, EmPmR, maskH, maskH, rA, drF,
508         &                'EmPmR', myTime, myThid )
509          if ( balanceQnet )
510         &     CALL REMOVE_MEAN_RS( 1, Qnet,  maskH, maskH, rA, drF,
511         &                'Qnet ', myTime, myThid )
512    #endif /* ALLOW_BALANCE_FLUXES */
513    
514  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
515        IF ( fluidIsWater .AND. useDiagnostics ) THEN        IF ( fluidIsWater .AND. useDiagnostics ) THEN
516          CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid )          CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid )
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22