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

Annotation of /trunk/dyn3d/laplacien.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 178 - (hide annotations)
Fri Mar 11 18:47:26 2016 UTC (8 years, 2 months ago) by guez
Original Path: trunk/Sources/dyn3d/laplacien.f
File size: 826 byte(s) 
Moved variables date0, deltat, datasz_max, ncvar_ids, point, buff_pos,
buffer, regular from module histcom_var to modules where they are
defined.

Removed procedure ioipslmpp, useless for a sequential program.

Added argument datasz_max to histwrite_real (to avoid circular
dependency with histwrite).

Removed useless variables and computations everywhere.

Changed real litteral constants from default kind to double precision
in lwb, lwu, lwvn, sw1s, swtt, swtt1, swu.

Removed unused arguments: paer of sw, sw1s, sw2s, swclr; pcldsw of
sw1s, sw2s; pdsig, prayl of swr; co2_ppm of clmain, clqh; tsol of
transp_lay; nsrf of screenp; kcrit and kknu of gwstress; pstd of
orosetup.

Added output of relative humidity.
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 106 use dimens_m, only: iim, jjm
14 guez 65 use divergf_m, only: divergf
15 guez 137 use filtreg_scal_m, only: filtreg_scal
16 guez 61 use grad_m, only: grad
17 guez 178 USE paramet_m, ONLY: ip1jm, ip1jmp1
18 guez 3
19 guez 61 INTEGER, intent(in):: klevel
20 guez 106 REAL, intent(inout):: teta(iim + 1, jjm + 1, klevel)
21 guez 61
22     ! Variables locales:
23 guez 103 REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
24 guez 61
25     !-----------------------------------------------------------------
26    
27 guez 137 CALL filtreg_scal(teta, direct = .true., intensive = .true.)
28 guez 61 CALL grad(klevel, teta, ghx, ghy)
29     CALL divergf(klevel, ghx, ghy, teta)
30    
31     END SUBROUTINE laplacien
32    
33     end module laplacien_m
  ViewVC Help
Powered by ViewVC 1.1.21