/[MITgcm]/MITgcm_contrib/darwin2/pkg/monod/monod_init_vari.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/monod/monod_init_vari.F

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

revision 1.6 by jahn, Thu Aug 23 21:48:25 2012 UTC revision 1.7 by stephd, Tue Oct 23 16:39:32 2012 UTC
# Line 339  c set arrays to zero if first timestep Line 339  c set arrays to zero if first timestep
339            CALL TIMEAVE_RESET(Chlave,   Nr,  bi, bj, myThid)            CALL TIMEAVE_RESET(Chlave,   Nr,  bi, bj, myThid)
340            CALL TIMEAVE_RESET(Nfixave,   Nr,  bi, bj, myThid)            CALL TIMEAVE_RESET(Nfixave,   Nr,  bi, bj, myThid)
341            CALL TIMEAVE_RESET(Denitave,   Nr,  bi, bj, myThid)            CALL TIMEAVE_RESET(Denitave,   Nr,  bi, bj, myThid)
342    #ifdef DAR_DIAG_PARW
343              do i=1,tlam
344               CALL TIMEAVE_RESET(PARwave(1-OLx,1-OLy,1,1,1,i),
345         &                                    Nr,bi,bj,myThid)
346              enddo
347              do np=1,npmax
348               CALL TIMEAVE_RESET(chl2cave(1-OLx,1-OLy,1,1,1,np),
349         &                                    Nr,bi,bj,myThid)
350              enddo
351    #endif
352  #ifdef DAR_DIAG_ACDOM  #ifdef DAR_DIAG_ACDOM
353            CALL TIMEAVE_RESET(aCDOMave,   Nr,  bi, bj, myThid)            CALL TIMEAVE_RESET(aCDOMave,   Nr,  bi, bj, myThid)
354  #endif  #endif
# Line 400  c ANNA_TAVE Line 410  c ANNA_TAVE
410            enddo            enddo
411  #endif  #endif
412  c ANNA end TAVE  c ANNA end TAVE
413    #ifdef DAR_DIAG_EK
414               do np=1,npmax
415               CALL TIMEAVE_RESET(Ekave(1-OLx,1-OLy,1,1,1,np),
416         &                                      Nr,bi,bj,myThid)
417               CALL TIMEAVE_RESET(EkoverEave(1-OLx,1-OLy,1,1,1,np),
418         &                                      Nr,bi,bj,myThid)
419               do i=1,tlam
420                 CALL TIMEAVE_RESET(Ek_nlave(1-OLx,1-OLy,1,1,1,np,i),
421         &                                      Nr,bi,bj,myThid)
422                 CALL TIMEAVE_RESET(EkoverE_nlave(1-OLx,1-OLy,1,1,1,np,i),
423         &                                      Nr,bi,bj,myThid)
424               enddo
425              enddo
426    #endif
427  #ifdef DAR_DIAG_RSTAR  #ifdef DAR_DIAG_RSTAR
428            do np=1,npmax            do np=1,npmax
429             CALL TIMEAVE_RESET(Rstarave(1-OLx,1-OLy,1,1,1,np),             CALL TIMEAVE_RESET(Rstarave(1-OLx,1-OLy,1,1,1,np),
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22