31 |
c _EXCH_XYZ_R8( gVNm1 , myThid ) |
c _EXCH_XYZ_R8( gVNm1 , myThid ) |
32 |
c _EXCH_XYZ_R8( gTNm1 , myThid ) |
c _EXCH_XYZ_R8( gTNm1 , myThid ) |
33 |
c _EXCH_XYZ_R8( gSNm1 , myThid ) |
c _EXCH_XYZ_R8( gSNm1 , myThid ) |
34 |
_EXCH_XYZ_R8( uVel , myThid ) |
c _EXCH_XYZ_R8( uVel , myThid ) |
35 |
_EXCH_XYZ_R8( vVel , myThid ) |
c _EXCH_XYZ_R8( vVel , myThid ) |
36 |
|
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
37 |
_EXCH_XYZ_R8( theta , myThid ) |
_EXCH_XYZ_R8( theta , myThid ) |
38 |
_EXCH_XYZ_R8( salt , myThid ) |
_EXCH_XYZ_R8( salt , myThid ) |
39 |
|
|