/[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.4 - (hide annotations) (download)
Wed Dec 7 20:04:00 2011 UTC (13 years, 7 months ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt64k_20130723, ctrb_darwin2_ckpt63l_20120405, ctrb_darwin2_ckpt64h_20130528, ctrb_darwin2_ckpt64m_20130820, ctrb_darwin2_ckpt64f_20130405, ctrb_darwin2_ckpt64a_20121116, ctrb_darwin2_ckpt64n_20130826, ctrb_darwin2_ckpt64o_20131024, ctrb_darwin2_ckpt64i_20130622, ctrb_darwin2_ckpt63o_20120629, ctrb_darwin2_ckpt64e_20130305, ctrb_darwin2_ckpt63i_20120124, ctrb_darwin2_ckpt63m_20120506, ctrb_darwin2_ckpt63s_20120908, ctrb_darwin2_ckpt63j_20120217, ctrb_darwin2_ckpt63r_20120817, ctrb_darwin2_ckpt64g_20130503, ctrb_darwin2_ckpt64l_20130806, ctrb_darwin2_ckpt63g_20111220, ctrb_darwin2_ckpt64c_20130120, ctrb_darwin2_ckpt64j_20130704, ctrb_darwin2_ckpt63h_20111230, ctrb_darwin2_ckpt63p_20120707, ctrb_darwin2_ckpt64p_20131118, ctrb_darwin2_ckpt63q_20120731, ctrb_darwin2_ckpt64b_20121224, ctrb_darwin2_ckpt64d_20130219, ctrb_darwin2_ckpt64_20121012, ctrb_darwin2_ckpt64q_20131118, ctrb_darwin2_ckpt64p_20131024, ctrb_darwin2_ckpt63n_20120604, ctrb_darwin2_ckpt63k_20120317
Changes since 1.3: +3 -2 lines
fix some multi-threading bits

1 jahn 1.4 C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_vari.F,v 1.3 2011/05/11 18:18:47 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 jahn 1.4 _BEGIN_MASTER( myThid )
36 jahn 1.1 CALL DARWIN_RANDOM_INIT(darwin_seed, myThid)
37 jahn 1.4 _END_MASTER( myThid )
38 jahn 1.1
39     #ifdef ALLOW_QUOTA
40     call QUOTA_INIT_VARI(myThid )
41     #endif
42    
43     #ifdef ALLOW_MONOD
44     call MONOD_INIT_VARI(myThid )
45     #endif
46    
47 stephd 1.2 #ifdef CALC_RATE_TOTALS
48     c find unused units for darwin_rate output
49 stephd 1.3 CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )
50     open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')
51 stephd 1.2 #ifdef ALLOW_CARBON
52 stephd 1.3 CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )
53     open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')
54 stephd 1.2 #endif
55     #endif
56    
57    
58 jahn 1.1 #endif /* ALLOW_DARWIN */
59    
60     RETURN
61     END

  ViewVC Help
Powered by ViewVC 1.1.22