/[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.4 by jmc, Tue Oct 19 02:42:04 2004 UTC
# Line 87  c    &                       1, thSIce_d Line 87  c    &                       1, thSIce_d
87    
88  C-- average of atmospheric fluxes :  C-- average of atmospheric fluxes :
89  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
90        IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN        IF ( fluidIsWater ) THEN
91         CALL TIMEAVE_CUMUL_1T(ice_flxAtm_Ave, flxAtm,         CALL TIMEAVE_CUMUL_1T(ice_flxAtm_Ave, flxAtm,
92       &                       1, thSIce_deltaT, bi, bj, myThid )       &                       1, thSIce_deltaT, bi, bj, myThid )
93         CALL TIMEAVE_CUMUL_1T(ice_frwAtm_Ave, frwAtm,         CALL TIMEAVE_CUMUL_1T(ice_frwAtm_Ave, frwAtm,
# Line 119  C-- average of Ocean Mixed-Layer temp. & Line 119  C-- average of Ocean Mixed-Layer temp. &
119  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
120    
121        IF ( DIFFERENT_MULTIPLE(thSIce_diagFreq,myTime+deltaTClock,myTime)        IF ( DIFFERENT_MULTIPLE(thSIce_diagFreq,myTime+deltaTClock,myTime)
122       &     .AND. buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN       &     .AND. fluidIsWater ) THEN
123          wrtIter = myIter+1          wrtIter = myIter+1
124          CALL WRITE_LOCAL_RL('ice_flxAtm','I10',1,flxAtm,          CALL WRITE_LOCAL_RL('ice_flxAtm','I10',1,flxAtm,
125       &                      bi,bj,1,wrtIter,myThid)       &                      bi,bj,1,wrtIter,myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22