/[MITgcm]/MITgcm/pkg/aim_v23/aim_initialise.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_initialise.F

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

revision 1.2 by jmc, Tue Dec 10 02:35:27 2002 UTC revision 1.3 by jmc, Fri Jan 3 03:51:27 2003 UTC
# Line 54  C--  Set default value for AIM interface Line 54  C--  Set default value for AIM interface
54        aim_oiceFile = ' '        aim_oiceFile = ' '
55        aim_snowFile = ' '        aim_snowFile = ' '
56        aim_swcFile  = ' '        aim_swcFile  = ' '
57          aim_taveFreq = taveFreq
58        aim_diagFreq = dumpFreq        aim_diagFreq = dumpFreq
59        aim_tendFreq = 0.        aim_tendFreq = 0.
60                
# Line 122  c       ENDDO Line 123  c       ENDDO
123  c      ENDDO  c      ENDDO
124  c     ENDDO  c     ENDDO
125    
126  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_AIM_TAVE
127  C     Initialise diagnostic counters (these are cleared on model start  C     Initialise diagnostic counters (these are cleared on model start
128  C      i.e. not loaded from history file for now ).  C      i.e. not loaded from history file for now ).
129        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
# Line 135  C      i.e. not loaded from history file Line 136  C      i.e. not loaded from history file
136          CALL TIMEAVE_RESET(SLRtave, 1, bi, bj, myThid)          CALL TIMEAVE_RESET(SLRtave, 1, bi, bj, myThid)
137          CALL TIMEAVE_RESET(SHFtave, 1, bi, bj, myThid)          CALL TIMEAVE_RESET(SHFtave, 1, bi, bj, myThid)
138          CALL TIMEAVE_RESET(EVAPtave, 1, bi, bj, myThid)          CALL TIMEAVE_RESET(EVAPtave, 1, bi, bj, myThid)
139          CALL TIMEAVE_RESET(PRECNVtave, 1, bi, bj, myThid)          CALL TIMEAVE_RESET(PRECNVtave,1, bi, bj, myThid)
140          CALL TIMEAVE_RESET(PRECLStave, 1, bi, bj, myThid)          CALL TIMEAVE_RESET(PRECLStave,1, bi, bj, myThid)
141          CALL TIMEAVE_RESET(CLOUDCtave, 1, bi, bj, myThid)          CALL TIMEAVE_RESET(CLOUDCtave,1, bi, bj, myThid)
142          AIM_TimeAve(1,bi,bj) = 0.          CALL TIMEAVE_RESET(CLTOPtave, 1, bi, bj, myThid)
143            CALL TIMEAVE_RESET(CBMFtave,  1, bi, bj, myThid)
144            CALL TIMEAVE_RESET(DRAGtave,  1, bi, bj, myThid)
145            CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid)
146            CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid)
147            CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid)
148            CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid)
149            DO k=1,Nr
150              aim_timeAve(k,bi,bj) = 0.
151            ENDDO
152         ENDDO         ENDDO
153        ENDDO        ENDDO
154  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_AIM_TAVE */
155    
156  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
157    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22