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

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

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

revision 1.3 by jahn, Tue Oct 11 18:10:55 2011 UTC revision 1.4 by jahn, Mon Nov 7 21:55:11 2011 UTC
# Line 283  c Line 283  c
283  COJ for diagnostics  COJ for diagnostics
284             PParr(i,j,k) = 0. _d 0             PParr(i,j,k) = 0. _d 0
285             Nfixarr(i,j,k) = 0. _d 0             Nfixarr(i,j,k) = 0. _d 0
286    #ifdef DAR_DIAG_CHL
287               GeiderChlarr(i,j,k) = 0. _d 0
288               GeiderChl2Carr(i,j,k) = 0. _d 0
289               DoneyChlarr(i,j,k) = 0. _d 0
290               DoneyChl2Carr(i,j,k) = 0. _d 0
291               CloernChlarr(i,j,k) = 0. _d 0
292               CloernChl2Carr(i,j,k) = 0. _d 0
293    #endif
294  c ANNA_TAVE  c ANNA_TAVE
295  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
296             DO np=1,npmax             DO np=1,npmax
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22