18 |
#include "SIZE.h" |
#include "SIZE.h" |
19 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
20 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
21 |
|
#include "TR1.h" |
22 |
|
|
23 |
C == Routine arguments == |
C == Routine arguments == |
24 |
C myThid - Thread number for this instance of the routine. |
C myThid - Thread number for this instance of the routine. |
37 |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
38 |
_EXCH_XYZ_R8( theta , myThid ) |
_EXCH_XYZ_R8( theta , myThid ) |
39 |
_EXCH_XYZ_R8( salt , myThid ) |
_EXCH_XYZ_R8( salt , myThid ) |
40 |
|
_EXCH_XYZ_R8( Tr1 , myThid ) |
41 |
|
|
42 |
#ifdef INCLUDE_CD_CODE |
#ifdef INCLUDE_CD_CODE |
43 |
c _EXCH_XYZ_R8( guCD , myThid ) |
c _EXCH_XYZ_R8( guCD , myThid ) |