pkg/bbl/bbl_init_fixed.F

53b68b7823 Dimi*0001 #include "BBL_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: BBL_INIT_FIXED
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE BBL_INIT_FIXED( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize BBL 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 CEOP
                0023
                0024 C     !LOCAL VARIABLES:
                0025 C     === Local variables ===
                0026
                0027 #ifdef ALLOW_DIAGNOSTICS
                0028       IF ( useDiagnostics ) THEN
                0029         CALL BBL_DIAGNOSTICS_INIT( myThid )
                0030       ENDIF
                0031 #endif
                0032
                0033       RETURN
                0034       END