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

Annotation of /trunk/dyn3d/massdair.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 78 - (hide annotations)
Wed Feb 5 17:51:07 2014 UTC (10 years, 3 months ago) by guez
Original Path: trunk/dyn3d/massdair.f90
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 guez 67 module massdair_m
2 guez 3
3 guez 67 IMPLICIT NONE
4 guez 3
5 guez 67 contains
6 guez 3
7 guez 67 SUBROUTINE massdair(p, masse)
8 guez 3
9 guez 67 ! 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 guez 78 ! Auteurs : P. Le Van, F. Hourdin
13 guez 67
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 guez 78 DO l = 1, llm
27     masse(:, l) = airesurg * (p(:, l) - p(:, l + 1))
28 guez 67
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