Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.11 by stephd, Tue May 1 22:51:12 2007 UTC | revision 1.12 by stephd, Mon May 7 15:58:19 2007 UTC | |
|---|---|---|
| # | Line 25 C !USES: =============================== | Line 25 C !USES: =============================== |
| 25 | #include "GRID.h" | #include "GRID.h" |
| 26 | #include "DIC_ABIOTIC.h" | #include "DIC_ABIOTIC.h" |
| 27 | #include "DIC_BIOTIC.h" | #include "DIC_BIOTIC.h" |
| 28 | #ifdef PAR_FROMSW | #ifdef USE_QSW |
| 29 | #include "FFIELDS.h" | #include "FFIELDS.h" |
| 30 | #endif | #endif |
| 31 | ||
| # | Line 66 CEOP | Line 66 CEOP |
| 66 | ||
| 67 | ||
| 68 | #ifndef READ_PAR | #ifndef READ_PAR |
| 69 | #ifndef PAR_FROMSW | #ifndef USE_QSW |
| 70 | call insol(myTime,sfac,bj) | call insol(myTime,sfac,bj) |
| 71 | #endif | #endif |
| 72 | #endif | #endif |
| # | Line 81 C$TAF INIT bio_export = static, 10 | Line 81 C$TAF INIT bio_export = static, 10 |
| 81 | #ifdef READ_PAR | #ifdef READ_PAR |
| 82 | lit=PAR(i,j,bi,bj) | lit=PAR(i,j,bi,bj) |
| 83 | #else | #else |
| 84 | #ifdef PAR_FROMSW | #ifdef USE_QSW |
| 85 | lit=-0.4*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) | lit=-0.4*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
| 86 | #else | #else |
| 87 | lit=sfac(j) | lit=sfac(j) |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |