pkg/my82/my82_init_fixed.F

60c545bbe1 Mart*0001 #include "MY82_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: MY82_INIT_FIXED
                0005 C     !INTERFACE:
                0006       SUBROUTINE MY82_INIT_FIXED( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE MY82_INIT_FIXED
016b84c482 Mart*0011 C     | o Routine to initialize MY82 variables
60c545bbe1 Mart*0012 C     |   that are kept fixed during the run.
                0013 C     *==========================================================*
                0014 C     \ev
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017
                0018 C     === Global variables ===
                0019 #include "EEPARAMS.h"
                0020 #include "SIZE.h"
                0021 #include "PARAMS.h"
                0022
                0023 C     !INPUT/OUTPUT PARAMETERS:
                0024 C     === Routine arguments ===
                0025 C     myThid ::  my Thread Id number
                0026       INTEGER myThid
                0027
                0028 C     !LOCAL VARIABLES :
                0029 C     === Local variables ===
016b84c482 Mart*0030 CEOP
60c545bbe1 Mart*0031
                0032 #ifdef ALLOW_DIAGNOSTICS
                0033       IF ( useDiagnostics ) THEN
                0034         CALL MY82_DIAGNOSTICS_INIT( myThid )
                0035       ENDIF
                0036 #endif
                0037
                0038       RETURN
                0039       END