/[lmdze]/trunk/dyn3d/laplacien_gam.f90
ViewVC logotype

Contents of /trunk/dyn3d/laplacien_gam.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 328 - (show annotations)
Thu Jun 13 14:40:06 2019 UTC (4 years, 11 months ago) by guez
File size: 1373 byte(s)
Change all `.f` suffixes to `.f90`. (The opposite was done in revision
82.)  Because of change of philosopy in GNUmakefile: we already had a
rewritten rule for `.f`, so it does not make the makefile longer to
replace it by a rule for `.f90`. And it spares us options of
makedepf90 and of the compiler. Also we prepare the way for a simpler
`CMakeLists.txt`.

1 module laplacien_gam_m
2
3 IMPLICIT NONE
4
5 contains
6
7 SUBROUTINE laplacien_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, &
8 unsapolsga, teta, divgra)
9
10 ! From LMDZ4/libf/dyn3d/laplacien_gam.F,v 1.1.1.1, 2004/05/19 12:53:06
11
12 ! P. Le Van
13
14 ! ************************************************************
15
16 ! .... calcul de (div( grad )) de teta .....
17 ! ************************************************************
18 ! klevel et teta sont des arguments d'entree pour le s-prog
19 ! divgra est un argument de sortie pour le s-prog
20
21 USE comgeom
22 USE dimensions
23 use diverg_gam_m, only: diverg_gam
24 USE grad_m, ONLY: grad
25 USE paramet_m
26
27
28 ! ............ variables en arguments ..........
29
30 INTEGER, INTENT (IN) :: klevel
31 REAL teta(ip1jmp1, klevel), divgra(ip1jmp1, klevel)
32 REAL cuvsga(ip1jm), cvusga(ip1jmp1), unsaigam(ip1jmp1), unsapolnga, &
33 unsapolsga
34
35 ! ........... variables locales .................
36
37 REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
38 ! ......................................................
39
40 CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1)
41 CALL grad(klevel, divgra, ghx, ghy)
42 CALL diverg_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, unsapolsga, &
43 ghx, ghy, divgra)
44
45 END SUBROUTINE laplacien_gam
46
47 end module laplacien_gam_m

  ViewVC Help
Powered by ViewVC 1.1.21