/[MITgcm]/MITgcm/model/src/packages_readparms.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_readparms.F

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

revision 1.2 by adcroft, Fri Feb 2 21:04:48 2001 UTC revision 1.7.2.2 by heimbach, Mon Apr 8 20:10:37 2002 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CStartOfInterface
7    CBOP
8    C     !ROUTINE: PACKAGES_READPARMS
9    C     !INTERFACE:
10        SUBROUTINE PACKAGES_READPARMS(myThid)        SUBROUTINE PACKAGES_READPARMS(myThid)
 C     /==========================================================\  
 C     | SUBROUTINE PACKAGES_READPARMS                            |  
 C     | o Read runtime package configuration parameters          |  
 C     |==========================================================|  
 C     |   Packages can have internal runtime configuration       |  
 C     |   parameters. A package provides a routine               |  
 C     |   ${PKGNAME}_READ_PARMS to read these parameters. In     |  
 C     |   general this routine should read parameters from a file|  
 C     |   called data.${pkgname}.                                |  
 C     |   This routine (S/R PACKAGES_READPARMS) calls per-package|  
 C     |   parameter reading routines.                            |  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12    C     !DESCRIPTION: \bv
13    C     *==========================================================*
14    C     | SUBROUTINE PACKAGES_READPARMS                            
15    C     | o Read runtime package configuration parameters          
16    C     *==========================================================*
17    C     |   Packages can have internal runtime configuration        
18    C     |   parameters. A package provides a routine                
19    C     |   ${PKGNAME}_READ_PARMS to read these parameters. In      
20    C     |   general this routine should read parameters from a file
21    C     |   called data.${pkgname}.                                
22    C     |   This routine (S/R PACKAGES_READPARMS) calls per-package
23    C     |   parameter reading routines.                            
24    C     *==========================================================*
25    C     \ev
26    
27    C     !CALLING SEQUENCE:
28    C     PACKAGES_READPARMS
29    C       |
30    C       |-- GMREDI_READPARMS
31    C       |
32    C       |-- KPP_READPARMS
33    C       |
34    C       |-- SHAP_FILT_READPARMS
35    C       |
36    C       |-- ZONAL_FILT_READPARMS
37    C       |
38    C       |-- OBCS_READPARMS
39    C       |
40    C       |-- AIM_READPARMS
41    C       |
42    C       |-- COST_READPARMS
43    C       |
44    C       |-- CTRL_INIT
45    C       |
46    C       |-- OPTIM_READPARMS
47    C       |
48    C       |-- GRDCHK_READPARMS
49    C       |
50    C       |-- ECCO_READPARMS
51    
52    
53    C     !USES:
54          IMPLICIT NONE
55  C     == Global variables ==  C     == Global variables ==
56  #include "SIZE.h"  #include "SIZE.h"
57  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 26  C     == Global variables == Line 59  C     == Global variables ==
59    
60  C     == Routine arguments ==  C     == Routine arguments ==
61        INTEGER myThid        INTEGER myThid
62  CEndOfInterface  CEOP
   
 C     == Local variables ==  
63    
64  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
65  C--   Initialize GM/Redi parameters  C--   Initialize GM/Redi parameters
# Line 40  C--   Initialize KPP parameters Line 71  C--   Initialize KPP parameters
71        IF (useKPP) CALL KPP_READPARMS( myThid )        IF (useKPP) CALL KPP_READPARMS( myThid )
72  #endif  #endif
73    
74    #ifdef ALLOW_SHAP_FILT
75          IF (useSHAP_FILT) CALL SHAP_FILT_READPARMS( myThid )
76    #endif
77    
78    #ifdef ALLOW_ZONAL_FILT
79          IF (useZONAL_FILT) CALL ZONAL_FILT_READPARMS( myThid )
80    #endif
81    
82  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
83        IF (useOBCS) CALL OBCS_READPARMS( myThid )        IF (useOBCS) CALL OBCS_READPARMS( myThid )
84  #endif  #endif
85    
86    #ifdef ALLOW_AIM
87    c--   Read in AIM package parameters
88    C     Currently AIM does not have any runtime parameters
89    C     IF (useAIM) CALL AIM_READPARMS ( myThid )
90    #endif
91    
92    #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
93    
94    C--   Initialise the cost function.
95          call cost_readparms( mythid )
96          _BARRIER
97    
98    C--   Initialise the control vector.
99          CALL ctrl_init( myThid )
100          _BARRIER
101    C--   Initialise the optim. parameters.
102          call optim_readparms( myThid )
103          _BARRIER
104    
105    #ifdef ALLOW_GRADIENT_CHECK
106    C--   Initialise gradient check parameters
107          if (useGrdchk) call grdchk_readparms( myThid )
108    #endif
109    
110    #endif /* ALLOW_ADJOINT_RUN */
111    
112  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef INCLUDE_ECCO_PACKAGE
113  c--   Initialize ECCO package parameters  c--   Initialize ECCO package parameters
114        IF (useECCO) CALL ECCO_READPARMS ( myThid )        IF (useECCO) CALL ECCO_READPARMS ( myThid )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7.2.2
  ViewVC Help
Powered by ViewVC 1.1.22