/[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.8 by stephd, Thu May 2 19:39:53 2013 UTC
# Line 104  c initialize total number of functional Line 104  c initialize total number of functional
104    
105          _END_MASTER( myThid )          _END_MASTER( myThid )
106    
107           IF (nIter0.EQ.PTRACERS_Iter0) THEN
108  c reduce amount of diaz  c reduce amount of diaz
109  #ifdef ALLOW_DIAZ  #ifdef ALLOW_DIAZ
110          do np = 1, npmax          do np = 1, npmax
# Line 123  c reduce amount of diaz Line 124  c reduce amount of diaz
124           endif           endif
125          enddo          enddo
126  #endif  #endif
127           ENDIF
128    
129          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
130    
# Line 339  c set arrays to zero if first timestep Line 341  c set arrays to zero if first timestep
341            CALL TIMEAVE_RESET(Chlave,   Nr,  bi, bj, myThid)            CALL TIMEAVE_RESET(Chlave,   Nr,  bi, bj, myThid)
342            CALL TIMEAVE_RESET(Nfixave,   Nr,  bi, bj, myThid)            CALL TIMEAVE_RESET(Nfixave,   Nr,  bi, bj, myThid)
343            CALL TIMEAVE_RESET(Denitave,   Nr,  bi, bj, myThid)            CALL TIMEAVE_RESET(Denitave,   Nr,  bi, bj, myThid)
344    #ifdef DAR_DIAG_PARW
345              do i=1,tlam
346               CALL TIMEAVE_RESET(PARwave(1-OLx,1-OLy,1,1,1,i),
347         &                                    Nr,bi,bj,myThid)
348              enddo
349              do np=1,npmax
350               CALL TIMEAVE_RESET(chl2cave(1-OLx,1-OLy,1,1,1,np),
351         &                                    Nr,bi,bj,myThid)
352              enddo
353    #endif
354  #ifdef DAR_DIAG_ACDOM  #ifdef DAR_DIAG_ACDOM
355            CALL TIMEAVE_RESET(aCDOMave,   Nr,  bi, bj, myThid)            CALL TIMEAVE_RESET(aCDOMave,   Nr,  bi, bj, myThid)
356  #endif  #endif
# Line 400  c ANNA_TAVE Line 412  c ANNA_TAVE
412            enddo            enddo
413  #endif  #endif
414  c ANNA end TAVE  c ANNA end TAVE
415    #ifdef DAR_DIAG_EK
416               do np=1,npmax
417               CALL TIMEAVE_RESET(Ekave(1-OLx,1-OLy,1,1,1,np),
418         &                                      Nr,bi,bj,myThid)
419               CALL TIMEAVE_RESET(EkoverEave(1-OLx,1-OLy,1,1,1,np),
420         &                                      Nr,bi,bj,myThid)
421               do i=1,tlam
422                 CALL TIMEAVE_RESET(Ek_nlave(1-OLx,1-OLy,1,1,1,np,i),
423         &                                      Nr,bi,bj,myThid)
424                 CALL TIMEAVE_RESET(EkoverE_nlave(1-OLx,1-OLy,1,1,1,np,i),
425         &                                      Nr,bi,bj,myThid)
426               enddo
427              enddo
428    #endif
429  #ifdef DAR_DIAG_RSTAR  #ifdef DAR_DIAG_RSTAR
430            do np=1,npmax            do np=1,npmax
431             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.8
  ViewVC Help
Powered by ViewVC 1.1.22