model/src/ini_fields.F

C $Header: /u/u3/gcmpack/MITgcm/model/src/ini_fields.F,v 1.15 2003/06/05 16:03:05 adcroft Exp $
C $Name:  $

#include "PACKAGES_CONFIG.h"
#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: INI_FIELDS
C     !INTERFACE:
      SUBROUTINE INI_FIELDS( myThid )
C     !DESCRIPTION: \bv
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     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     myThid -  Number of this instance of INI_FIELDS
      INTEGER myThid
CEOP

C--   Set model variables to initial/restart conditions
      IF ( startTime .EQ. 0. .AND.  nIter0 .EQ. 0
     &     .AND. pickupSuff .EQ. ' ' ) THEN
       CALL INI_VEL( myThid )
       CALL INI_THETA( myThid )
       CALL INI_SALT( myThid )
       CALL INI_PSURF( myThid )
       CALL INI_PRESSURE( myThid )
#ifdef INCLUDE_EP_FORCING_CODE
       CALL INI_EP( myThid )
#endif
       IF (nonHydrostatic) CALL INI_PNH( myThid )
      ELSE
       IF ( nIter0 .EQ. 0 ) THEN
        nIter0 = INT(startTime/deltaTClock )
       ENDIF
       CALL READ_CHECKPOINT( nIter0, myThid )
      ENDIF

#ifdef ALLOW_CD_CODE
      IF (useCDscheme) CALL CD_CODE_INIT_VARS( nIter0, myThid )
#endif

      RETURN
      END
1	edhill	1.16	C $Header: /u/u3/gcmpack/MITgcm/model/src/ini_fields.F,v 1.15 2003/06/05 16:03:05 adcroft Exp $
2	adcroft	1.10	C $Name: $
3	cnh	1.1
4	edhill	1.16	#include "PACKAGES_CONFIG.h"
5	cnh	1.4	#include "CPP_OPTIONS.h"
6	cnh	1.1
7	cnh	1.12	CBOP
8			C !ROUTINE: INI_FIELDS
9			C !INTERFACE:
10	cnh	1.1	SUBROUTINE INI_FIELDS( myThid )
11	cnh	1.12	C !DESCRIPTION: \bv
12			C ==========================================================
13			C \| SUBROUTINE INI_FIELDS
14			C \| o Initialise model fields
15			C ==========================================================
16			C \| Initial conditions of the model state variables are
17			C \| set here. For continuation runs a restart file will be
18			C \| used. For original runs custom rules can be included
19			C \| here.
20			C ==========================================================
21			C \ev
22
23			C !USES:
24	adcroft	1.5	IMPLICIT NONE
25	cnh	1.1	C === Global variables ===
26			#include "SIZE.h"
27			#include "EEPARAMS.h"
28			#include "PARAMS.h"
29
30	cnh	1.12	C !INPUT/OUTPUT PARAMETERS:
31	cnh	1.1	C == Routine arguments ==
32			C myThid - Number of this instance of INI_FIELDS
33			INTEGER myThid
34	cnh	1.12	CEOP
35	cnh	1.1
36			C-- Set model variables to initial/restart conditions
37	adcroft	1.15	IF ( startTime .EQ. 0. .AND. nIter0 .EQ. 0
38			& .AND. pickupSuff .EQ. ' ' ) THEN
39	adcroft	1.10	CALL INI_VEL( myThid )
40	cnh	1.1	CALL INI_THETA( myThid )
41			CALL INI_SALT( myThid )
42	adcroft	1.6	CALL INI_PSURF( myThid )
43	mlosch	1.14	CALL INI_PRESSURE( myThid )
44	heimbach	1.13	#ifdef INCLUDE_EP_FORCING_CODE
45			CALL INI_EP( myThid )
46			#endif
47	adcroft	1.11	IF (nonHydrostatic) CALL INI_PNH( myThid )
48	cnh	1.1	ELSE
49	cnh	1.3	IF ( nIter0 .EQ. 0 ) THEN
50			nIter0 = INT(startTime/deltaTClock )
51			ENDIF
52			CALL READ_CHECKPOINT( nIter0, myThid )
53	cnh	1.1	ENDIF
54	edhill	1.16
55			#ifdef ALLOW_CD_CODE
56			IF (useCDscheme) CALL CD_CODE_INIT_VARS( nIter0, myThid )
57			#endif
58	cnh	1.1
59			RETURN
60			END