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

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

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

revision 1.5 by stephd, Thu May 31 21:08:25 2012 UTC revision 1.6 by stephd, Tue Jul 24 16:01:56 2012 UTC
# Line 328  C make sure we have reserved enough spac Line 328  C make sure we have reserved enough spac
328        ENDIF        ENDIF
329        DO nz = 1,nzmax        DO nz = 1,nzmax
330          iZooP (nz)  = iZoo +                   (nz-1)*strideTypeZoo          iZooP (nz)  = iZoo +                   (nz-1)*strideTypeZoo
331    #ifdef ONLY_P_CYCLE
332            iZooN (nz)  = nptot
333            iZooFe(nz)  = nptot
334            iZooSi(nz)  = nptot
335    #else
336          iZooN (nz)  = iZoo + 1*strideCompZoo + (nz-1)*strideTypeZoo          iZooN (nz)  = iZoo + 1*strideCompZoo + (nz-1)*strideTypeZoo
337          iZooFe(nz)  = iZoo + 2*strideCompZoo + (nz-1)*strideTypeZoo          iZooFe(nz)  = iZoo + 2*strideCompZoo + (nz-1)*strideTypeZoo
338          iZooSi(nz)  = iZoo + 3*strideCompZoo + (nz-1)*strideTypeZoo          iZooSi(nz)  = iZoo + 3*strideCompZoo + (nz-1)*strideTypeZoo
339    #endif
340        ENDDO        ENDDO
341  #ifdef ALLOW_CARBON  #ifdef ALLOW_CARBON
342         DO nz = 1,nzmax         DO nz = 1,nzmax
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22