/[MITgcm]/MITgcm/model/src/read_pickup.F
ViewVC logotype

Diff of /MITgcm/model/src/read_pickup.F

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

revision 1.9 by m_bates, Wed Sep 18 18:08:55 2013 UTC revision 1.10 by jmc, Fri Aug 15 19:22:06 2014 UTC
# Line 173  C---   Old way to read model fields: Line 173  C---   Old way to read model fields:
173            CALL READ_REC_3D_RL( fn, fp, Nr, gV,    5, myIter,myThid )            CALL READ_REC_3D_RL( fn, fp, Nr, gV,    5, myIter,myThid )
174            CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 6, myIter,myThid )            CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 6, myIter,myThid )
175            CALL READ_REC_3D_RL( fn, fp, Nr, theta, 7, myIter,myThid )            CALL READ_REC_3D_RL( fn, fp, Nr, theta, 7, myIter,myThid )
176            CALL READ_REC_3D_RL( fn, fp, Nr, gT,    8, myIter,myThid )  c         CALL READ_REC_3D_RL( fn, fp, Nr, gT,    8, myIter,myThid )
177            CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid )            CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid )
178            CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid )            CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid )
179            CALL READ_REC_3D_RL( fn, fp, Nr, gS,   11, myIter,myThid )  c         CALL READ_REC_3D_RL( fn, fp, Nr, gS,   11, myIter,myThid )
180            CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1,12, myIter,myThid )            CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1,12, myIter,myThid )
181  #endif /*  ALLOW_ADAMSBASHFORTH_3 */  #endif /*  ALLOW_ADAMSBASHFORTH_3 */
182            CALL READ_REC_3D_RL( fn, fp,  1, etaN,            CALL READ_REC_3D_RL( fn, fp,  1, etaN,
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22