/[MITgcm]/MITgcm_contrib/rpa_layers/modsrc/packages_readparms.F
ViewVC logotype

Diff of /MITgcm_contrib/rpa_layers/modsrc/packages_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by rpa, Tue Sep 15 19:46:38 2009 UTC revision 1.2 by jmc, Wed Sep 16 18:06:39 2009 UTC
# Line 72  C       |-- GCHEM_READPARMS Line 72  C       |-- GCHEM_READPARMS
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
# Line 109  C       | Line 107  C       |
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
# Line 230  C -- initialize Therm.Sea-Ice parameters Line 230  C -- initialize Therm.Sea-Ice parameters
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
# Line 312  C--    Initialize matrix package paramet Line 308  C--    Initialize matrix package paramet
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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.22