/[MITgcm]/MITgcm/pkg/gchem/gchem_forcing_sep.F
ViewVC logotype

Diff of /MITgcm/pkg/gchem/gchem_forcing_sep.F

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

revision 1.9 by mlosch, Fri Nov 19 21:28:47 2004 UTC revision 1.10 by mlosch, Tue Nov 23 20:20:46 2004 UTC
# Line 44  C  k                    :: vertical leve Line 44  C  k                    :: vertical leve
44  CEOP  CEOP
45    
46  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
47    #ifdef GCHEM_SEPARATE_FORCING
48    
49         _BARRIER         _BARRIER
50         _BEGIN_MASTER( mythid )         _BEGIN_MASTER( mythid )
# Line 106  c Line 107  c
107  #endif  #endif
108  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc  cccccccccccccccccccccccccc END DIC cccccccccccccccccccccccccccccccccc
109    
 #ifdef PTRACERS_SEPARATE_FORCING  
 C     time averaging directly, here otherwise in the_correction_step  
            CALL PTRACERS_STATVARS(myTime, myIter, bi, bj, myThid)  
 #endif /* PTRACERS_SEPARATE_FORCING */  
   
110  c  c
111          ENDDO          ENDDO
112         ENDDO         ENDDO
113    
114    #endif /* GCHEM_SEPARATE_FORCING */
115  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
116    
117        RETURN        RETURN
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22