source: LMDZ6/trunk/libf/dyn3dmem/covcont_loc.F @ 4660

Last change on this file since 4660 was 4593, checked in by yann meurdesoif, 18 months ago

Replace #include (c preprocessor) by INCLUDE (fortran keyword)

in phylmd (except rrtm and ecrad) filtrez, dy3dmem and dyn3dcommon

Other directories will follow
YM

  • 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
RevLine 
[1632]1      SUBROUTINE covcont_loc (klevel,ucov, vcov, ucont, vcont )
[1823]2      USE parallel_lmdz
[1632]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
[4593]19      INCLUDE "dimensions.h"
20      INCLUDE "paramet.h"
21      INCLUDE "comgeom.h"
[1632]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.