Parent Directory
|
Revision Log
|
Revision Graph
|
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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |