/[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.3 by jmc, Tue Jan 9 22:26:03 2007 UTC revision 1.4 by jmc, Fri Oct 19 03:22:25 2007 UTC
# Line 63  C       Read variables from the pickup f Line 63  C       Read variables from the pickup f
63    
64        IF ( PTRACERS_pickup_read_mdsio ) THEN        IF ( PTRACERS_pickup_read_mdsio ) THEN
65    
66        WRITE(fn,'(A,I10.10)') 'pickup_ptracers.',myIter        IF ( pickupSuff.EQ.' ' ) THEN
67            WRITE(fn,'(A,I10.10)') 'pickup_ptracers.',myIter
68          ELSE
69            WRITE(fn,'(A,A10)')    'pickup_ptracers.',pickupSuff
70          ENDIF
71        prec = precFloat64        prec = precFloat64
72    
73        IF ( usePickupBeforeC54 ) THEN        IF ( usePickupBeforeC54 ) THEN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22