| 307 |
Pa2Atm = 1.01325 _d 5 |
Pa2Atm = 1.01325 _d 5 |
| 308 |
#endif |
#endif |
| 309 |
|
|
| 310 |
|
#ifdef ALLOW_CDOM |
| 311 |
|
fraccdom=2. _d 0 / 100. _d 0 |
| 312 |
|
cdomdegrd= 1. _d 0 / (200 _d 0 *pday) |
| 313 |
|
cdombleach = 1. _d 0 / (15 _d 0 *pday) |
| 314 |
|
PARcdom = 20. _d 0 |
| 315 |
|
rnp_cdom = 16. _d 0 |
| 316 |
|
rfep_cdom = 1. _d -3 |
| 317 |
|
rcp_cdom = 120. _d 0 |
| 318 |
|
cdomcoeff = .1 _d -1 / 1.d -4 |
| 319 |
|
#endif |
| 320 |
|
|
| 321 |
C make sure we have reserved enough space in Ptracers |
C make sure we have reserved enough space in Ptracers |
| 322 |
IF ( nCompZooMax .LT. 4 ) THEN |
IF ( nCompZooMax .LT. 4 ) THEN |
| 323 |
WRITE(msgBuf,'(A,A,I3)') |
WRITE(msgBuf,'(A,A,I3)') |