/[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.7 by jmc, Fri Nov 9 22:37:05 2012 UTC revision 1.8 by m_bates, Sun Sep 15 14:28:31 2013 UTC
# Line 37  C     !USES: Line 37  C     !USES:
37  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
38  # include "MNC_PARAMS.h"  # include "MNC_PARAMS.h"
39  #endif  #endif
40    #ifdef ALLOW_EDDYPSI && ALLOW_GMREDI
41    # include "GMREDI.h"
42    #endif
43    
44  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
45  C     myIter :: Iteration number  C     myIter :: Iteration number
# Line 261  C---    read State 3-D fields for restar Line 264  C---    read State 3-D fields for restar
264       &                                     nj, fp, Nr, myIter, myThid )       &                                     nj, fp, Nr, myIter, myThid )
265            CALL READ_MFLDS_3D_RL( 'Vvel    ', vVel,            CALL READ_MFLDS_3D_RL( 'Vvel    ', vVel,
266       &                                     nj, fp, Nr, myIter, myThid )       &                                     nj, fp, Nr, myIter, myThid )
267    #ifdef ALLOW_EDDYPSI && ALLOW_GMREDI
268              IF (GM_InMomAsStress) THEN
269                CALL READ_MFLDS_3D_RL( 'Umean   ', uMean,
270         &                                      nj, fp, Nr, myIter, myThid )
271                CALL READ_MFLDS_3D_RL( 'Vmean   ', vMean,
272         &                                      nj, fp, Nr, myIter, myThid )
273              ENDIF
274    #endif
275            CALL READ_MFLDS_3D_RL( 'Theta   ', theta,            CALL READ_MFLDS_3D_RL( 'Theta   ', theta,
276       &                                     nj, fp, Nr, myIter, myThid )       &                                     nj, fp, Nr, myIter, myThid )
277            CALL READ_MFLDS_3D_RL( 'Salt    ', salt,            CALL READ_MFLDS_3D_RL( 'Salt    ', salt,
# Line 439  C--   end: pickup_read_mdsio Line 450  C--   end: pickup_read_mdsio
450          CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid)          CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid)
451          CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid)
452          CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, myThid)
453    #ifdef ALLOW_EDDYPSI && ALLOW_GMREDI
454            IF (GM_InMomAsStress) THEN
455              CALL MNC_CW_RL_R('D',fn,0,0,'Umean',uMean, myThid)
456              CALL MNC_CW_RL_R('D',fn,0,0,'Vmean',vMean, myThid)
457            ENDIF
458    #endif
459          CALL MNC_CW_RL_R('D',fn,0,0,'Temp',theta, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'Temp',theta, myThid)
460          CALL MNC_CW_RL_R('D',fn,0,0,'S',salt, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'S',salt, myThid)
461          CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid)
# Line 479  C---+----1----+----2----+----3----+----4 Line 496  C---+----1----+----2----+----3----+----4
496    
497  C     Fill in edge regions  C     Fill in edge regions
498        CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid )        CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid )
499    #ifdef ALLOW_EDDYPSI && ALLOW_GMREDI
500          IF (GM_InMomAsStress) THEN
501            CALL EXCH_UV_3D_RL( uMean, vMean, .TRUE., Nr, myThid )
502          ENDIF
503    #endif
504        CALL EXCH_3D_RL( theta, Nr, myThid )        CALL EXCH_3D_RL( theta, Nr, myThid )
505        CALL EXCH_3D_RL( salt,  Nr, myThid )        CALL EXCH_3D_RL( salt,  Nr, myThid )
506  #ifdef ALLOW_ADAMSBASHFORTH_3  #ifdef ALLOW_ADAMSBASHFORTH_3
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22