1 |
jahn |
1.7 |
C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_vari.F,v 1.6 2013/12/04 21:21:49 jahn Exp $ |
2 |
stephd |
1.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 |
jahn |
1.5 |
C !FUNCTIONS: ========================================================== |
29 |
|
|
LOGICAL MASTER_CPU_THREAD |
30 |
|
|
EXTERNAL MASTER_CPU_THREAD |
31 |
|
|
|
32 |
|
|
C !LOCAL VARIABLES: ==================================================== |
33 |
|
|
INTEGER i,j,bi,bj |
34 |
jahn |
1.1 |
|
35 |
|
|
c set up ecosystem coefficients |
36 |
|
|
c |
37 |
|
|
c seed randomization |
38 |
jahn |
1.4 |
_BEGIN_MASTER( myThid ) |
39 |
jahn |
1.1 |
CALL DARWIN_RANDOM_INIT(darwin_seed, myThid) |
40 |
jahn |
1.4 |
_END_MASTER( myThid ) |
41 |
jahn |
1.6 |
_BARRIER |
42 |
jahn |
1.1 |
|
43 |
jahn |
1.7 |
DO bj = myByLo(myThid), myByHi(myThid) |
44 |
|
|
DO bi = myBxLo(myThid), myBxHi(myThid) |
45 |
|
|
DO j=1-Oly,sNy+Oly |
46 |
|
|
DO i=1-Olx,sNx+Olx |
47 |
|
|
FIce(i,j,bi,bj) = 0. _d 0 |
48 |
|
|
ENDDO |
49 |
|
|
ENDDO |
50 |
|
|
ENDDO |
51 |
|
|
ENDDO |
52 |
|
|
|
53 |
jahn |
1.1 |
#ifdef ALLOW_QUOTA |
54 |
|
|
call QUOTA_INIT_VARI(myThid ) |
55 |
|
|
#endif |
56 |
|
|
|
57 |
|
|
#ifdef ALLOW_MONOD |
58 |
|
|
call MONOD_INIT_VARI(myThid ) |
59 |
|
|
#endif |
60 |
|
|
|
61 |
stephd |
1.2 |
#ifdef CALC_RATE_TOTALS |
62 |
|
|
c find unused units for darwin_rate output |
63 |
jahn |
1.5 |
IF (MASTER_CPU_THREAD(myThid)) THEN |
64 |
|
|
CALL MDSFINDUNIT( DAR_ratetot_unit, mythid ) |
65 |
|
|
open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown') |
66 |
stephd |
1.2 |
#ifdef ALLOW_CARBON |
67 |
jahn |
1.5 |
CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid ) |
68 |
|
|
open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown') |
69 |
stephd |
1.2 |
#endif |
70 |
jahn |
1.5 |
ENDIF |
71 |
stephd |
1.2 |
#endif |
72 |
|
|
|
73 |
jahn |
1.1 |
#endif /* ALLOW_DARWIN */ |
74 |
|
|
|
75 |
|
|
RETURN |
76 |
|
|
END |