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

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

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

revision 1.2 by stephd, Thu May 31 21:08:25 2012 UTC revision 1.3 by jahn, Tue Apr 16 20:21:57 2013 UTC
# Line 105  c it's done for RADTRANS and WAVEBANDS_3 Line 105  c it's done for RADTRANS and WAVEBANDS_3
105         actot450 = 0.0 _d 0         actot450 = 0.0 _d 0
106         atot450 = 0.0 _d 0         atot450 = 0.0 _d 0
107         do np = 1,npmax         do np = 1,npmax
108          actot450 = actot450  + P_chl(np,k)*aclocal(np,nl450) !nb. n,k swapped from WG          actot450 = actot450  + P_chl(np,k)*aclocal(np,nlaCDOM) !nb. n,k swapped from WG
109         enddo         enddo
110         atot450 = awlocal(nl450) + actot450         atot450 = awlocal(nlaCDOM) + actot450
111         do ilam = 1,tlam         do ilam = 1,tlam
112          acdomlocal(k,ilam) = 0.2 _d 0 * atot450*excdom(ilam)          acdomlocal(k,ilam) = darwin_aCDOM_fac * atot450*excdom(ilam)
113         enddo         enddo
114        enddo        enddo
115  c      do nl = 1,tlam  c      do nl = 1,tlam
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22