/[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.2 by jmc, Thu Oct 26 00:29:33 2006 UTC revision 1.3 by jmc, Tue Jan 9 22:26:03 2007 UTC
# Line 76  C       Read fields as consecutive recor Line 76  C       Read fields as consecutive recor
76        _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)
77          ENDDO          ENDDO
78    
79  C       Read historical tendancies as consecutive records  C       Read historical tendencies as consecutive records
80          DO iTracer=1,PTRACERS_num          DO iTracer=1,PTRACERS_num
81            iRec = iTracer + PTRACERS_num            iRec = iTracer + PTRACERS_num
82            CALL READ_REC_3D_RL( fn, prec, Nr,            CALL READ_REC_3D_RL( fn, prec, Nr,
# Line 93  C       Read historical tendancies as co Line 93  C       Read historical tendancies as co
93          ENDDO          ENDDO
94    
95        ELSE        ELSE
96  C       Read fields & tendancies (needed for AB) as consecutive records,  C       Read fields & tendencies (needed for AB) as consecutive records,
97  C       one tracer after the other, only for tracers "InUse".  Note:  C       one tracer after the other, only for tracers "InUse".  Note:
98  C       this allow to restart from a pickup with a different number of  C       this allow to restart from a pickup with a different number of
99  C       tracers, with write_pickup dumping all of them (PTRACERS_num).  C       tracers, with write_pickup dumping all of them (PTRACERS_num).
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22