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

Annotation of /trunk/dyn3d/bernoui.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 57 - (hide annotations)
Mon Jan 30 12:54:02 2012 UTC (12 years, 4 months ago) by guez
Original Path: trunk/libf/dyn3d/bernoui.f
File size: 1559 byte(s) 
Write used namelists to file "" instead of standard output.

Avoid aliasing in "inidissip" in calls to "divgrad2", "divgrad",
"gradiv2", "gradiv", "nxgraro2" and "nxgrarot". Add a degenerate
dimension to arrays so they have rank 3, like the dummy arguments in
"divgrad2", "divgrad", "gradiv2", "gradiv", "nxgraro2" and "nxgrarot".

Extract the initialization part from "bilan_dyn" and make a separate
procedure, "init_dynzon", from it.

Move variables from modules "iniprint" and "logic" to module
"conf_gcm_m".

Promote internal procedures of "fxy" to private procedures of module
"fxy_m".

Extracted documentation from "inigeom". Removed useless "save"
attributes. Removed useless intermediate variables. Extracted
processing of poles from loop on latitudes. Write coordinates to file
"longitude_latitude.txt" instead of standard output.

Do not use ozone tracer for radiative transfer.
1 guez 3 !
2     ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/bernoui.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
3     !
4     SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
5     use dimens_m
6     use paramet_m
7 guez 57 use conf_gcm_m
8 guez 27 use filtreg_m, only: filtreg
9 guez 3 IMPLICIT NONE
10    
11     c=======================================================================
12     c
13     c Auteur: P. Le Van
14     c -------
15     c
16     c Objet:
17     c ------
18     c calcul de la fonction de Bernouilli aux niveaux s .....
19     c phi et ecin sont des arguments d'entree pour le s-pg .......
20     c bern est un argument de sortie pour le s-pg ......
21     c
22     c fonction de Bernouilli = bern = filtre de( geopotentiel +
23     c energ.cinet.)
24     c
25     c=======================================================================
26     c
27     c-----------------------------------------------------------------------
28     c Decalrations:
29     c -------------
30     c
31     c
32     c Arguments:
33     c ----------
34     c
35     INTEGER nlay,ngrid
36     REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)
37     c
38     c Local:
39     c ------
40     c
41     INTEGER ijl
42     c
43     c-----------------------------------------------------------------------
44     c calcul de Bernouilli:
45     c ---------------------
46     c
47     DO 4 ijl = 1,ngrid*nlay
48     pbern( ijl ) = pphi( ijl ) + pecin( ijl )
49     4 CONTINUE
50     c
51     c-----------------------------------------------------------------------
52     c filtre:
53     c -------
54     c
55     CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 )
56     c
57     c-----------------------------------------------------------------------
58     RETURN
59     END
  ViewVC Help
Powered by ViewVC 1.1.21