/[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.3 by stephd, Wed May 11 18:18:47 2011 UTC
# Line 45  c seed randomization Line 45  c seed randomization
45    
46  #ifdef CALC_RATE_TOTALS  #ifdef CALC_RATE_TOTALS
47  c find unused units for darwin_rate output  c find unused units for darwin_rate output
48          CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )        CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )
49          open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')        open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')
50  #ifdef ALLOW_CARBON  #ifdef ALLOW_CARBON
51          CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )        CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )
52          open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')        open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')
53  #endif  #endif
54  #endif  #endif
55    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22