38 |
CALL INI_PARMS( myThid ) |
CALL INI_PARMS( myThid ) |
39 |
_BARRIER |
_BARRIER |
40 |
|
|
|
C-- Configure packages |
|
|
CALL PACKAGE_INIT( myThid ) |
|
|
|
|
41 |
#ifdef ALLOW_OBCS |
#ifdef ALLOW_OBCS |
42 |
C-- Open boundaries positions |
C-- Open boundaries positions |
43 |
CALL INI_OBCS( myThid ) |
CALL INI_OBCS( myThid ) |
58 |
CALL INI_MASKS_ETC( myThid ) |
CALL INI_MASKS_ETC( myThid ) |
59 |
_BARRIER |
_BARRIER |
60 |
|
|
61 |
|
C-- Set coriolis operators |
62 |
|
CALL INI_CORI( myThid ) |
63 |
|
|
64 |
#ifdef INCLUDE_LAT_CIRC_FFT_FILTER_CODE |
#ifdef INCLUDE_LAT_CIRC_FFT_FILTER_CODE |
65 |
C-- Latitude circle filter initialisation |
C-- Latitude circle filter initialisation |
66 |
CALL FILTER_LATCIRC_FFT_INIT(myThid) |
CALL FILTER_LATCIRC_FFT_INIT(myThid) |
67 |
_BARRIER |
_BARRIER |
68 |
#endif |
#endif |
69 |
|
|
|
C-- Set coriolis operators |
|
|
CALL INI_CORI( myThid ) |
|
|
|
|
70 |
C-- Set laplace operators for use in 2D conjugate gradient solver. |
C-- Set laplace operators for use in 2D conjugate gradient solver. |
71 |
CALL INI_CG2D( myThid ) |
CALL INI_CG2D( myThid ) |
72 |
|
|
75 |
CALL INI_CG3D( myThid ) |
CALL INI_CG3D( myThid ) |
76 |
#endif |
#endif |
77 |
|
|
78 |
C-- Finally summarise the model cofiguration |
C-- Configure packages |
79 |
CALL CONFIG_SUMMARY( myThid ) |
CALL PACKAGES_BOOT( myThid ) |
80 |
|
|
81 |
|
C-- Read configuration parameters for packages |
82 |
|
CALL PACKAGES_READPARMS( myThid ) |
83 |
|
|
84 |
C-- Check dependances between packages |
C-- Check dependances between packages |
85 |
CALL PACKAGE_CHECK( myThid ) |
CALL PACKAGES_CHECK( myThid ) |
86 |
|
|
87 |
|
C-- Finally summarise the model cofiguration |
88 |
|
CALL CONFIG_SUMMARY( myThid ) |
89 |
|
|
90 |
END |
END |