/[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.2 by mmazloff, Thu Jun 5 21:26:26 2014 UTC revision 1.3 by mmazloff, Sun Feb 28 21:49:24 2016 UTC
# Line 67  C--   Read pickup file Line 67  C--   Read pickup file
67          pH_isLoaded = .TRUE.          pH_isLoaded = .TRUE.
68    
69          CALL READ_REC_3D_RL( fn, fp, Nr, irr_mem, 2, myIter, myThid )          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 )          CALL READ_REC_3D_RL( fn, fp, Nr, chl, 3, myIter, myThid )
71          CALL READ_REC_3D_RL( fn, fp, Nr, P_lg, 4, myIter, myThid )          CALL READ_REC_3D_RL( fn, fp, Nr, P_sm, 4, myIter, myThid )
72            CALL READ_REC_3D_RL( fn, fp, Nr, P_lg, 5, myIter, myThid )
73            CALL READ_REC_3D_RL( fn, fp, Nr, P_diaz, 6, myIter, myThid )
74    
75          _EXCH_XYZ_RL( pH, myThid )          _EXCH_XYZ_RL( pH, myThid )
76          _EXCH_XYZ_RL( irr_mem, myThid )          _EXCH_XYZ_RL( irr_mem, myThid )
77            _EXCH_XYZ_RL( chl, myThid )
78          _EXCH_XYZ_RL( P_sm, myThid )          _EXCH_XYZ_RL( P_sm, myThid )
79          _EXCH_XYZ_RL( P_lg, myThid )          _EXCH_XYZ_RL( P_lg, myThid )
80            _EXCH_XYZ_RL( P_diaz, myThid )
81    
82        ELSE        ELSE
83          pH_isLoaded = .FALSE.          pH_isLoaded = .FALSE.
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22