/[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.2 by stephd, Wed May 11 18:11:56 2011 UTC revision 1.4 by jahn, Wed Dec 7 20:04:00 2011 UTC
# Line 32  CEOP Line 32  CEOP
32  c set up ecosystem coefficients  c set up ecosystem coefficients
33  c  c
34  c seed randomization  c seed randomization
35          _BEGIN_MASTER( myThid )
36        CALL DARWIN_RANDOM_INIT(darwin_seed, myThid)        CALL DARWIN_RANDOM_INIT(darwin_seed, myThid)
37          _END_MASTER( myThid )
38    
39  #ifdef ALLOW_QUOTA  #ifdef ALLOW_QUOTA
40        call QUOTA_INIT_VARI(myThid )        call QUOTA_INIT_VARI(myThid )
# Line 45  c seed randomization Line 46  c seed randomization
46    
47  #ifdef CALC_RATE_TOTALS  #ifdef CALC_RATE_TOTALS
48  c find unused units for darwin_rate output  c find unused units for darwin_rate output
49          CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )        CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )
50          open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')        open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')
51  #ifdef ALLOW_CARBON  #ifdef ALLOW_CARBON
52          CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )        CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )
53          open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')        open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')
54  #endif  #endif
55  #endif  #endif
56    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22