/[MITgcm]/MITgcm/pkg/dic/dic_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_read_pickup.F

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

revision 1.6 by jmc, Sun Sep 14 01:49:07 2008 UTC revision 1.7 by jmc, Tue Apr 28 18:10:47 2009 UTC
# Line 55  C--   Read pickup file Line 55  C--   Read pickup file
55          CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid )          CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid )
56          pH_isLoaded = .TRUE.          pH_isLoaded = .TRUE.
57    
58          _EXCH_XY_R8( pH, myThid )          _EXCH_XY_RL( pH, myThid )
59        ELSE        ELSE
60          pH_isLoaded = .FALSE.          pH_isLoaded = .FALSE.
61          IF ( pickupStrictlyMatch ) THEN          IF ( pickupStrictlyMatch ) THEN
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22