/[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.1 - (hide annotations) (download)
Wed Apr 13 18:56:24 2011 UTC (14 years, 3 months ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt62v_20110413, ctrb_darwin2_ckpt62w_20110426, ctrb_darwin2_baseline
darwin2 initial checkin

1 jahn 1.1 C $Header$
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     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     #endif /* ALLOW_DARWIN */
47    
48     RETURN
49     END

  ViewVC Help
Powered by ViewVC 1.1.22