/[MITgcm]/MITgcm/pkg/thsice/thsice_ave.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_ave.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by jmc, Mon Aug 27 13:23:13 2007 UTC revision 1.12 by jmc, Thu Sep 3 20:49:25 2009 UTC
# Line 97  C-- average of atmospheric fluxes : Line 97  C-- average of atmospheric fluxes :
97    
98  C-- average of oceanic fluxes :  C-- average of oceanic fluxes :
99  #ifndef CHECK_ENERGY_CONSERV  #ifndef CHECK_ENERGY_CONSERV
100    #ifdef REAL4_IS_SLOW
101         CALL TIMEAVE_CUMULATE(ice_flx2oc_Ave, Qnet,         CALL TIMEAVE_CUMULATE(ice_flx2oc_Ave, Qnet,
102       &                       1, thSIce_deltaT, bi, bj, myThid )       &                       1, thSIce_deltaT, bi, bj, myThid )
103         CALL TIMEAVE_CUMULATE(ice_frw2oc_Ave, EmPmR,         CALL TIMEAVE_CUMULATE(ice_frw2oc_Ave, EmPmR,
104       &                       1, thSIce_deltaT, bi, bj, myThid )       &                       1, thSIce_deltaT, bi, bj, myThid )
105         CALL TIMEAVE_CUMULATE(ice_salFx_Ave, saltFlux,         CALL TIMEAVE_CUMULATE(ice_salFx_Ave, saltFlux,
106       &                       1, thSIce_deltaT, bi, bj, myThid )       &                       1, thSIce_deltaT, bi, bj, myThid )
107    #endif
108  #endif /* CHECK_ENERGY_CONSERV */  #endif /* CHECK_ENERGY_CONSERV */
109    
110  C-- average of Ocean Mixed-Layer temp. & salinity  C-- average of Ocean Mixed-Layer temp. & salinity
# Line 141  C-- Atmospheric fluxes : Line 143  C-- Atmospheric fluxes :
143    
144  C-- Oceanic fluxes :  C-- Oceanic fluxes :
145  c #ifndef CHECK_ENERGY_CONSERV  c #ifndef CHECK_ENERGY_CONSERV
146          CALL DIAGNOSTICS_FILL(Qnet,    'SIflx2oc',0,1,1,bi,bj,myThid)          CALL DIAGNOSTICS_FILL_RS(Qnet,    'SIflx2oc',0,1,1,bi,bj,myThid)
147          CALL DIAGNOSTICS_FILL(EmPmR,   'SIfrw2oc',0,1,1,bi,bj,myThid)          CALL DIAGNOSTICS_FILL_RS(EmPmR,   'SIfrw2oc',0,1,1,bi,bj,myThid)
148          CALL DIAGNOSTICS_FILL(saltFlux,'SIsaltFx',0,1,1,bi,bj,myThid)          CALL DIAGNOSTICS_FILL_RS(saltFlux,'SIsaltFx',0,1,1,bi,bj,myThid)
149  c #endif /* CHECK_ENERGY_CONSERV */  c #endif /* CHECK_ENERGY_CONSERV */
150    
151        ENDIF        ENDIF
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22