/[MITgcm]/MITgcm/pkg/ptracers/ptracers_reset.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_reset.F

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

revision 1.1 by jmc, Tue Jan 22 23:39:30 2013 UTC revision 1.2 by jahn, Thu Mar 21 18:07:59 2013 UTC
# Line 42  C     i,j,k,bi,bj,iTracer  :: loop indic Line 42  C     i,j,k,bi,bj,iTracer  :: loop indic
42  C     msgBuf      :: Informational/error message buffer  C     msgBuf      :: Informational/error message buffer
43        INTEGER i,j,k,bi,bj,iTracer        INTEGER i,j,k,bi,bj,iTracer
44        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
45          CHARACTER*(MAX_LEN_FNAM) tmpInitialFile
46    
47  #ifdef PTRACERS_ALLOW_DYN_STATE  #ifdef PTRACERS_ALLOW_DYN_STATE
48        INTEGER n        INTEGER n
# Line 81  C     Initialise again this tracer array Line 82  C     Initialise again this tracer array
82          ENDDO          ENDDO
83    
84  C     Read initial conditions and exchange  C     Read initial conditions and exchange
85          IF ( PTRACERS_initialFile(iTracer) .NE. ' ' ) THEN          tmpInitialFile = ' '
86           CALL READ_FLD_XYZ_RL(PTRACERS_initialFile(iTracer),' ',          tmpInitialFile = PTRACERS_initialFile(iTracer)
87            IF ( tmpInitialFile .NE. ' ' ) THEN
88             CALL READ_FLD_XYZ_RL(tmpInitialFile,' ',
89       &        pTracer(1-OLx,1-OLy,1,1,1,iTracer),0,myThid)       &        pTracer(1-OLx,1-OLy,1,1,1,iTracer),0,myThid)
90           _EXCH_XYZ_RL(pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid)           _EXCH_XYZ_RL(pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid)
91          ENDIF          ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22