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

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

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

revision 1.3 by jmc, Tue Jan 9 22:26:04 2007 UTC revision 1.4 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     permCheckPoint  :: permanent or a rolling checkpoint  C     permCheckPoint  :: permanent or a rolling checkpoint
# Line 70  C       First ***define*** the file grou Line 71  C       First ***define*** the file grou
71  C       Then set the actual unlimited dimension  C       Then set the actual unlimited dimension
72          CALL MNC_CW_SET_UDIM(fn, 1, myThid)          CALL MNC_CW_SET_UDIM(fn, 1, myThid)
73  C       The following two values should probably be for the n-1 time  C       The following two values should probably be for the n-1 time
74  C       step since we're saving the gPtrNm1 variable first  C       step since we're saving the gpTrNm1 variable first
75          CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)          CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)
76          CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)          CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)
77          DO iTracer = 1,PTRACERS_numInUse          DO iTracer = 1,PTRACERS_numInUse
78            CALL MNC_CW_RL_W('D',fn,0,0, PTRACERS_names(iTracer),            CALL MNC_CW_RL_W('D',fn,0,0, PTRACERS_names(iTracer),
79       &         gPtrNm1(1-OLx,1-OLy,1,1,1,iTracer),myThid)       &         gpTrNm1(1-OLx,1-OLy,1,1,1,iTracer),myThid)
80          ENDDO          ENDDO
81          CALL MNC_CW_SET_UDIM(fn, 2, myThid)          CALL MNC_CW_SET_UDIM(fn, 2, myThid)
82          CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)          CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)
# Line 109  C       "InUse". Line 110  C       "InUse".
110       &         iRec, myIter, myThid )       &         iRec, myIter, myThid )
111            iRec = 2*iTracer            iRec = 2*iTracer
112            CALL WRITE_REC_3D_RL( fn, prec, Nr,            CALL WRITE_REC_3D_RL( fn, prec, Nr,
113       &         gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),       &         gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),
114       &         iRec, myIter, myThid )       &         iRec, myIter, myThid )
115          ENDDO          ENDDO
116    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22