pkg/shap_filt/shap_filt_init_fixed.F

64e64319fa Jean*0001 #include "SHAP_FILT_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: SHAP_FILT_INIT_FIXED
                0005 C     !INTERFACE:
                0006       SUBROUTINE SHAP_FILT_INIT_FIXED( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE SHAP_FILT_INIT_FIXED
                0011 C     | o Routine to initialize GM/Redi variables
                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 CEOP
                0028
                0029 C     !LOCAL VARIABLES:
                0030 C     === Local variables ===
                0031
                0032 #ifdef ALLOW_DIAGNOSTICS
                0033       IF ( useDiagnostics ) THEN
                0034         CALL SHAP_FILT_DIAGNOSTICS_INIT( myThid )
                0035       ENDIF
                0036 #endif
                0037
                0038       RETURN
                0039       END