source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/covcont_loc.F @ 5409

Last change on this file since 5409 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
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.