/[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.2 by jahn, Thu Sep 22 15:56:30 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
# Line 931  c            endif Line 939  c            endif
939  c  c
940  #ifdef IRON_SED_SOURCE  #ifdef IRON_SED_SOURCE
941  c only above minimum depth (continental shelf)  c only above minimum depth (continental shelf)
942               if (rF(k).lt.depthfesed) then               if (rF(k).gt.-depthfesed) then
943  c only if bottom layer  c only if bottom layer
944                 if (bottom.eq.1.0 _d 0) then                 if (bottom.eq.1.0 _d 0) then
945  #ifdef IRON_SED_SOURCE_VARIABLE  #ifdef IRON_SED_SOURCE_VARIABLE
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22