pkg/frazil/frazil_init_fixed.F

e0b3e1bdd8 Dimi*0001 #include "FRAZIL_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: FRAZIL_INIT_FIXED
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE FRAZIL_INIT_FIXED( myThid )
                0009
                0010 C     !DESCRIPTION:
33e5e9881a Dimi*0011 C     Initialize FRAZIL variables that are kept fixed during the run
e0b3e1bdd8 Dimi*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:
33e5e9881a Dimi*0020 C     myThid :: my Thread Id number
e0b3e1bdd8 Dimi*0021       INTEGER myThid
                0022 CEOP
                0023
                0024 #ifdef ALLOW_DIAGNOSTICS
                0025       IF ( useDiagnostics ) THEN
                0026         CALL FRAZIL_DIAGNOSTICS_INIT( myThid )
                0027       ENDIF
                0028 #endif
                0029
                0030       RETURN
                0031       END