80 |
C | |
C | |
81 |
C |-- REGRID_INIT_VARIA |
C |-- REGRID_INIT_VARIA |
82 |
C | |
C | |
83 |
|
C |-- LAYERS_INIT_VARIA |
84 |
|
C | |
85 |
C |-- SALT_PLUME_INIT_VARIA |
C |-- SALT_PLUME_INIT_VARIA |
86 |
C | |
C | |
87 |
C |-- CHEAPAML_INIT_VARIA |
C |-- CHEAPAML_INIT_VARIA |
88 |
C | |
C | |
89 |
C |-- MYPACKAGE_INIT_VARIA |
C |-- MYPACKAGE_INIT_VARIA |
|
C | |
|
|
C |-- LAYERS_INIT_VARIA |
|
90 |
|
|
91 |
C !USES: |
C !USES: |
92 |
IMPLICIT NONE |
IMPLICIT NONE |
392 |
ENDIF |
ENDIF |
393 |
#endif /* ALLOW_REGRID */ |
#endif /* ALLOW_REGRID */ |
394 |
|
|
395 |
|
#ifdef ALLOW_LAYERS |
396 |
|
IF ( useLayers ) CALL LAYERS_INIT_VARIA( myThid ) |
397 |
|
#endif /* ALLOW_LAYERS */ |
398 |
|
|
399 |
#ifdef ALLOW_SALT_PLUME |
#ifdef ALLOW_SALT_PLUME |
400 |
IF ( useSALT_PLUME ) THEN |
IF ( useSALT_PLUME ) THEN |
401 |
CALL SALT_PLUME_INIT_VARIA( myThid ) |
CALL SALT_PLUME_INIT_VARIA( myThid ) |
414 |
ENDIF |
ENDIF |
415 |
#endif /* ALLOW_MYPACKAGE */ |
#endif /* ALLOW_MYPACKAGE */ |
416 |
|
|
|
C- added by RPA |
|
|
#ifdef ALLOW_LAYERS |
|
|
IF ( useLayers ) CALL LAYERS_INIT_VARIA( myThid ) |
|
|
#endif /* ALLOW_LAYERS */ |
|
|
|
|
417 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
418 |
IF (debugMode) |
IF (debugMode) |
419 |
& CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid) |
& CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid) |