/[MITgcm]/MITgcm/pkg/dic/dic_atmos.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_atmos.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by jmc, Thu Nov 8 22:35:23 2007 UTC revision 1.6 by jmc, Wed Nov 14 16:33:42 2007 UTC
# Line 73  c if coupled to atmsopheric model, use t Line 73  c if coupled to atmsopheric model, use t
73  c Co2 value passed from the coupler  c Co2 value passed from the coupler
74  #ifndef USE_ATMOSCO2  #ifndef USE_ATMOSCO2
75    
76        IF ( nThreads .GT. 1 ) THEN        IF ( nThreads .GT. 1 .AND.
77         &     ( gchem_int1.EQ.2 .OR. gchem_int1.EQ.3 ) ) THEN
78  C     Problem with I/O and global-sum for multi-threaded execution  C     Problem with I/O and global-sum for multi-threaded execution
79  C     Needs to be fixed before using this S/R in multi-threaded run  C     Needs to be fixed before using this S/R in multi-threaded run
80          STOP 'S/R DIC_ATMOS: multi-threaded not right'          STOP 'S/R DIC_ATMOS: multi-threaded not right'
# Line 107  c user specified value - set only once Line 108  c user specified value - set only once
108    
109           ENDDO           ENDDO
110          ENDDO          ENDDO
111         endif        endif
112    
113  c read from a file (note:  c read from a file (note:
114  c                   gchem_int2=number entries to read  c                   gchem_int2=number entries to read
115  c                   gchem_int3=start timestep,  c                   gchem_int3=start timestep,
116  c                   gchem_int4=timestep between file entries)  c                   gchem_int4=timestep between file entries)
117         if (gchem_int1.eq.2) then        if (gchem_int1.eq.2) then
118          if (istate.eq.0) then          if (istate.eq.0) then
119            OPEN(28,FILE='co2atmos.dat',STATUS='old')            OPEN(28,FILE='co2atmos.dat',STATUS='old')
120            do it=1,gchem_int2            do it=1,gchem_int2
# Line 150  c         print*,'weights',ntim, aWght, Line 151  c         print*,'weights',ntim, aWght,
151            ENDDO            ENDDO
152    
153    
154         endif        endif
155    
156    
157  c interactive atmosphere  c interactive atmosphere
# Line 295  c Line 296  c
296    
297  c     _END_MASTER(myThid)  c     _END_MASTER(myThid)
298    
299         endif        endif
300    
301  #endif  #endif
302  #endif  #endif
303    
304          RETURN        RETURN
305          END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22