pkg/darwin/darwin_init_vari.F

C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_vari.F,v 1.1 2011/04/13 18:56:24 jahn Exp $
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

#ifdef CALC_RATE_TOTALS
c find unused units for darwin_rate output
        CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )
        open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')
#ifdef ALLOW_CARBON
        CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )
        open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')
#endif
#endif


#endif /* ALLOW_DARWIN */

      RETURN
      END
1	stephd	1.2	C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_vari.F,v 1.1 2011/04/13 18:56:24 jahn Exp $
2			C $Name: $
3	jahn	1.1
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	stephd	1.2	#ifdef CALC_RATE_TOTALS
47			c find unused units for darwin_rate output
48			CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )
49			open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')
50			#ifdef ALLOW_CARBON
51			CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )
52			open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')
53			#endif
54			#endif
55
56
57	jahn	1.1	#endif /* ALLOW_DARWIN */
58
59			RETURN
60			END