/[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.4 by jahn, Wed Dec 7 20:04:00 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
# Line 46  c seed randomization Line 49  c seed randomization
49    
50  #ifdef CALC_RATE_TOTALS  #ifdef CALC_RATE_TOTALS
51  c find unused units for darwin_rate output  c find unused units for darwin_rate output
52        CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )        IF (MASTER_CPU_THREAD(myThid)) THEN
53        open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')         CALL MDSFINDUNIT( DAR_ratetot_unit, mythid )
54           open(DAR_ratetot_unit,file='darwin_ratetot.txt',status='unknown')
55  #ifdef ALLOW_CARBON  #ifdef ALLOW_CARBON
56        CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )         CALL MDSFINDUNIT( DAR_fluxtot_unit, mythid )
57        open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')         open(DAR_fluxtot_unit,file='darwin_fluxtot.txt',status='unknown')
58  #endif  #endif
59          ENDIF
60  #endif  #endif
61    
   
62  #endif /* ALLOW_DARWIN */  #endif /* ALLOW_DARWIN */
63    
64        RETURN        RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22