/[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.4 by jmc, Tue Oct 19 02:42:04 2004 UTC revision 1.5 by jmc, Tue Jan 4 00:25:31 2005 UTC
# Line 86  c      CALL TIMEAVE_CUMULATE(ice_snowPr_ Line 86  c      CALL TIMEAVE_CUMULATE(ice_snowPr_
86  c    &                       1, thSIce_deltaT, bi, bj, myThid )  c    &                       1, thSIce_deltaT, bi, bj, myThid )
87    
88  C-- average of atmospheric fluxes :  C-- average of atmospheric fluxes :
 #ifdef ALLOW_TIMEAVE  
89        IF ( fluidIsWater ) THEN        IF ( fluidIsWater ) THEN
90         CALL TIMEAVE_CUMUL_1T(ice_flxAtm_Ave, flxAtm,         CALL TIMEAVE_CUMUL_1T(ice_flxAtm_Ave, flxAtm,
91       &                       1, thSIce_deltaT, bi, bj, myThid )       &                       1, thSIce_deltaT, bi, bj, myThid )
92         CALL TIMEAVE_CUMUL_1T(ice_frwAtm_Ave, frwAtm,         CALL TIMEAVE_CUMUL_1T(ice_frwAtm_Ave, frwAtm,
93       &                       1, thSIce_deltaT, bi, bj, myThid )       &                       1, thSIce_deltaT, bi, bj, myThid )
94        ENDIF        ENDIF
 #endif /*ALLOW_TIMEAVE*/  
95    
96  C-- average of oceanic fluxes :  C-- average of oceanic fluxes :
97  #ifndef CHECK_ENERGY_CONSERV  #ifndef CHECK_ENERGY_CONSERV
# Line 127  C-- average of Ocean Mixed-Layer temp. & Line 125  C-- average of Ocean Mixed-Layer temp. &
125       &                      bi,bj,1,wrtIter,myThid)       &                      bi,bj,1,wrtIter,myThid)
126        ENDIF        ENDIF
127    
128          IF ( useDiagnostics ) THEN
129            CALL THSICE_DIAGNOSTICS_FILL(
130         I                   frwAtm, flxAtm,
131         I                   myTime, myIter, bi,bj, myThid )
132          ENDIF
133    
134  #endif  /* ALLOW_THSICE */  #endif  /* ALLOW_THSICE */
135    
136        RETURN        RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22