/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_vari.F
ViewVC logotype

Annotation of /MITgcm_contrib/darwin2/pkg/darwin/darwin_init_vari.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.3 - (hide annotations) (download)
Wed May 11 18:18:47 2011 UTC (14 years, 2 months ago) by stephd
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt63f_20111201, ctrb_darwin2_ckpt62y_20110526, ctrb_darwin2_ckpt62x_20110513, ctrb_darwin2_ckpt63c_20111011, ctrb_darwin2_ckpt63e_20111107, ctrb_darwin2_ckpt63b_20110830, ctrb_darwin2_ckpt63a_20110804, ctrb_darwin2_ckpt63d_20111107, ctrb_darwin2_ckpt63_20110728, ctrb_darwin2_ckpt62z_20110622
Changes since 1.2: +5 -5 lines
o line too long

1 stephd 1.3 C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_vari.F,v 1.2 2011/05/11 18:11:56 stephd 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     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 stephd 1.3 CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )
49     open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')
50 stephd 1.2 #ifdef ALLOW_CARBON
51 stephd 1.3 CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )
52     open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')
53 stephd 1.2 #endif
54     #endif
55    
56    
57 jahn 1.1 #endif /* ALLOW_DARWIN */
58    
59     RETURN
60     END

  ViewVC Help
Powered by ViewVC 1.1.22