pkg/thsice/thsice_init_fixed.F

C $Header:  $
C $Name:  $

#include "THSICE_OPTIONS.h"

CBOP
C     !ROUTINE: THSICE_INIT_FIXED
C     !INTERFACE:
      SUBROUTINE THSICE_INIT_FIXED( myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE THSICE_INIT_FIXED
C     | o Routine to initialize THSICE variables 
C     |   that are kept fixed during the run.
C     *==========================================================*
C     \ev
C     !USES:
      IMPLICIT NONE

C     === Global variables ===
#include "EEPARAMS.h"
#include "SIZE.h"
#include "PARAMS.h"
c #include "THSICE_PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     myThid ::  my thread Id number
      INTEGER myThid
CEOP

C     !LOCAL VARIABLES:
C     === Local variables ===

#ifdef ALLOW_DIAGNOSTICS
      IF ( useDiagnostics ) THEN
        CALL THSICE_DIAGNOSTICS_INIT( myThid )
      ENDIF
#endif

      RETURN
      END
1	C $Header: $
2	C $Name: $
3
4	#include "THSICE_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: THSICE_INIT_FIXED
8	C !INTERFACE:
9	SUBROUTINE THSICE_INIT_FIXED( myThid )
10
11	C !DESCRIPTION: \bv
12	C ==========================================================
13	C \| SUBROUTINE THSICE_INIT_FIXED
14	C \| o Routine to initialize THSICE variables
15	C \| that are kept fixed during the run.
16	C ==========================================================
17	C \ev
18	C !USES:
19	IMPLICIT NONE
20
21	C === Global variables ===
22	#include "EEPARAMS.h"
23	#include "SIZE.h"
24	#include "PARAMS.h"
25	c #include "THSICE_PARAMS.h"
26
27	C !INPUT/OUTPUT PARAMETERS:
28	C === Routine arguments ===
29	C myThid :: my thread Id number
30	INTEGER myThid
31	CEOP
32
33	C !LOCAL VARIABLES:
34	C === Local variables ===
35
36	#ifdef ALLOW_DIAGNOSTICS
37	IF ( useDiagnostics ) THEN
38	CALL THSICE_DIAGNOSTICS_INIT( myThid )
39	ENDIF
40	#endif
41
42	RETURN
43	END