pkg/longstep/longstep_init_fixed.F

4e66ab0b67 Oliv*0001 #include "LONGSTEP_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: LONGSTEP_INIT_FIXED
                0005
                0006 C     !INTERFACE:
                0007       SUBROUTINE LONGSTEP_INIT_FIXED( myThid )
                0008
                0009 C     !DESCRIPTION:
cc9097e522 Oliv*0010 C     Initialize longstep constants
4e66ab0b67 Oliv*0011
                0012 C     !USES:
                0013       IMPLICIT NONE
                0014 #include "SIZE.h"
                0015 #include "EEPARAMS.h"
                0016 #include "PARAMS.h"
                0017
                0018 C     !INPUT PARAMETERS:
                0019       INTEGER myThid
                0020 CEOP
                0021
                0022 #ifdef ALLOW_LONGSTEP
                0023
                0024 C     !LOCAL VARIABLES:
                0025
                0026 #ifdef ALLOW_DIAGNOSTICS
                0027       IF ( useDiagnostics ) THEN
                0028         CALL LONGSTEP_DIAGNOSTICS_INIT( myThid )
                0029       ENDIF
                0030 #endif
                0031
                0032 #endif /* ALLOW_LONGSTEP */
                0033
                0034       RETURN
                0035       END