1 |
|
2305 |
SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont ) |
2 |
|
|
! |
3 |
|
|
!------------------------------------------------------------------------------- |
4 |
|
|
! Author: P. Le Van |
5 |
|
|
!------------------------------------------------------------------------------- |
6 |
|
|
! Purpose: Compute contravariant components from covariant components. |
7 |
|
|
!------------------------------------------------------------------------------- |
8 |
|
|
IMPLICIT NONE |
9 |
|
|
include "dimensions.h" |
10 |
|
|
include "paramet.h" |
11 |
|
|
include "comgeom.h" |
12 |
|
|
!=============================================================================== |
13 |
|
|
! Arguments: |
14 |
|
|
INTEGER, INTENT(IN) :: klevel !--- VERTICAL LEVELS NUMBER |
15 |
|
|
REAL, INTENT(IN) :: ucov ( ip1jmp1,klevel ) !--- U COVARIANT WIND |
16 |
|
|
REAL, INTENT(IN) :: vcov ( ip1jm ,klevel ) !--- V COVARIANT WIND |
17 |
|
|
REAL, INTENT(OUT) :: ucont( ip1jmp1,klevel ) !--- U CONTRAVAR WIND |
18 |
|
|
REAL, INTENT(OUT) :: vcont( ip1jm ,klevel ) !--- V CONTRAVAR WIND |
19 |
|
|
!=============================================================================== |
20 |
|
|
! Local variables: |
21 |
|
|
INTEGER :: l |
22 |
|
|
!=============================================================================== |
23 |
✓✓ |
92200 |
DO l=1,klevel |
24 |
✓✓ |
92052480 |
ucont(iip2:ip1jm,l)=ucov(iip2:ip1jm,l) * unscu2(iip2:ip1jm) |
25 |
✓✓ |
95021320 |
vcont( 1:ip1jm,l)=vcov( 1:ip1jm,l) * unscv2( 1:ip1jm) |
26 |
|
|
END DO |
27 |
|
|
|
28 |
|
2305 |
END SUBROUTINE covcont |
29 |
|
|
|