pkg/ecco/ecco_init_varia.F

d3b2ff199e Gael*0001 #include "ECCO_OPTIONS.h"
                0002
0cd0083da8 Ou W*0003       SUBROUTINE ECCO_INIT_VARIA( myThid )
d3b2ff199e Gael*0004
b0b45f2373 Ou W*0005 C     ==================================================================
                0006 C     SUBROUTINE ecco_init_varia
                0007 C     ==================================================================
                0008 C
                0009 C     o Initialise ecco variables.
                0010 C
                0011 C     ==================================================================
                0012 C     SUBROUTINE ecco_cost_init_varia
                0013 C     ==================================================================
d3b2ff199e Gael*0014
0cd0083da8 Ou W*0015       IMPLICIT NONE
d3b2ff199e Gael*0016
b0b45f2373 Ou W*0017 C     == global variables ==
d3b2ff199e Gael*0018 #include "EEPARAMS.h"
                0019 #include "SIZE.h"
0cd0083da8 Ou W*0020 #include "PARAMS.h"
d3b2ff199e Gael*0021 #include "GRID.h"
13d362b8c1 Ou W*0022 #include "ECCO_SIZE.h"
                0023 #include "ECCO.h"
d3b2ff199e Gael*0024 #ifdef ALLOW_COST
                0025 # include "cost.h"
                0026 #endif
                0027
b0b45f2373 Ou W*0028 C     == routine arguments ==
0cd0083da8 Ou W*0029       INTEGER myThid
d3b2ff199e Gael*0030
b0b45f2373 Ou W*0031 C     == local variables ==
d3b2ff199e Gael*0032
b0b45f2373 Ou W*0033 C     == end of interface ==
d3b2ff199e Gael*0034
49484c0542 Gael*0035 #ifdef ALLOW_PSBAR_STERIC
3a516654c6 Jean*0036 # ifndef ALLOW_AUTODIFF
b0b45f2373 Ou W*0037       _BEGIN_MASTER(myThid)
3a516654c6 Jean*0038 # endif
b0b45f2373 Ou W*0039       RHOsumGlob_0 = 0. _d 0
                0040       VOLsumGlob_0 = 0. _d 0
3a516654c6 Jean*0041 # ifndef ALLOW_AUTODIFF
b0b45f2373 Ou W*0042       _END_MASTER(myThid)
3a516654c6 Jean*0043 # endif
b0b45f2373 Ou W*0044       IF ( .NOT. ( startTime .EQ. baseTime .AND.  nIter0 .EQ. 0
                0045      &     .AND. pickupSuff .EQ. ' ') ) THEN
                0046         CALL ECCO_READ_PICKUP ( nIter0, myThid )
                0047       ENDIF
3a516654c6 Jean*0048 #endif /* ALLOW_PSBAR_STERIC */
d3b2ff199e Gael*0049
0cd0083da8 Ou W*0050       CALL ECCO_PHYS( startTime, -1, myThid )
d3b2ff199e Gael*0051
                0052 #ifdef ALLOW_PSBAR_STERIC
b0b45f2373 Ou W*0053 C RHO/VOLsumGlob_0 are zeros if S/R ECCO_READ_PICKUP is not called
                0054 C or pickup files (pickup_ecco.*.data/meta) do not exist. Assign
                0055 C RHO/VOLsumGlob calculated in S/R ECCO_PHYS to RHO/VOLsumGlob_0.
                0056       _BEGIN_MASTER(myThid)
                0057       IF ( RHOsumGlob_0 .EQ. 0. _d 0 .AND.
                0058      &     VOLsumGlob_0 .EQ. 0. _d 0 ) THEN
                0059         RHOsumGlob_0 = RHOsumGlob
                0060         VOLsumGlob_0 = VOLsumGlob
                0061       ENDIF
                0062       _END_MASTER(myThid)
d3b2ff199e Gael*0063 #endif
                0064
                0065       CALL ECCO_COST_INIT_VARIA( myThid )
                0066
                0067       _BARRIER
                0068
6b47d550f4 Mart*0069       RETURN
                0070       END