source: LMDZ6/branches/Amaury_dev/libf/dyn3dmem/laplacien_rotgam_loc.f90 @ 5225

Last change on this file since 5225 was 5159, checked in by abarral, 3 months ago

Put dimensions.h and paramet.h into modules

  • 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.3 KB
Line 
1SUBROUTINE laplacien_rotgam_loc( klevel, rotin, rotout )
2
3  ! P. Le Van
4
5  !   ************************************************************
6  !   ... calcul de  (rotat x nxgrad)_gam  du rotationnel rotin ..
7  !   ************************************************************
8  ! klevel et teta  sont des arguments  d'entree pour le s-prog
9  !  divgra     est  un argument  de sortie pour le s-prog
10
11  USE parallel_lmdz
12  USE lmdz_comgeom
13
14USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
15  USE lmdz_paramet
16  IMPLICIT NONE
17  !
18
19
20
21
22  !    .............   variables  en  arguments    ...........
23
24  INTEGER :: klevel
25  REAL :: rotin( ijb_v:ije_v,klevel ), rotout( ijb_v:ije_v,klevel )
26
27  !   ............     variables   locales     ...............
28
29  INTEGER :: l, ij
30  REAL :: ghy(ijb_v:ije_v,llm), ghx(ijb_u:ije_u,llm)
31  !   ........................................................
32
33  INTEGER :: ijb,ije
34
35  !
36
37  CALL   nxgrad_gam_loc ( klevel, rotin,   ghx ,   ghy  )
38  CALL   rotat_nfil_loc ( klevel, ghx  ,   ghy , rotout )
39
40  ijb=ij_begin
41  ije=ij_end
42  IF(pole_sud) ije=ij_end-iip1
43!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
44  DO l = 1, klevel
45    DO ij = ijb, ije
46     rotout(ij,l) = rotout(ij,l) * unsairz_gam(ij)
47    ENDDO
48  ENDDO
49!$OMP END DO NOWAIT
50
51END SUBROUTINE laplacien_rotgam_loc
Note: See TracBrowser for help on using the repository browser.