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