pkg/darwin/darwin_init_vari.F

C $Header$
C $Name$

#include "DARWIN_OPTIONS.h"

C !INTERFACE: ==========================================================
      SUBROUTINE DARWIN_INIT_VARI(myThid )

C !DESCRIPTION:
C calls subroutines that initialize any time dependent variables
C for any tracer experiment

C !USES: ===============================================================
      IMPLICIT NONE

#include "SIZE.h"
#include "EEPARAMS.h"
#include "DARWIN_SIZE.h"
#include "DARWIN_IO.h"

C !INPUT PARAMETERS: ===================================================
C  myThid               :: thread number
      INTEGER myThid
CEOP

#ifdef ALLOW_DARWIN

C     !LOCAL VARIABLES:
C     === Local variables ===
CEOP

c set up ecosystem coefficients
c
c seed randomization
      CALL DARWIN_RANDOM_INIT(darwin_seed, myThid)


#ifdef ALLOW_QUOTA
      call QUOTA_INIT_VARI(myThid )
#endif

#ifdef ALLOW_MONOD
      call MONOD_INIT_VARI(myThid )
#endif

#endif /* ALLOW_DARWIN */

      RETURN
      END
1	C $Header$
2	C $Name$
3
4	#include "DARWIN_OPTIONS.h"
5
6	C !INTERFACE: ==========================================================
7	SUBROUTINE DARWIN_INIT_VARI(myThid )
8
9	C !DESCRIPTION:
10	C calls subroutines that initialize any time dependent variables
11	C for any tracer experiment
12
13	C !USES: ===============================================================
14	IMPLICIT NONE
15
16	#include "SIZE.h"
17	#include "EEPARAMS.h"
18	#include "DARWIN_SIZE.h"
19	#include "DARWIN_IO.h"
20
21	C !INPUT PARAMETERS: ===================================================
22	C myThid :: thread number
23	INTEGER myThid
24	CEOP
25
26	#ifdef ALLOW_DARWIN
27
28	C !LOCAL VARIABLES:
29	C === Local variables ===
30	CEOP
31
32	c set up ecosystem coefficients
33	c
34	c seed randomization
35	CALL DARWIN_RANDOM_INIT(darwin_seed, myThid)
36
37
38	#ifdef ALLOW_QUOTA
39	call QUOTA_INIT_VARI(myThid )
40	#endif
41
42	#ifdef ALLOW_MONOD
43	call MONOD_INIT_VARI(myThid )
44	#endif
45
46	#endif /* ALLOW_DARWIN */
47
48	RETURN
49	END