model/src/ini_fields.F

C $Id$

#include "CPP_EEOPTIONS.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     \==========================================================/

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. ) THEN
       CALL INI_UVEL( myThid )
       CALL INI_VVEL( myThid )
       CALL INI_THETA( myThid )
       CALL INI_SALT( myThid )
      ELSE
      ENDIF

      RETURN
      END
1	cnh	1.1	C $Id$
2
3			#include "CPP_EEOPTIONS.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
17			C === Global variables ===
18			#include "SIZE.h"
19			#include "EEPARAMS.h"
20			#include "PARAMS.h"
21
22			C == Routine arguments ==
23			C myThid - Number of this instance of INI_FIELDS
24			INTEGER myThid
25			CEndOfInterface
26
27			C-- Set model variables to initial/restart conditions
28			IF ( startTime .EQ. 0. ) THEN
29			CALL INI_UVEL( myThid )
30			CALL INI_VVEL( myThid )
31			CALL INI_THETA( myThid )
32			CALL INI_SALT( myThid )
33			ELSE
34			ENDIF
35
36			RETURN
37			END