/[lmdze]/trunk/Sources/dyn3d/convmas.f
ViewVC logotype

Annotation of /trunk/Sources/dyn3d/convmas.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 104 - (hide annotations)
Thu Sep 4 10:05:52 2014 UTC (9 years, 8 months ago) by guez
Original Path: trunk/dyn3d/convmas.f
File size: 1139 byte(s) 
Removed procedure sortvarc0. Called sortvarc with an additional
argument resetvarc instead. (Following LMDZ.) Moved current time
computations and some printing statements from sortvarc to
caldyn. Could then remove arguments itau and time_0 of sortvarc, and
could remove "use dynetat0". Better to keep "dynetat0.f" as a gcm-only
file.

Moved some variables from module ener to module sortvarc.

Split file "mathelp.f" into single-procedure files.

Removed unused argument nadv of adaptdt. Removed dimension arguments
of bernoui.

Removed unused argument nisurf of interfoce_lim. Changed the size of
argument lmt_sst of interfoce_lim from klon to knon. Removed case when
newlmt is false.

dynredem1 is called only once in each run, either ce0l or gcm. So
variable nb in call to nf95_put_var was always 1. Removed variable nb.

Removed dimension arguments of calcul_fluxs. Removed unused arguments
precip_rain, precip_snow, snow of calcul_fluxs. Changed the size of
all the arrays in calcul_fluxs from klon to knon.

Removed dimension arguments of fonte_neige. Changed the size of all
the arrays in fonte_neige from klon to knon.

Changed the size of arguments tsurf and tsurf_new of interfsurf_hq
from klon to knon. Changed the size of argument ptsrf of soil from
klon to knon.
1 guez 91 module convmas_m
2 guez 3
3 guez 81 IMPLICIT NONE
4 guez 3
5 guez 91 contains
6 guez 3
7 guez 91 SUBROUTINE convmas(pbaru, pbarv, convm)
8 guez 3
9 guez 91 ! From LMDZ4/libf/dyn3d/convmas.F, version 1.1.1.1, 2004/05/19 12:53:07
10 guez 3
11 guez 104 USE dimens_m, ONLY: iim, jjm, llm
12 guez 91 USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1, llmm1
13     USE filtreg_m, ONLY: filtreg
14 guez 3
15 guez 91 ! Authors: P. Le Van, F. Hourdin
16     ! Objet: calcul de la convergence du flux de masse aux niveaux p
17 guez 3
18 guez 91 ! Le calcul se fait de haut en bas, la convergence de masse au
19     ! niveau p(llm+1) est égale à 0 et n'est pas stockée dans le
20     ! tableau convm.
21 guez 3
22 guez 91 REAL, INTENT(IN):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
23 guez 104 REAL, INTENT(OUT):: convm(iim + 1, jjm + 1, llm)
24 guez 81
25 guez 91 ! Local:
26 guez 104 INTEGER l
27 guez 81
28 guez 91 !-----------------------------------------------------------------------
29 guez 81
30 guez 91 ! Calcul de - (d(pbaru)/dx + d(pbarv)/dy) :
31     CALL convflu(pbaru, pbarv, llm, convm)
32 guez 81
33 guez 91 ! Filtrage :
34     CALL filtreg(convm, jjp1, llm, 2, 2, .TRUE.)
35 guez 81
36 guez 91 ! Intégration de la convergence de masse de haut en bas :
37     DO l = llmm1, 1, -1
38 guez 104 convm(:, :, l) = convm(:, :, l) + convm(:, :, l+1)
39 guez 91 END DO
40 guez 81
41 guez 91 END SUBROUTINE convmas
42 guez 81
43 guez 91 end module convmas_m
  ViewVC Help
Powered by ViewVC 1.1.21