/[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.10 by jmc, Sat Jan 2 23:42:51 2010 UTC revision 1.11 by jmc, Tue Mar 16 00:22:26 2010 UTC
# Line 88  C       First ***define*** the file grou Line 88  C       First ***define*** the file grou
88  C       Then set the actual unlimited dimension  C       Then set the actual unlimited dimension
89          CALL MNC_CW_SET_UDIM(fn, 1, myThid)          CALL MNC_CW_SET_UDIM(fn, 1, myThid)
90  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
91  C       step since we're saving the gpTrNm1 variable first  C       step since we are saving the gpTrNm1 variable first
92          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)
93          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)
94          DO iTracer = 1,PTRACERS_numInUse          DO iTracer = 1,PTRACERS_numInUse
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22