/[MITgcm]/MITgcm_contrib/bling/pkg/bling_read_pickup.F
ViewVC logotype

Diff of /MITgcm_contrib/bling/pkg/bling_read_pickup.F

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

revision 1.1 by mmazloff, Fri May 23 17:33:43 2014 UTC revision 1.2 by mmazloff, Thu Jun 5 21:26:26 2014 UTC
# Line 44  CEOP Line 44  CEOP
44    
45  C--   pickup file name :  C--   pickup file name :
46        IF (pickupSuff.EQ.' ') THEN        IF (pickupSuff.EQ.' ') THEN
47          WRITE(fn,'(A,I10.10)') 'pickup_dic.', myIter          WRITE(fn,'(A,I10.10)') 'pickup_bling.', myIter
48        ELSE        ELSE
49          WRITE(fn,'(A,A10)') 'pickup_dic.', pickupSuff          WRITE(fn,'(A,A10)') 'pickup_bling.', pickupSuff
50        ENDIF        ENDIF
51        fp = precFloat64        fp = precFloat64
52    
# Line 66  C--   Read pickup file Line 66  C--   Read pickup file
66          CALL READ_REC_3D_RL( fn, fp, Nr, pH, 1, myIter, myThid )          CALL READ_REC_3D_RL( fn, fp, Nr, pH, 1, myIter, myThid )
67          pH_isLoaded = .TRUE.          pH_isLoaded = .TRUE.
68    
69            CALL READ_REC_3D_RL( fn, fp, Nr, irr_mem, 2, myIter, myThid )
70            CALL READ_REC_3D_RL( fn, fp, Nr, P_sm, 3, myIter, myThid )
71            CALL READ_REC_3D_RL( fn, fp, Nr, P_lg, 4, myIter, myThid )
72    
73          _EXCH_XYZ_RL( pH, myThid )          _EXCH_XYZ_RL( pH, myThid )
74            _EXCH_XYZ_RL( irr_mem, myThid )
75            _EXCH_XYZ_RL( P_sm, myThid )
76            _EXCH_XYZ_RL( P_lg, myThid )
77    
78        ELSE        ELSE
79          pH_isLoaded = .FALSE.          pH_isLoaded = .FALSE.
80          IF ( pickupStrictlyMatch ) THEN          IF ( pickupStrictlyMatch ) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22