model/src/ini_fields.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/ini_fields.F,v 1.5 1998/12/09 16:11:52 adcroft Exp $

#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_THETA( myThid )
       CALL INI_SALT( myThid )
       CALL INI_PSURF( myThid )
      ELSE
       IF ( nIter0 .EQ. 0 ) THEN
        nIter0 = INT(startTime/deltaTClock )
       ENDIF
       CALL READ_CHECKPOINT( nIter0, myThid )
      ENDIF

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