11 |
! Author: P. Le Van |
! Author: P. Le Van |
12 |
! Objet : calcul du tourbillon potentiel |
! Objet : calcul du tourbillon potentiel |
13 |
|
|
|
USE dimens_m, ONLY: iim, jjm, llm |
|
14 |
USE comgeom, ONLY: fext_2d |
USE comgeom, ONLY: fext_2d |
15 |
|
USE dimens_m, ONLY: iim, jjm, llm |
16 |
use filtreg_m, only: filtreg |
use filtreg_m, only: filtreg |
17 |
|
|
18 |
REAL, intent(in):: vcov(:, :, :) ! (iim + 1, jjm, llm) |
REAL, intent(in):: vcov(:, :, :) ! (iim + 1, jjm, llm) |
23 |
! = (Filtre(d(vcov)/dx - d(ucov)/dy) + fext) / massebxy |
! = (Filtre(d(vcov)/dx - d(ucov)/dy) + fext) / massebxy |
24 |
|
|
25 |
! Local: |
! Local: |
26 |
|
|
27 |
REAL rot(iim + 1, jjm, llm) |
REAL rot(iim + 1, jjm, llm) |
28 |
! relative vorticity multiplied by cell area, in m2 s-1 |
! relative vorticity multiplied by cell area, in m2 s-1 |
29 |
|
|