/[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.7 by stephd, Tue Oct 23 16:39:32 2012 UTC revision 1.9 by jahn, Fri May 3 19:24:02 2013 UTC
# Line 106  c initialize total number of functional Line 106  c initialize total number of functional
106    
107  c reduce amount of diaz  c reduce amount of diaz
108  #ifdef ALLOW_DIAZ  #ifdef ALLOW_DIAZ
109           IF (nIter0.EQ.PTRACERS_Iter0) THEN
110          do np = 1, npmax          do np = 1, npmax
111           if (diazotroph(np) .eq. 1. _d 0) then           if (diazotroph(np) .eq. 1. _d 0) then
112           DO bj = myByLo(myThid), myByHi(myThid)           DO bj = myByLo(myThid), myByHi(myThid)
# Line 122  c reduce amount of diaz Line 123  c reduce amount of diaz
123           ENDDO           ENDDO
124           endif           endif
125          enddo          enddo
126           ENDIF
127  #endif  #endif
128    
129          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22