/[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.2 by jmc, Tue Oct 23 15:22:04 2007 UTC revision 1.3 by jmc, Mon Oct 29 18:17:19 2007 UTC
# Line 258  C---    read 3-D fields for AB-restart Line 258  C---    read 3-D fields for AB-restart
258  #ifdef ALLOW_ADAMSBASHFORTH_3  #ifdef ALLOW_ADAMSBASHFORTH_3
259           m1 = 1 + MOD(myIter+1,2)           m1 = 1 + MOD(myIter+1,2)
260           m2 = 1 + MOD( myIter ,2)           m2 = 1 + MOD( myIter ,2)
261            IF ( momStepping ) THEN
262  C--     U velocity:  C--     U velocity:
263           IF ( alph_AB.NE.0. .OR. beta_AB.NE.0. ) THEN           IF ( alph_AB.NE.0. .OR. beta_AB.NE.0. ) THEN
264            CALL READ_MFLDS_3D_RL( 'GuNm1   ',guNm(1-Olx,1-Oly,1,1,1,m1),            CALL READ_MFLDS_3D_RL( 'GuNm1   ',guNm(1-Olx,1-Oly,1,1,1,m1),
# Line 276  C--     V velocity: Line 277  C--     V velocity:
277            CALL READ_MFLDS_3D_RL( 'GvNm2   ',gvNm(1-Olx,1-Oly,1,1,1,m2),            CALL READ_MFLDS_3D_RL( 'GvNm2   ',gvNm(1-Olx,1-Oly,1,1,1,m2),
278       &                                     nj, fp, Nr, myIter, myThid )       &                                     nj, fp, Nr, myIter, myThid )
279           ENDIF           ENDIF
280            ENDIF
281  C--     Temperature:  C--     Temperature:
282          IF ( AdamsBashforthGt ) THEN          IF ( AdamsBashforthGt ) THEN
283           IF ( alph_AB.NE.0. .OR. beta_AB.NE.0. ) THEN           IF ( alph_AB.NE.0. .OR. beta_AB.NE.0. ) THEN
# Line 317  C--     Salinity: Line 319  C--     Salinity:
319           ENDIF           ENDIF
320          ENDIF          ENDIF
321  #else /*  ALLOW_ADAMSBASHFORTH_3 */  #else /*  ALLOW_ADAMSBASHFORTH_3 */
322            IF ( momStepping ) THEN
323  C--     U velocity:  C--     U velocity:
324            CALL READ_MFLDS_3D_RL( 'GuNm1   ', guNm1,            CALL READ_MFLDS_3D_RL( 'GuNm1   ', guNm1,
325       &                                     nj, fp, Nr, myIter, myThid )       &                                     nj, fp, Nr, myIter, myThid )
326  C--     V velocity:  C--     V velocity:
327            CALL READ_MFLDS_3D_RL( 'GvNm1   ', gvNm1,            CALL READ_MFLDS_3D_RL( 'GvNm1   ', gvNm1,
328       &                                     nj, fp, Nr, myIter, myThid )       &                                     nj, fp, Nr, myIter, myThid )
329            ENDIF
330  C--     Temperature  C--     Temperature
331          IF ( AdamsBashforthGt ) THEN          IF ( AdamsBashforthGt ) THEN
332            CALL READ_MFLDS_3D_RL( 'GtNm1   ', gtNm1,            CALL READ_MFLDS_3D_RL( 'GtNm1   ', gtNm1,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22