model/src/ini_fields.F

C $Header: /u/gcmpack/MITgcm/model/src/ini_fields.F,v 1.16 2003/10/30 12:00:41 edhill 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 ALLOW_CD_CODE
      IF (useCDscheme) 
     &      CALL CD_CODE_INI_VARS( myThid )
#endif
#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 )
#ifdef ALLOW_CD_CODE
       IF (useCDscheme) 
     &      CALL CD_CODE_READ_CHECKPOINT( nIter0, myThid )
#endif
      ENDIF

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/model/src/ini_fields.F,v 1.16 2003/10/30 12:00:41 edhill Exp $
2	C $Name: $
3
4	#include "PACKAGES_CONFIG.h"
5	#include "CPP_OPTIONS.h"
6
7	CBOP
8	C !ROUTINE: INI_FIELDS
9	C !INTERFACE:
10	SUBROUTINE INI_FIELDS( myThid )
11	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	IMPLICIT NONE
25	C === Global variables ===
26	#include "SIZE.h"
27	#include "EEPARAMS.h"
28	#include "PARAMS.h"
29
30	C !INPUT/OUTPUT PARAMETERS:
31	C == Routine arguments ==
32	C myThid - Number of this instance of INI_FIELDS
33	INTEGER myThid
34	CEOP
35
36	C-- Set model variables to initial/restart conditions
37	IF ( startTime .EQ. 0. .AND. nIter0 .EQ. 0
38	& .AND. pickupSuff .EQ. ' ' ) THEN
39	CALL INI_VEL( myThid )
40	CALL INI_THETA( myThid )
41	CALL INI_SALT( myThid )
42	CALL INI_PSURF( myThid )
43	CALL INI_PRESSURE( myThid )
44	#ifdef ALLOW_CD_CODE
45	IF (useCDscheme)
46	& CALL CD_CODE_INI_VARS( myThid )
47	#endif
48	#ifdef INCLUDE_EP_FORCING_CODE
49	CALL INI_EP( myThid )
50	#endif
51	IF (nonHydrostatic) CALL INI_PNH( myThid )
52	ELSE
53	IF ( nIter0 .EQ. 0 ) THEN
54	nIter0 = INT(startTime/deltaTClock )
55	ENDIF
56	CALL READ_CHECKPOINT( nIter0, myThid )
57	#ifdef ALLOW_CD_CODE
58	IF (useCDscheme)
59	& CALL CD_CODE_READ_CHECKPOINT( nIter0, myThid )
60	#endif
61	ENDIF
62
63	RETURN
64	END