source: LMDZ6/trunk/libf/dyn3d_common/covcont.f90 @ 5271

Last change on this file since 5271 was 5271, checked in by abarral, 26 hours ago

Move dimensions.h into a module
Nb: doesn't compile yet
File size: 1.3 KB
Line 
1SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont )
2!
3!-------------------------------------------------------------------------------
4! Author: P. Le Van
5!-------------------------------------------------------------------------------
6! Purpose: Compute contravariant components from covariant components.
7!-------------------------------------------------------------------------------
8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
9IMPLICIT NONE
10
11  include "paramet.h"
12  include "comgeom.h"
13!===============================================================================
14! Arguments:
15  INTEGER, INTENT(IN)  :: klevel                    !--- VERTICAL LEVELS NUMBER
16  REAL,    INTENT(IN)  :: ucov ( ip1jmp1,klevel )   !--- U COVARIANT WIND
17  REAL,    INTENT(IN)  :: vcov ( ip1jm  ,klevel )   !--- V COVARIANT WIND
18  REAL,    INTENT(OUT) :: ucont( ip1jmp1,klevel )   !--- U CONTRAVAR WIND
19  REAL,    INTENT(OUT) :: vcont( ip1jm  ,klevel )   !--- V CONTRAVAR WIND
20!===============================================================================
21!   Local variables:
22  INTEGER :: l
23!===============================================================================
24  DO l=1,klevel
25    ucont(iip2:ip1jm,l)=ucov(iip2:ip1jm,l) * unscu2(iip2:ip1jm)
26    vcont(   1:ip1jm,l)=vcov(   1:ip1jm,l) * unscv2(   1:ip1jm)
27  END DO
28
29END SUBROUTINE covcont
30
Note: See TracBrowser for help on using the repository browser.