/[MITgcm]/MITgcm/pkg/dic/bio_export.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/bio_export.F

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

revision 1.15 by jmc, Tue Oct 9 00:01:42 2007 UTC revision 1.16 by stephd, Mon Oct 15 16:02:58 2007 UTC
# Line 97  C$TAF STORE lit = bio_export Line 97  C$TAF STORE lit = bio_export
97               if (k.gt.1) atten=atten+(k0*drF(k-1)               if (k.gt.1) atten=atten+(k0*drF(k-1)
98       &                         *hFacC(i,j,k-1,bi,bj)*.5)       &                         *hFacC(i,j,k-1,bi,bj)*.5)
99               lit=lit*exp(-atten)               lit=lit*exp(-atten)
100               if (lit.lt.0.d0.or.lit.gt.150) then               if (lit.lt.0.d0.or.lit.gt.350) then
101                   print*,'QQ lit', lit                   print*,'QQ lit', lit
102               endif               endif
103    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22