/[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.2 by jmc, Sun Jun 14 21:26:03 2009 UTC revision 1.3 by jmc, Wed Aug 24 22:34:15 2011 UTC
# Line 27  C     myThid            :: thread number Line 27  C     myThid            :: thread number
27        INTEGER myThid        INTEGER myThid
28    
29  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
30  #if (defined MYPACKAGE_3D_STATE) || (defined MYPACKAGE_3D_STATE)  #if (defined MYPACKAGE_3D_STATE) || (defined MYPACKAGE_2D_STATE)
31    
32  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
33  C     fn          :: character buffer for creating filename  C     fn          :: character buffer for creating filename
# Line 186  C-      Assume Agrid position: Line 186  C-      Assume Agrid position:
186          CALL EXCH_XY_RL( myPa_Surf2, myThid )          CALL EXCH_XY_RL( myPa_Surf2, myThid )
187  #endif /* MYPACKAGE_2D_STATE */  #endif /* MYPACKAGE_2D_STATE */
188    
189  #endif /* MYPACKAGE_3D_STATE or MYPACKAGE_3D_STATE */  #endif /* MYPACKAGE_3D_STATE or MYPACKAGE_2D_STATE */
190  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
191    
192        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22