/[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.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 43  c seed randomization Line 44  c seed randomization
44        call MONOD_INIT_VARI(myThid )        call MONOD_INIT_VARI(myThid )
45  #endif  #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 */  #endif /* ALLOW_DARWIN */
59    
60        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22