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

Contents 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 - (show annotations) (download)
Wed Dec 7 20:04:00 2011 UTC (13 years, 8 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 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 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 _BEGIN_MASTER( myThid )
36 CALL DARWIN_RANDOM_INIT(darwin_seed, myThid)
37 _END_MASTER( myThid )
38
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 #ifdef CALC_RATE_TOTALS
48 c find unused units for darwin_rate output
49 CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )
50 open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')
51 #ifdef ALLOW_CARBON
52 CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )
53 open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')
54 #endif
55 #endif
56
57
58 #endif /* ALLOW_DARWIN */
59
60 RETURN
61 END
  ViewVC Help
Powered by ViewVC 1.1.22