/[MITgcm]/MITgcm/pkg/seaice/seaice_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_init_fixed.F

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

revision 1.6 by jmc, Wed Jul 8 21:59:01 2009 UTC revision 1.7 by jmc, Sun Jan 3 00:21:40 2010 UTC
# Line 17  C     === Global variables === Line 17  C     === Global variables ===
17  #include "EEPARAMS.h"  #include "EEPARAMS.h"
18  #include "PARAMS.h"  #include "PARAMS.h"
19  #include "GRID.h"  #include "GRID.h"
20    #include "FFIELDS.h"
21    #include "SEAICE_PARAMS.h"
22  #include "SEAICE.h"  #include "SEAICE.h"
23  CML#include "SEAICE_GRID.h"  CML#include "SEAICE_GRID.h"
 #include "SEAICE_DIAGS.h"  
 #include "SEAICE_PARAMS.h"  
 #include "FFIELDS.h"  
24    
25  C     === Routine arguments ===  C     === Routine arguments ===
26  C     myThid - Thread no. that called this routine.  C     myThid - Thread no. that called this routine.
# Line 31  CEndOfInterface Line 30  CEndOfInterface
30  C     === Local variables ===  C     === Local variables ===
31  C     i,j,k,bi,bj - Loop counters  C     i,j,k,bi,bj - Loop counters
32    
33        INTEGER i, j, k, bi, bj        INTEGER i, j, bi, bj
34        INTEGER kSurface        INTEGER kSurface
35  #ifndef SEAICE_CGRID  #ifndef SEAICE_CGRID
36        _RS  mask_uice        _RS  mask_uice
# Line 198  C--   Choose a proxy level for geostroph Line 197  C--   Choose a proxy level for geostroph
197        ENDIF        ENDIF
198  #endif  #endif
199    
 #ifdef ALLOW_TIMEAVE  
 C     Initialize averages to zero  
       DO bj = myByLo(myThid), myByHi(myThid)  
        DO bi = myBxLo(myThid), myBxHi(myThid)  
         CALL TIMEAVE_RESET(FUtave   ,1,bi,bj,myThid)  
         CALL TIMEAVE_RESET(FVtave   ,1,bi,bj,myThid)  
         CALL TIMEAVE_RESET(EmPmRtave,1,bi,bj,myThid)  
         CALL TIMEAVE_RESET(QNETtave ,1,bi,bj,myThid)  
         CALL TIMEAVE_RESET(QSWtave  ,1,bi,bj,myThid)  
         CALL TIMEAVE_RESET(UICEtave ,1,bi,bj,myThid)  
         CALL TIMEAVE_RESET(VICEtave ,1,bi,bj,myThid)  
         CALL TIMEAVE_RESET(HEFFtave ,1,bi,bj,myThid)  
         CALL TIMEAVE_RESET(AREAtave ,1,bi,bj,myThid)  
         DO k=1,Nr  
          SEAICE_TimeAve(k,bi,bj)=ZERO  
         ENDDO  
        ENDDO  
       ENDDO  
 #endif /* ALLOW_TIMEAVE */  
   
200        RETURN        RETURN
201        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22