source: LMDZ5/branches/LF-private/libf/dyn3dmem/covcont_loc.F @ 5017

Last change on this file since 5017 was 1823, checked in by Ehouarn Millour, 11 years ago

Remplacement de parallel.F90 (en conflit avec orchidée) par parallel_lmdz.F90.
UG
.........................................
Renaming parallel.F90 (conflicting with orchidée) into parallel_lmdz.F90.
UG

File size: 1.4 KB
Line 
1      SUBROUTINE covcont_loc (klevel,ucov, vcov, ucont, vcont )
2      USE parallel_lmdz
3      IMPLICIT NONE
4
5c=======================================================================
6c
7c   Auteur:  P. Le Van
8c   -------
9c
10c   Objet:
11c   ------
12c
13c  *********************************************************************
14c    calcul des compos. contravariantes a partir des comp.covariantes
15c  ********************************************************************
16c
17c=======================================================================
18
19#include "dimensions.h"
20#include "paramet.h"
21#include "comgeom.h"
22
23      INTEGER klevel
24      REAL ucov( ijb_u:ije_u,klevel ),  vcov( ijb_v:ije_v,klevel )
25      REAL ucont( ijb_u:ije_u,klevel ), vcont( ijb_v:ije_v,klevel )
26      INTEGER   l,ij
27      INTEGER ijbu,ijbv,ijeu,ijev
28
29     
30      ijbu=ij_begin-iip1
31      ijbv=ij_begin-iip1
32      ijeu=ij_end+iip1
33      ijev=ij_end+iip1
34     
35      if (pole_nord) then
36        ijbu=ij_begin+iip1
37        ijbv=ij_begin
38      endif
39     
40      if (pole_sud) then
41        ijeu=ij_end-iip1
42        ijev=ij_end-iip1
43      endif
44
45c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
46      DO 10 l = 1,klevel
47
48      DO 2  ij = ijb_u,ije_u
49      ucont( ij,l ) = ucov( ij,l ) * unscu2( ij )
50   2  CONTINUE
51
52      DO 4 ij = ijb_v,ije_v
53      vcont( ij,l ) = vcov( ij,l ) * unscv2( ij )
54   4  CONTINUE
55
56  10  CONTINUE
57c$OMP END DO NOWAIT
58      RETURN
59      END
Note: See TracBrowser for help on using the repository browser.