/[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.5 by jahn, Mon Jul 30 15:21:51 2012 UTC revision 1.6 by jahn, Thu Aug 23 21:48:25 2012 UTC
# Line 350  c set arrays to zero if first timestep Line 350  c set arrays to zero if first timestep
350       &                                    Nr,bi,bj,myThid)       &                                    Nr,bi,bj,myThid)
351             CALL TIMEAVE_RESET(Euave(1-OLx,1-OLy,1,1,1,i),             CALL TIMEAVE_RESET(Euave(1-OLx,1-OLy,1,1,1,i),
352       &                                    Nr,bi,bj,myThid)       &                                    Nr,bi,bj,myThid)
353               CALL TIMEAVE_RESET(Estave(1-OLx,1-OLy,1,1,1,i),
354         &                                    Nr,bi,bj,myThid)
355             CALL TIMEAVE_RESET(Eutave(1-OLx,1-OLy,1,1,1,i),             CALL TIMEAVE_RESET(Eutave(1-OLx,1-OLy,1,1,1,i),
356       &                                    Nr,bi,bj,myThid)       &                                    Nr,bi,bj,myThid)
357            enddo            enddo
358  #endif  #endif
359  #ifdef DAR_DIAG_IRR_AMPS  #ifdef DAR_DIAG_IRR_AMPS
360            do i=1,tlam            do i=1,tlam
361             CALL TIMEAVE_RESET(c1ave(1-OLx,1-OLy,1,1,1,i),             CALL TIMEAVE_RESET(amp1ave(1-OLx,1-OLy,1,1,1,i),
362       &                                    Nr,bi,bj,myThid)       &                                    Nr,bi,bj,myThid)
363             CALL TIMEAVE_RESET(c2ave(1-OLx,1-OLy,1,1,1,i),             CALL TIMEAVE_RESET(amp2ave(1-OLx,1-OLy,1,1,1,i),
364       &                                    Nr,bi,bj,myThid)       &                                    Nr,bi,bj,myThid)
365            enddo            enddo
366  #endif  #endif
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22