/[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.3 by jmc, Mon Oct 29 18:17:19 2007 UTC revision 1.4 by jmc, Sun Aug 24 21:38:19 2008 UTC
# Line 354  C-      read Full Pressure for EOS in pr Line 354  C-      read Full Pressure for EOS in pr
354       &                                     nj, fp, Nr, myIter, myThid )       &                                     nj, fp, Nr, myIter, myThid )
355          ENDIF          ENDIF
356  #endif  #endif
357    #ifdef ALLOW_ADDFLUID
358    C-    read mass source/sink of fluid
359            IF ( selectAddFluid.GE.1 ) THEN
360              CALL READ_MFLDS_3D_RL( 'AddMass ', addMass,
361         &                                     nj, fp, Nr, myIter, myThid )
362            ENDIF
363    #endif /* ALLOW_ADDFLUID */
364    
365  C---    read 2-D fields, starting with Eta:  C---    read 2-D fields, starting with Eta:
366            nj = nj*Nr            nj = nj*Nr
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22