/[lmdze]/trunk/dyn3d/laplacien.f
ViewVC logotype

Annotation of /trunk/dyn3d/laplacien.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 103 - (hide annotations)
Fri Aug 29 13:00:05 2014 UTC (9 years, 9 months ago) by guez
File size: 766 byte(s) 
Renamed module cvparam to cv_param. Deleted procedure
cv_param. Changed variables of module cv_param into parameters.

In procedures cv_driver, cv_uncompress and cv3_uncompress, removed
some arguments giving dimensions and used module variables klon and
klev instead.

In procedures gradiv2, laplacien_gam and laplacien, changed
declarations of local variables because klevel is not always klev.

Removed code for nudging surface pressure.

Removed arguments pim and pjm of tau2alpha. Added assignment of false
to variable first.

Replaced real argument del of procedures foeew and FOEDE by logical
argument.
1 guez 61 module laplacien_m
2 guez 57
3 guez 61 IMPLICIT NONE
4 guez 3
5 guez 61 contains
6 guez 3
7 guez 61 SUBROUTINE laplacien(klevel, teta)
8 guez 3
9 guez 61 ! From LMDZ4/libf/dyn3d/laplacien.F, version 1.1.1.1 2004/05/19 12:53:06
10     ! P. Le Van
11     ! Calcul de div(grad) de teta.
12 guez 3
13 guez 65 use divergf_m, only: divergf
14     use filtreg_m, only: filtreg
15 guez 61 use grad_m, only: grad
16     USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1
17 guez 3
18 guez 61 INTEGER, intent(in):: klevel
19     REAL, intent(inout):: teta(ip1jmp1, klevel)
20    
21     ! Variables locales:
22 guez 103 REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
23 guez 61
24     !-----------------------------------------------------------------
25    
26 guez 64 CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE.)
27 guez 61 CALL grad(klevel, teta, ghx, ghy)
28     CALL divergf(klevel, ghx, ghy, teta)
29    
30     END SUBROUTINE laplacien
31    
32     end module laplacien_m
  ViewVC Help
Powered by ViewVC 1.1.21