| 1 | MODULE trddyn_oce |
|---|
| 2 | !!====================================================================== |
|---|
| 3 | !! *** trddyn_oce *** |
|---|
| 4 | !! Ocean trends : dynamical trends arrays defined in memory |
|---|
| 5 | !!====================================================================== |
|---|
| 6 | #if defined key_trddyn || defined key_esopa |
|---|
| 7 | !!---------------------------------------------------------------------- |
|---|
| 8 | !! 'key_trddyn' momentum trend diagnostics |
|---|
| 9 | !!---------------------------------------------------------------------- |
|---|
| 10 | !! * Modules used |
|---|
| 11 | USE par_oce ! ocean parameters |
|---|
| 12 | |
|---|
| 13 | IMPLICIT NONE |
|---|
| 14 | PUBLIC |
|---|
| 15 | |
|---|
| 16 | REAL(wp) :: & |
|---|
| 17 | tvols, & ! volume of the whole ocean computed at t-points |
|---|
| 18 | tvolu, & ! volume of the whole ocean computed at u-points |
|---|
| 19 | tvolv, & ! volume of the whole ocean computed at v-points |
|---|
| 20 | rpktrd ! potential to kinetic energy conversion |
|---|
| 21 | REAL(wp), DIMENSION(jpi,jpj,jpk,9) :: & |
|---|
| 22 | utrd, & ! trends of the momentum equation |
|---|
| 23 | vtrd |
|---|
| 24 | REAL(wp), DIMENSION(jpi,jpj,jpk,2) :: & |
|---|
| 25 | utrd2, & ! trend with the free surface formulation |
|---|
| 26 | vtrd2 |
|---|
| 27 | REAL(wp), DIMENSION(jpi,jpj,4) :: & |
|---|
| 28 | tautrd ! momentum forcing trends |
|---|
| 29 | #else |
|---|
| 30 | !!---------------------------------------------------------------------- |
|---|
| 31 | !! Default case NO momentum trend diagnostics |
|---|
| 32 | !!---------------------------------------------------------------------- |
|---|
| 33 | #endif |
|---|
| 34 | !!---------------------------------------------------------------------- |
|---|
| 35 | END MODULE trddyn_oce |
|---|
