/[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.13 by jahn, Wed Dec 4 21:21:33 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)
# Line 481  c ANNA end TAVE Line 504  c ANNA end TAVE
504  #endif  #endif
505  c         CALL TIMEAVE_RESET(SURave,   1,  bi, bj, myThid)  c         CALL TIMEAVE_RESET(SURave,   1,  bi, bj, myThid)
506    
507            do k=1,Nr            DAR_timeAve(bi,bj)=0. _d 0
             DAR_TimeAve(bi,bj,k)=0. _d 0  
           enddo  
508           ENDDO           ENDDO
509          ENDDO          ENDDO
510  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22