Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:40:51 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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