/[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.8 by jmc, Mon Mar 14 01:38:04 2011 UTC
# Line 29  C     !LOCAL VARIABLES: Line 29  C     !LOCAL VARIABLES:
29  C     == Local variables ==  C     == Local variables ==
30        CHARACTER*(MAX_LEN_FNAM) fn, filNam        CHARACTER*(MAX_LEN_FNAM) fn, filNam
31        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
32        LOGICAL fileExist        LOGICAL useCurrentDir, fileExist
33        INTEGER fp, ioUnit        INTEGER fp, ioUnit
34  CEOP  CEOP
35    
# Line 45  C--   pickup file name : Line 45  C--   pickup file name :
45        fp = precFloat64        fp = precFloat64
46    
47  C--   First check if pickup file exist  C--   First check if pickup file exist
48    #ifdef ALLOW_MDSIO
49          useCurrentDir = .FALSE.
50        CALL MDS_CHECK4FILE(        CALL MDS_CHECK4FILE(
51       I                     fn, '.data', 'DIC_READ_PICKUP',       I                     fn, '.data', 'DIC_READ_PICKUP',
52       O                     filNam, fileExist,       O                     filNam, fileExist,
53       I                     myThid )       I                     useCurrentDir, myThid )
54    #else
55          STOP 'ABNORMAL END: S/R DIC_READ_PICKUP: Needs MDSIO pkg'
56    #endif
57    
58        IF ( fileExist ) THEN        IF ( fileExist ) THEN
59  C--   Read pickup file  C--   Read pickup file
60          CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid )          CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid )
61          pH_isLoaded = .TRUE.          pH_isLoaded = .TRUE.
62    
63          _EXCH_XY_R8( pH, myThid )          _EXCH_XY_RL( pH, myThid )
64        ELSE        ELSE
65          pH_isLoaded = .FALSE.          pH_isLoaded = .FALSE.
66          IF ( pickupStrictlyMatch ) THEN          IF ( pickupStrictlyMatch ) THEN
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22