/[MITgcm]/MITgcm_contrib/darwin2/pkg/quota/quota_forcing.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/quota/quota_forcing.F

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

revision 1.2 by benw, Mon Jul 2 09:47:43 2012 UTC revision 1.3 by jahn, Fri Dec 27 17:29:00 2013 UTC
# Line 459  c determine iron partitioning  - solve f Line 459  c determine iron partitioning  - solve f
459  c  c
460  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
461  c save averages  c save averages
462         do k=1,nR         dar_timeave(bi,bj) = dar_timeave(bi,bj) + dtplankton
          dar_timeave(bi,bj,k) = dar_timeave(bi,bj,k)  
      &                        + dtplankton  
        enddo  
463  #endif  #endif
464  c  c
465  c -----------------------------------------------------  c -----------------------------------------------------
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22