Parent Directory | Revision Log | Revision Graph | Patch
revision 1.12 by stephd, Mon May 7 15:58:19 2007 UTC | revision 1.13 by stephd, Thu Aug 9 19:51:18 2007 UTC | |
---|---|---|
# | Line 82 C$TAF INIT bio_export = static, 10 | Line 82 C$TAF INIT bio_export = static, 10 |
82 | lit=PAR(i,j,bi,bj) | lit=PAR(i,j,bi,bj) |
83 | #else | #else |
84 | #ifdef USE_QSW | #ifdef USE_QSW |
85 | lit=-0.4*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) | lit=-parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
86 | #else | #else |
87 | lit=sfac(j) | lit=sfac(j) |
88 | #endif | #endif |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |