/[MITgcm]/MITgcm/pkg/mypackage/mypackage_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/mypackage/mypackage_read_pickup.F

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

revision 1.3 by jmc, Wed Aug 24 22:34:15 2011 UTC revision 1.4 by jmc, Thu Aug 25 03:08:41 2011 UTC
# Line 139  C---    read MYPACKAGE 2-D fields for re Line 139  C---    read MYPACKAGE 2-D fields for re
139  #ifdef MYPACKAGE_2D_STATE  #ifdef MYPACKAGE_2D_STATE
140          CALL READ_MFLDS_3D_RL( 'myPaSur1', myPa_Surf1,          CALL READ_MFLDS_3D_RL( 'myPaSur1', myPa_Surf1,
141       &                                 nj, fp, 1 , myIter, myThid )       &                                 nj, fp, 1 , myIter, myThid )
142          CALL READ_MFLDS_3D_RL( 'myPaSur2', myPa_Surf1,          CALL READ_MFLDS_3D_RL( 'myPaSur2', myPa_Surf2,
143       &                                 nj, fp, 1 , myIter, myThid )       &                                 nj, fp, 1 , myIter, myThid )
144  #endif /* MYPACKAGE_2D_STATE */  #endif /* MYPACKAGE_2D_STATE */
145    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22