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

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

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

revision 1.6 by jmc, Fri May 9 21:44:31 2008 UTC revision 1.7 by jmc, Tue Apr 28 18:18:29 2009 UTC
# Line 90  C     Now read initial conditions and al Line 90  C     Now read initial conditions and al
90          IF ( PTRACERS_initialFile(iTracer) .NE. ' ' ) THEN          IF ( PTRACERS_initialFile(iTracer) .NE. ' ' ) THEN
91           CALL READ_FLD_XYZ_RL(PTRACERS_initialFile(iTracer),' ',           CALL READ_FLD_XYZ_RL(PTRACERS_initialFile(iTracer),' ',
92       &        pTracer(1-Olx,1-Oly,1,1,1,iTracer),0,myThid)       &        pTracer(1-Olx,1-Oly,1,1,1,iTracer),0,myThid)
93           _EXCH_XYZ_R8(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid)           _EXCH_XYZ_RL(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid)
94          ENDIF          ENDIF
95         ENDDO         ENDDO
96        ENDIF        ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22