28 |
CEndOfInterface |
CEndOfInterface |
29 |
|
|
30 |
C == Local variables == |
C == Local variables == |
|
#ifdef ALLOW_OBCS |
|
|
INTEGER bi,bj,K |
|
|
#endif |
|
31 |
|
|
32 |
C-- Set model parameters. |
C-- Set model parameters. |
33 |
C Parameters are set to defaults and then updates are read from |
C Parameters are set to defaults and then updates are read from |
35 |
CALL INI_PARMS( myThid ) |
CALL INI_PARMS( myThid ) |
36 |
_BARRIER |
_BARRIER |
37 |
|
|
|
#ifdef ALLOW_OBCS |
|
|
C-- Open boundaries positions |
|
|
CALL INI_OBCS( myThid ) |
|
|
#endif |
|
|
_BARRIER |
|
|
|
|
38 |
C-- Set model grid. |
C-- Set model grid. |
39 |
C Variables defining model grid spacing are defined. |
C Variables defining model grid spacing are defined. |
40 |
CALL INI_GRID( myThid ) |
CALL INI_GRID( myThid ) |
52 |
C-- Set coriolis operators |
C-- Set coriolis operators |
53 |
CALL INI_CORI( myThid ) |
CALL INI_CORI( myThid ) |
54 |
|
|
55 |
#ifdef INCLUDE_LAT_CIRC_FFT_FILTER_CODE |
C-- Configure packages |
56 |
|
CALL PACKAGES_BOOT( myThid ) |
57 |
|
|
58 |
|
C-- Read configuration parameters for packages |
59 |
|
CALL PACKAGES_READPARMS( myThid ) |
60 |
|
|
61 |
|
C-- Check dependances between packages |
62 |
|
CALL PACKAGES_CHECK( myThid ) |
63 |
|
|
64 |
|
C-- Call fixed data initialization phase of packages |
65 |
|
CALL PACKAGES_INIT_FIXED( myThid ) |
66 |
|
|
67 |
|
#ifdef ALLOW_ZONAL_FILT |
68 |
C-- Latitude circle filter initialisation |
C-- Latitude circle filter initialisation |
69 |
CALL FILTER_LATCIRC_FFT_INIT(myThid) |
CALL ZONAL_FILT_INIT(myThid) |
70 |
_BARRIER |
_BARRIER |
71 |
#endif |
#endif |
72 |
|
|
78 |
CALL INI_CG3D( myThid ) |
CALL INI_CG3D( myThid ) |
79 |
#endif |
#endif |
80 |
|
|
|
C-- Configure packages |
|
|
CALL PACKAGES_BOOT( myThid ) |
|
|
|
|
|
C-- Read configuration parameters for packages |
|
|
CALL PACKAGES_READPARMS( myThid ) |
|
|
|
|
|
C-- Check dependances between packages |
|
|
CALL PACKAGES_CHECK( myThid ) |
|
|
|
|
81 |
C-- Finally summarise the model cofiguration |
C-- Finally summarise the model cofiguration |
82 |
CALL CONFIG_SUMMARY( myThid ) |
CALL CONFIG_SUMMARY( myThid ) |
83 |
|
|