72 |
C | |
C | |
73 |
C |-- RBCS_READPARMS |
C |-- RBCS_READPARMS |
74 |
C | |
C | |
|
C |-- MYPACKAGE_READPARMS |
|
|
C | |
|
75 |
C |-- SALT_PLUME_READPARMS |
C |-- SALT_PLUME_READPARMS |
76 |
C | |
C | |
77 |
C |-- CHEAPAML_READPARMS |
C |-- CHEAPAML_READPARMS |
107 |
C |-- REGRID_READPARMS |
C |-- REGRID_READPARMS |
108 |
C | |
C | |
109 |
C |-- LAYERS_READPARMS |
C |-- LAYERS_READPARMS |
110 |
|
C | |
111 |
|
C |-- MYPACKAGE_READPARMS |
112 |
|
|
113 |
C !USES: |
C !USES: |
114 |
IMPLICIT NONE |
IMPLICIT NONE |
230 |
IF (useRBCS) CALL RBCS_READPARMS( myThid ) |
IF (useRBCS) CALL RBCS_READPARMS( myThid ) |
231 |
#endif |
#endif |
232 |
|
|
|
#ifdef ALLOW_MYPACKAGE |
|
|
IF (useMYPACKAGE) CALL MYPACKAGE_READPARMS( myThid ) |
|
|
#endif |
|
|
|
|
233 |
#ifdef ALLOW_SALT_PLUME |
#ifdef ALLOW_SALT_PLUME |
234 |
IF (useSALT_PLUME) CALL SALT_PLUME_READPARMS( myThid ) |
IF (useSALT_PLUME) CALL SALT_PLUME_READPARMS( myThid ) |
235 |
#endif |
#endif |
308 |
IF ( useREGRID ) CALL REGRID_READPARMS( myThid ) |
IF ( useREGRID ) CALL REGRID_READPARMS( myThid ) |
309 |
#endif /* ALLOW_REGRID */ |
#endif /* ALLOW_REGRID */ |
310 |
|
|
|
C-- added by RPA |
|
311 |
#ifdef ALLOW_LAYERS |
#ifdef ALLOW_LAYERS |
312 |
IF ( useLayers ) CALL LAYERS_READPARMS( myThid ) |
IF ( useLayers ) CALL LAYERS_READPARMS( myThid ) |
313 |
#endif /* ALLOW_LAYERS */ |
#endif /* ALLOW_LAYERS */ |
314 |
|
|
315 |
|
#ifdef ALLOW_MYPACKAGE |
316 |
|
IF (useMYPACKAGE) CALL MYPACKAGE_READPARMS( myThid ) |
317 |
|
#endif |
318 |
|
|
319 |
RETURN |
RETURN |
320 |
END |
END |