/[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.4 by jahn, Wed Dec 7 20:04:00 2011 UTC revision 1.5 by jahn, Mon Jul 30 15:21:51 2012 UTC
# Line 354  c set arrays to zero if first timestep Line 354  c set arrays to zero if first timestep
354       &                                    Nr,bi,bj,myThid)       &                                    Nr,bi,bj,myThid)
355            enddo            enddo
356  #endif  #endif
357    #ifdef DAR_DIAG_IRR_AMPS
358              do i=1,tlam
359               CALL TIMEAVE_RESET(c1ave(1-OLx,1-OLy,1,1,1,i),
360         &                                    Nr,bi,bj,myThid)
361               CALL TIMEAVE_RESET(c2ave(1-OLx,1-OLy,1,1,1,i),
362         &                                    Nr,bi,bj,myThid)
363              enddo
364    #endif
365  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
366            do i=1,tlam            do i=1,tlam
367             CALL TIMEAVE_RESET(aave(1-OLx,1-OLy,1,1,1,i),             CALL TIMEAVE_RESET(aave(1-OLx,1-OLy,1,1,1,i),
# Line 378  c set arrays to zero if first timestep Line 386  c set arrays to zero if first timestep
386       &                                    Nr,bi,bj,myThid)       &                                    Nr,bi,bj,myThid)
387            enddo            enddo
388  #endif  #endif
389    #ifdef DAR_RADTRANS
390              CALL TIMEAVE_RESET(rmudave(1-OLx,1-OLy,1,1),
391         &                                   1,bi,bj,myThid)
392    #endif
393  c ANNA_TAVE  c ANNA_TAVE
394  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
395            do np=1,npmax            do np=1,npmax
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22