/[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.14 by jahn, Fri Dec 27 17:29:00 2013 UTC revision 1.15 by jahn, Thu May 1 16:19:32 2014 UTC
# Line 319  c reduce amount of diaz Line 319  c reduce amount of diaz
319         ENDIF         ENDIF
320  #endif  #endif
321    
322    #ifdef FIX_ZOO_QUOTAS
323            do nz = 1, nzmax
324             DO bj = myByLo(myThid), myByHi(myThid)
325              DO bi = myBxLo(myThid), myBxHi(myThid)
326               DO j=1-Oly,sNy+Oly
327                DO i=1-Olx,sNx+Olx
328                 DO k=1,nR
329                   Ptracer(i,j,k,bi,bj,iZooN(nz)) =
330         &         Ptracer(i,j,k,bi,bj,iZooP(nz))*R_NP_zoo(nz)
331                   Ptracer(i,j,k,bi,bj,iZooFe(nz)) =
332         &         Ptracer(i,j,k,bi,bj,iZooP(nz))*R_FeP_zoo(nz)
333                   Ptracer(i,j,k,bi,bj,iZooSi(nz)) =
334         &         Ptracer(i,j,k,bi,bj,iZooP(nz))*R_SiP_zoo(nz)
335                   Ptracer(i,j,k,bi,bj,iZooC(nz)) =
336         &         Ptracer(i,j,k,bi,bj,iZooP(nz))*R_PC_zoo(nz)
337                 ENDDO
338                ENDDO
339               ENDDO
340              ENDDO
341             ENDDO
342            enddo
343    #endif
344    
345  #ifdef GEIDER  #ifdef GEIDER
346  C this initializes fields...  C this initializes fields...
347          call MONOD_CHECK_CHL(myThid)          call MONOD_CHECK_CHL(myThid)
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22