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 |
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 |