Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.51 by jmc, Tue Nov 16 17:41:33 2010 UTC | revision 1.52 by jmc, Fri Dec 24 21:54:03 2010 UTC | |
|---|---|---|
| # | Line 372 C--- Exclusive packages (which cannot b | Line 372 C--- Exclusive packages (which cannot b |
| 372 | STOP 'ABNORMAL END: S/R PACKAGES_CHECK' | STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
| 373 | ENDIF | ENDIF |
| 374 | ||
| 375 | #ifdef ALLOW_AUTODIFF | |
| 376 | C-- Here INI_MASK_ETC will be called a 2nd time by INITIALISE_VARIA. | |
| 377 | C This hack prevents a 2nd printing when default debugLevel is used. | |
| 378 | _BARRIER | |
| 379 | _BEGIN_MASTER( myThid ) | |
| 380 | IF ( debugLevel.LE.debLevA ) printDomain = .FALSE. | |
| 381 | _END_MASTER( myThid ) | |
| 382 | _BARRIER | |
| 383 | #endif | |
| 384 | ||
| 385 | RETURN | RETURN |
| 386 | END | END |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |