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

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

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

revision 1.4 by jmc, Fri Oct 19 03:22:25 2007 UTC revision 1.5 by jmc, Mon Nov 5 18:48:04 2007 UTC
# Line 19  C     !USES: Line 19  C     !USES:
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PARAMS.h"  #include "PARAMS.h"
21  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
22  #include "PTRACERS.h"  #include "PTRACERS_PARAMS.h"
23    #include "PTRACERS_FIELDS.h"
24    
25  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
26  C     myIter            :: time-step number  C     myIter            :: time-step number
# Line 49  C       Read variables from the pickup f Line 50  C       Read variables from the pickup f
50          CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid)          CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid)
51          DO iTracer = 1,PTRACERS_numInUse          DO iTracer = 1,PTRACERS_numInUse
52            CALL MNC_CW_RL_R('D',fn,0,0, PTRACERS_names(iTracer),            CALL MNC_CW_RL_R('D',fn,0,0, PTRACERS_names(iTracer),
53       &         gPtrNm1(1-OLx,1-OLy,1,1,1,iTracer),myThid)       &         gpTrNm1(1-OLx,1-OLy,1,1,1,iTracer),myThid)
54        _EXCH_XYZ_R8(gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),myThid)        _EXCH_XYZ_R8(gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),myThid)
55          ENDDO          ENDDO
56          CALL MNC_CW_SET_UDIM(fn, 2, myThid)          CALL MNC_CW_SET_UDIM(fn, 2, myThid)
57          DO iTracer = 1,PTRACERS_numInUse          DO iTracer = 1,PTRACERS_numInUse
# Line 91  C       Read historical tendencies as co Line 92  C       Read historical tendencies as co
92          DO iTracer=1,PTRACERS_num          DO iTracer=1,PTRACERS_num
93            iRec = iTracer + PTRACERS_num*2            iRec = iTracer + PTRACERS_num*2
94            CALL READ_REC_3D_RL( fn, prec, Nr,            CALL READ_REC_3D_RL( fn, prec, Nr,
95       O         gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),       O         gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),
96       I         iRec, myIter, myThid )       I         iRec, myIter, myThid )
97        _EXCH_XYZ_R8(gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),myThid)        _EXCH_XYZ_R8(gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),myThid)
98          ENDDO          ENDDO
99    
100        ELSE        ELSE
# Line 108  C       tracers, with write_pickup dumpi Line 109  C       tracers, with write_pickup dumpi
109       I         iRec, myIter, myThid )       I         iRec, myIter, myThid )
110            iRec = 2*iTracer            iRec = 2*iTracer
111            CALL READ_REC_3D_RL( fn, prec, Nr,            CALL READ_REC_3D_RL( fn, prec, Nr,
112       O         gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),       O         gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),
113       I         iRec, myIter, myThid )       I         iRec, myIter, myThid )
114        _EXCH_XYZ_R8(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid)        _EXCH_XYZ_R8(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid)
115        _EXCH_XYZ_R8(gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),myThid)        _EXCH_XYZ_R8(gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),myThid)
116          ENDDO          ENDDO
117    
118        ENDIF        ENDIF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22