pkg/thsice/thsice_init_fixed.F

ddc7b8ee22 Jean*0001 #include "THSICE_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: THSICE_INIT_FIXED
                0005 C     !INTERFACE:
                0006       SUBROUTINE THSICE_INIT_FIXED( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE THSICE_INIT_FIXED
                0011 C     | o Routine to initialize THSICE 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 c #include "THSICE_PARAMS.h"
                0023
                0024 C     !INPUT/OUTPUT PARAMETERS:
                0025 C     === Routine arguments ===
                0026 C     myThid ::  my thread Id number
                0027       INTEGER myThid
                0028 CEOP
                0029
                0030 C     !LOCAL VARIABLES:
                0031 C     === Local variables ===
                0032
df4e8f7bcf Ed H*0033 #ifdef ALLOW_MNC
                0034       IF ( useMNC ) THEN
                0035         CALL THSICE_MNC_INIT( myThid )
                0036       ENDIF
                0037 #endif
                0038
ddc7b8ee22 Jean*0039 #ifdef ALLOW_DIAGNOSTICS
                0040       IF ( useDiagnostics ) THEN
                0041         CALL THSICE_DIAGNOSTICS_INIT( myThid )
                0042       ENDIF
                0043 #endif
                0044
                0045       RETURN
                0046       END