/[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.3 by jmc, Thu Apr 8 18:54:26 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 :
89  #ifdef ALLOW_TIMEAVE        IF ( fluidIsWater ) THEN
       IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) 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 119  C-- average of Ocean Mixed-Layer temp. & Line 117  C-- average of Ocean Mixed-Layer temp. &
117  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
118    
119        IF ( DIFFERENT_MULTIPLE(thSIce_diagFreq,myTime+deltaTClock,myTime)        IF ( DIFFERENT_MULTIPLE(thSIce_diagFreq,myTime+deltaTClock,myTime)
120       &     .AND. buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN       &     .AND. fluidIsWater ) THEN
121          wrtIter = myIter+1          wrtIter = myIter+1
122          CALL WRITE_LOCAL_RL('ice_flxAtm','I10',1,flxAtm,          CALL WRITE_LOCAL_RL('ice_flxAtm','I10',1,flxAtm,
123       &                      bi,bj,1,wrtIter,myThid)       &                      bi,bj,1,wrtIter,myThid)
# 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.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22