/[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.8 by stephd, Thu May 2 19:39:53 2013 UTC revision 1.10 by jahn, Wed May 15 14:42:54 2013 UTC
# Line 104  c initialize total number of functional Line 104  c initialize total number of functional
104    
105          _END_MASTER( myThid )          _END_MASTER( myThid )
106    
        IF (nIter0.EQ.PTRACERS_Iter0) THEN  
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 123  c reduce amount of diaz Line 123  c reduce amount of diaz
123           ENDDO           ENDDO
124           endif           endif
125          enddo          enddo
 #endif  
126         ENDIF         ENDIF
127    #endif
128    
129          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
130    
# Line 325  c       myProcId and myThid Line 325  c       myProcId and myThid
325          ENDDO          ENDDO
326         ENDDO         ENDDO
327        ENDDO        ENDDO
328    #endif
329    
330        IF ( .NOT. ( startTime .EQ. baseTime .AND.  nIter0 .EQ. 0        IF ( .NOT. ( startTime .EQ. baseTime .AND.  nIter0 .EQ. 0
331       &     .AND. pickupSuff .EQ. ' ') ) THEN       &     .AND. pickupSuff .EQ. ' ') ) THEN
332  COJ should probably initialize from a file when nIter0 .EQ. 0  COJ should probably initialize from a file when nIter0 .EQ. 0
333          CALL DARWIN_READ_PICKUP( nIter0, myThid )          CALL DARWIN_READ_PICKUP( nIter0, myThid )
334        ENDIF        ENDIF
 #endif  
335  c  c
336  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
337  c set arrays to zero if first timestep  c set arrays to zero if first timestep
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22