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

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

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

revision 1.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.5 by jahn, Wed Dec 4 21:19:12 2013 UTC
# Line 25  CEOP Line 25  CEOP
25    
26  #ifdef ALLOW_DARWIN  #ifdef ALLOW_DARWIN
27    
28  C     !LOCAL VARIABLES:  C !FUNCTIONS: ==========================================================
29  C     === Local variables ===        LOGICAL MASTER_CPU_THREAD
30  CEOP        EXTERNAL MASTER_CPU_THREAD
31    
32    C !LOCAL VARIABLES: ====================================================
33          INTEGER i,j,bi,bj
34    
35  c set up ecosystem coefficients  c set up ecosystem coefficients
36  c  c
37  c seed randomization  c seed randomization
38          _BEGIN_MASTER( myThid )
39        CALL DARWIN_RANDOM_INIT(darwin_seed, myThid)        CALL DARWIN_RANDOM_INIT(darwin_seed, myThid)
40          _END_MASTER( myThid )
41    
42  #ifdef ALLOW_QUOTA  #ifdef ALLOW_QUOTA
43        call QUOTA_INIT_VARI(myThid )        call QUOTA_INIT_VARI(myThid )
# Line 43  c seed randomization Line 47  c seed randomization
47        call MONOD_INIT_VARI(myThid )        call MONOD_INIT_VARI(myThid )
48  #endif  #endif
49    
50    #ifdef CALC_RATE_TOTALS
51    c find unused units for darwin_rate output
52          IF (MASTER_CPU_THREAD(myThid)) THEN
53           CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )
54           open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')
55    #ifdef ALLOW_CARBON
56           CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )
57           open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')
58    #endif
59          ENDIF
60    #endif
61    
62  #endif /* ALLOW_DARWIN */  #endif /* ALLOW_DARWIN */
63    
64        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22