model/src/initialise_varia.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/initialise_varia.F,v 1.5 2001/02/02 21:04:48 adcroft Exp $
C $Name: $

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE INITIALISE_VARIA(myThid)
C     /==========================================================\
C     | SUBROUTINE INITIALISE_VARIA                              |
C     | o Set the initial conditions for dynamics variables      |
C     |   and time dependent arrays                              |
C     |==========================================================|
C     | This routine reads/writes  data from an input file and   |
C     | from various binary files.                               |
C     | Each thread invokes an instance of this routine as does  |
C     | each process in a multi-process parallel environment like|
C     | MPI.                                                     |
C     \==========================================================/
      IMPLICIT NONE

C     == Global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#ifdef ALLOW_OBCS
#include "DYNVARS.h"
#endif

C     == Routine arguments ==
      INTEGER myThid
CEndOfInterface

C     == Local variables ==
      INTEGER bi,bj,K,iMin,iMax,jMin,jMax

      _BARRIER
C--   Initialise model fields.
C     Starting values of U, V, W, temp., salt. and tendency terms
C     are set here. Fields are either set to default or read from
C     stored files.
      CALL INI_FIELDS( myThid )
      _BARRIER

C--   Initial conditions are convectively adjusted (for historical reasons)
      IF ( startTime .EQ. 0. ) THEN
        DO bj = myByLo(myThid), myByHi(myThid)
         DO bi = myBxLo(myThid), myBxHi(myThid)
           iMin=1-Olx
           iMax=sNx+Olx
           jMin=1-Oly
           jMax=sNy+Oly
           CALL CONVECTIVE_ADJUSTMENT(
     I       bi, bj, iMin, iMax, jMin, jMax,
     I       startTime, 0, myThid )
         ENDDO
        ENDDO
        _BARRIER
      END IF

C--   Initialize variable data for packages
      CALL PACKAGES_INIT_VARIABLES( myThid )

C--   Finally summarise the model state
      CALL STATE_SUMMARY( myThid )

      END
1	C $Header: /u/gcmpack/models/MITgcmUV/model/src/initialise_varia.F,v 1.5 2001/02/02 21:04:48 adcroft Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CStartOfInterface
7	SUBROUTINE INITIALISE_VARIA(myThid)
8	C /==========================================================\
9	C \| SUBROUTINE INITIALISE_VARIA \|
10	C \| o Set the initial conditions for dynamics variables \|
11	C \| and time dependent arrays \|
12	C \|==========================================================\|
13	C \| This routine reads/writes data from an input file and \|
14	C \| from various binary files. \|
15	C \| Each thread invokes an instance of this routine as does \|
16	C \| each process in a multi-process parallel environment like\|
17	C \| MPI. \|
18	C \==========================================================/
19	IMPLICIT NONE
20
21	C == Global variables ==
22	#include "SIZE.h"
23	#include "EEPARAMS.h"
24	#include "PARAMS.h"
25	#ifdef ALLOW_OBCS
26	#include "DYNVARS.h"
27	#endif
28
29	C == Routine arguments ==
30	INTEGER myThid
31	CEndOfInterface
32
33	C == Local variables ==
34	INTEGER bi,bj,K,iMin,iMax,jMin,jMax
35
36	_BARRIER
37	C-- Initialise model fields.
38	C Starting values of U, V, W, temp., salt. and tendency terms
39	C are set here. Fields are either set to default or read from
40	C stored files.
41	CALL INI_FIELDS( myThid )
42	_BARRIER
43
44	C-- Initial conditions are convectively adjusted (for historical reasons)
45	IF ( startTime .EQ. 0. ) THEN
46	DO bj = myByLo(myThid), myByHi(myThid)
47	DO bi = myBxLo(myThid), myBxHi(myThid)
48	iMin=1-Olx
49	iMax=sNx+Olx
50	jMin=1-Oly
51	jMax=sNy+Oly
52	CALL CONVECTIVE_ADJUSTMENT(
53	I bi, bj, iMin, iMax, jMin, jMax,
54	I startTime, 0, myThid )
55	ENDDO
56	ENDDO
57	_BARRIER
58	END IF
59
60	C-- Initialize variable data for packages
61	CALL PACKAGES_INIT_VARIABLES( myThid )
62
63	C-- Finally summarise the model state
64	CALL STATE_SUMMARY( myThid )
65
66	END