|
||||
File indexing completed on 2018-03-02 18:43:51 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC64e64319fa 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
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |