model/src/ini_fields.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/ini_fields.F,v 1.8 2001/03/12 20:41:02 jmc Exp $
C $Name: checkpoint37 $

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE INI_FIELDS( myThid )
C     /==========================================================\
C     | SUBROUTINE INI_FIELDS                                    |
C     | o Initialise model fields                                |
C     |==========================================================|
C     | Initial conditions of the model state variables are      |
C     | set here. For continuation runs a restart file will be   |
C     | used. For original runs custom rules can be included     |
C     | here.                                                    |
C     \==========================================================/
      IMPLICIT NONE

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

C     == Routine arguments ==
C     myThid -  Number of this instance of INI_FIELDS
      INTEGER myThid
CEndOfInterface

C--   Set model variables to initial/restart conditions
      IF ( startTime .EQ. 0. .AND.  nIter0 .EQ. 0 ) THEN
       CALL INI_UVEL( myThid )
       CALL INI_VVEL( myThid )
       CALL INI_WVEL( myThid )
       CALL INI_THETA( myThid )
       CALL INI_SALT( myThid )
       CALL INI_PSURF( myThid )
#ifdef ALLOW_NONHYDROSTATIC
       IF ( nonHydrostatic ) THEN
         CALL INI_GW( myThid )
       ENDIF
#endif
      ELSE
       IF ( nIter0 .EQ. 0 ) THEN
        nIter0 = INT(startTime/deltaTClock )
       ENDIF
       CALL READ_CHECKPOINT( nIter0, myThid )
      ENDIF

      RETURN
      END
1	heimbach	1.9	C $Header: /u/gcmpack/models/MITgcmUV/model/src/ini_fields.F,v 1.8 2001/03/12 20:41:02 jmc Exp $
2			C $Name: checkpoint37 $
3	cnh	1.1
4	cnh	1.4	#include "CPP_OPTIONS.h"
5	cnh	1.1
6			CStartOfInterface
7			SUBROUTINE INI_FIELDS( myThid )
8			C /==========================================================\
9			C \| SUBROUTINE INI_FIELDS \|
10			C \| o Initialise model fields \|
11			C \|==========================================================\|
12			C \| Initial conditions of the model state variables are \|
13			C \| set here. For continuation runs a restart file will be \|
14			C \| used. For original runs custom rules can be included \|
15			C \| here. \|
16			C \==========================================================/
17	adcroft	1.5	IMPLICIT NONE
18	cnh	1.1
19			C === Global variables ===
20			#include "SIZE.h"
21			#include "EEPARAMS.h"
22			#include "PARAMS.h"
23
24			C == Routine arguments ==
25			C myThid - Number of this instance of INI_FIELDS
26			INTEGER myThid
27			CEndOfInterface
28
29			C-- Set model variables to initial/restart conditions
30	cnh	1.4	IF ( startTime .EQ. 0. .AND. nIter0 .EQ. 0 ) THEN
31	cnh	1.1	CALL INI_UVEL( myThid )
32			CALL INI_VVEL( myThid )
33	heimbach	1.9	CALL INI_WVEL( myThid )
34	cnh	1.1	CALL INI_THETA( myThid )
35			CALL INI_SALT( myThid )
36	adcroft	1.6	CALL INI_PSURF( myThid )
37	jmc	1.8	#ifdef ALLOW_NONHYDROSTATIC
38			IF ( nonHydrostatic ) THEN
39			CALL INI_GW( myThid )
40			ENDIF
41			#endif
42	cnh	1.1	ELSE
43	cnh	1.3	IF ( nIter0 .EQ. 0 ) THEN
44			nIter0 = INT(startTime/deltaTClock )
45			ENDIF
46			CALL READ_CHECKPOINT( nIter0, myThid )
47	cnh	1.1	ENDIF
48
49			RETURN
50			END