pkg/ecco/ecco_init_fixed.F

0cd0083da8 Ou W*0001 #include "ECCO_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C !ROUTINE: ECCO_INIT_FIXED
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE ECCO_INIT_FIXED( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize ECCO variables that are kept fixed during the run.
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "EEPARAMS.h"
                0016 #include "SIZE.h"
                0017 #include "PARAMS.h"
                0018
                0019 C     !INPUT/OUTPUT PARAMETERS:
                0020 C     myThid  :: my Thread Id number
                0021       INTEGER myThid
                0022
                0023 C     !LOCAL VARIABLES:
                0024 CEOP
                0025
                0026 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0027
                0028 C--   Initialise ecco-specific cost function. This needs to preceed
5cf4364659 Mart*0029 C     the call ctrl_init_fixed in order to provide the weight files.
0cd0083da8 Ou W*0030 #ifdef ALLOW_DEBUG
                0031       IF (debugMode) CALL DEBUG_CALL('ECCO_COST_INIT_FIXED',myThid)
                0032 #endif
                0033       CALL ECCO_COST_INIT_FIXED( myThid )
                0034
                0035 #ifdef ALLOW_DIAGNOSTICS
                0036       IF ( useDiagnostics ) THEN
                0037         CALL ECCO_DIAGNOSTICS_INIT( myThid )
                0038       ENDIF
                0039 #endif
                0040
                0041       RETURN
                0042       END