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

Contents of /trunk/dyn3d/massdair.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 78 - (show annotations)
Wed Feb 5 17:51:07 2014 UTC (10 years, 3 months ago) by guez
File size: 808 byte(s)
Moved procedure inigeom into module comgeom.

In disvert, renamed s_sampling to vert_sampling, following
LMDZ. Removed choice strato1. In case read, read ap and bp instead of
s (following LMDZ).

Added argument phis to start_init_orog and start_init_dyn, and removed
variable phis of module start_init_orog_m. In etat0 and
start_init_orog, renamed relief to zmea_2d. In start_init_dyn, renamed
psol to ps.

In start_init_orog, renamed relief_hi to relief. No need to set
phis(iim + 1, :) = phis(1, :), already done in grid_noro.

Documentation for massbar out of SVN, in massbar.txt. Documentation
was duplicated in massdair, but not relevant in massdair.

In conflx, no need to initialize pen_[ud] and pde_[ud]. In flxasc,
used intermediary variable fact (following LMDZ).

In grid_noro, added local variable zmea0 for zmea not smoothed and
computed zphi from zmea instead of zmea0 (following LMDZ). This
changes the results of ce0l.

Removed arguments pen_u and pde_d of phytrac and nflxtr, which were
not used.

1 module massdair_m
2
3 IMPLICIT NONE
4
5 contains
6
7 SUBROUTINE massdair(p, masse)
8
9 ! From LMDZ4/libf/dyn3d/massdair.F, version 1.1.1.1 2004/05/19 12:53:07
10
11 ! Calcule la masse d'air dans chaque maille.
12 ! Auteurs : P. Le Van, F. Hourdin
13
14 USE comgeom, ONLY: airesurg
15 USE dimens_m, ONLY: iim, llm
16 USE paramet_m, ONLY: iip1, ip1jmp1, llmp1
17
18 REAL, intent(in):: p(ip1jmp1, llmp1) ! aux interfaces des llm couches
19 real, intent(out):: masse(ip1jmp1, llm)
20
21 ! Variables locales
22 INTEGER l, ij
23
24 !----------------------------------------------------------
25
26 DO l = 1, llm
27 masse(:, l) = airesurg * (p(:, l) - p(:, l + 1))
28
29 DO ij = 1, ip1jmp1, iip1
30 masse(ij + iim, l) = masse(ij, l)
31 ENDDO
32 end DO
33
34 END SUBROUTINE massdair
35
36 end module massdair_m

  ViewVC Help
Powered by ViewVC 1.1.21