pkg/mypackage/mypackage_init_fixed.F

0dc94a8572 Patr*0001 #include "MYPACKAGE_OPTIONS.h"
                0002
3d0c17158b Ed H*0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
64811cb024 Jean*0004 CBOP
3d0c17158b Ed H*0005 C !ROUTINE: MYPACKAGE_INIT_FIXED
                0006
                0007 C !INTERFACE:
0dc94a8572 Patr*0008       SUBROUTINE MYPACKAGE_INIT_FIXED( myThid )
                0009
3d0c17158b Ed H*0010 C     !DESCRIPTION:
                0011 C     Initialize MYPACKAGE variables that are kept fixed during the run.
                0012
0dc94a8572 Patr*0013 C     !USES:
                0014       IMPLICIT NONE
64811cb024 Jean*0015 C     == Global variables ===
0dc94a8572 Patr*0016 #include "EEPARAMS.h"
                0017 #include "SIZE.h"
                0018 #include "PARAMS.h"
                0019 #include "MYPACKAGE.h"
                0020
                0021 C     !INPUT/OUTPUT PARAMETERS:
                0022 C     myThid ::  my Thread Id number
                0023       INTEGER myThid
                0024 CEOP
                0025
                0026 C     !LOCAL VARIABLES:
                0027
                0028 #ifdef ALLOW_MNC
                0029       IF (useMNC) THEN
                0030         CALL MYPACKAGE_MNC_INIT( myThid )
                0031       ENDIF
                0032 #endif /* ALLOW_MNC */
                0033
                0034 #ifdef ALLOW_DIAGNOSTICS
                0035       IF ( useDiagnostics ) THEN
                0036         CALL MYPACKAGE_DIAGNOSTICS_INIT( myThid )
                0037       ENDIF
                0038 #endif
                0039
                0040       RETURN
                0041       END