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

Annotation of /MITgcm/model/src/packages_init_fixed.F

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

Revision 1.13 - (hide annotations) (download)
Mon Oct 27 22:32:55 2003 UTC (20 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint51t_post, checkpoint51s_post, checkpoint51q_post, checkpoint51r_post, checkpoint51o_post, checkpoint51p_post
Branch point for: branch-nonh
Changes since 1.12: +2 -5 lines 
o cleaning ALLOW_GRADIENT_CHECK -> ALLOW_GRDCHK
o cleaning some ALLOW_TANGENTLINEAR_RUN -> ALLOW_AUTODIFF
o bug fix in find_alpha.F for MDJWF:
  - modif. to alpha = 1/D*( dN/dT - rho*dD/Dt) to account for
    change rho -> rho-rhoConst
  - replace call find_rho to find_rhonum
1 heimbach 1.13 C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.12 2003/10/23 04:41:40 edhill Exp $
2 adcroft 1.3 C $Name: $
3 adcroft 1.2
4 edhill 1.11 #include "PACKAGES_CONFIG.h"
5 adcroft 1.2 #include "CPP_OPTIONS.h"
6    
7 cnh 1.4 CBOP
8     C !ROUTINE: PACKAGES_INIT_FIXED
9     C !INTERFACE:
10 adcroft 1.2 SUBROUTINE PACKAGES_INIT_FIXED( myThid )
11 cnh 1.4
12     C !DESCRIPTION: \bv
13     C *==========================================================*
14     C | SUBROUTINE PACKAGES_INIT_FIXED
15     C | o Does initialisation of package-related fixed fields
16     C *==========================================================*
17     C \ev
18    
19     C !CALLING SEQUENCE:
20     C PACKAGES_INIT_FIXED
21     C |
22 jmc 1.5 C |-- GAD_INIT
23     C |
24 cnh 1.4 C |-- OBCS_INIT_FIXED
25     C |
26     C |-- FLT_INIT
27 jmc 1.6 C |
28     C |-- ZONAL_FILT_INIT
29 jmc 1.7 C |
30     C |-- AIM_INITIALISE
31     C |
32     C |-- LAND_INITIALISE
33 cnh 1.4
34     C !USES:
35 adcroft 1.2 IMPLICIT NONE
36     C === Global variables ===
37     #include "SIZE.h"
38     #include "EEPARAMS.h"
39     #include "PARAMS.h"
40    
41 cnh 1.4 C !INPUT/OUTPUT PARAMETERS:
42 adcroft 1.2 C === Routine arguments ===
43     C myThid - Number of this instances
44     INTEGER myThid
45 cnh 1.4 CEOP
46 jmc 1.5
47     C-- Initialize fixed params for GAD
48     CALL GAD_INIT( myThid )
49 adcroft 1.2
50     C-- Initialize fixed arrays for OBCS
51     #ifdef ALLOW_OBCS
52     IF (useOBCS) THEN
53     CALL OBCS_INIT_FIXED( myThid )
54 adcroft 1.3 ENDIF
55     #endif
56     #ifdef ALLOW_FLT
57     C-- Initialise Float positions
58 jmc 1.6 IF (useFLT) THEN
59 adcroft 1.3 CALL FLT_INIT(nIter0,startTime,myThid )
60 jmc 1.6 _BARRIER
61     ENDIF
62     #endif
63     #ifdef ALLOW_ZONAL_FILT
64     C-- Latitude circle filter initialisation
65     IF (useZONAL_FILT) THEN
66     CALL ZONAL_FILT_INIT(myThid)
67 adcroft 1.3 _BARRIER
68 adcroft 1.2 ENDIF
69 jmc 1.7 #endif
70    
71     #ifdef ALLOW_AIM
72     C-- Initialise & Read AIM physical parameters
73     IF (useAIM) CALL AIM_INITIALISE( myThid )
74     #endif
75    
76     #ifdef ALLOW_LAND
77     C-- Initialise & Read Land package parameters
78     IF (useLand) CALL LAND_INITIALISE( myThid )
79 heimbach 1.8 #endif
80    
81 heimbach 1.13 #ifdef ALLOW_AUTODIFF
82 heimbach 1.8 C-- Initialise the control variables
83     CALL CTRL_INIT( myThid )
84     _BARRIER
85     #endif
86    
87     #ifdef INCLUDE_ECCO_PACKAGE
88 heimbach 1.9 # ifdef ALLOW_COST
89 heimbach 1.8 C-- Initialise ecco-specific cost function.
90 heimbach 1.9 IF (useECCO) CALL COST_INIT_FIXED( myThid )
91     # endif
92 adcroft 1.2 #endif
93 stephd 1.10
94     #ifdef ALLOW_PTRACERS
95     #ifdef ALLOW_GCHEM
96     IF (usePTRACERS) then
97     call GCHEM_INIT_FIXED(mythid)
98     ENDIF
99     #endif
100     #endif
101    
102 adcroft 1.2
103     RETURN
104     END
  ViewVC Help
Powered by ViewVC 1.1.22