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

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

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

revision 1.15 by stephd, Wed Oct 9 17:15:08 2013 UTC revision 1.16 by jahn, Fri Dec 27 17:29:00 2013 UTC
# Line 1735  c determine iron partitioning  - solve f Line 1735  c determine iron partitioning  - solve f
1735  c  c
1736  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
1737  c save averages  c save averages
1738         do k=1,nR           dar_timeave(bi,bj) = dar_timeave(bi,bj) + dtplankton
          dar_timeave(bi,bj,k)=dar_timeave(bi,bj,k)  
      &                         +dtplankton  
1739  #ifdef ALLOW_CARBON  #ifdef ALLOW_CARBON
1740           dic_timeave(bi,bj,k)=dic_timeave(bi,bj,k)           dic_timeave(bi,bj) = dic_timeave(bi,bj) + dtplankton
      &                         +dtplankton  
1741  #endif  #endif
        enddo  
1742  #endif  #endif
1743  c  c
1744  c -----------------------------------------------------  c -----------------------------------------------------
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22