/[lmdze]/trunk/Sources/phylmd/dimphy.f
ViewVC logotype

Annotation of /trunk/Sources/phylmd/dimphy.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 71 - (hide annotations)
Mon Jul 8 18:12:18 2013 UTC (10 years, 10 months ago) by guez
Original Path: trunk/libf/phylmd/dimphy.f90
File size: 565 byte(s) 
No reason to call inidissip in ce0l.

In inidissip, set random seed to 1 beacuse PGI compiler does not
accept all zeros.

dq was computed needlessly in caladvtrac. Arguments masse and dq of
calfis not used.

Replaced real*8 by double precision.

Pass arrays with inverted order of vertical levels to conflx instead
of creating local variables for this inside conflx.
1 guez 3 module dimphy
2    
3     use dimens_m, only: iim, jjm, llm, nqmx
4    
5     implicit none
6    
7     private iim, jjm, llm, nqmx
8    
9     INTEGER, PARAMETER:: klon = iim * (jjm - 1) + 2
10     ! (number of distinct scalar grid points)
11     ! (Les points de la physique sont les points scalaires de la dynamique.
12     ! Numerotation :
13     ! 1 pour le pole nord
14 guez 71 ! (jjm - 1) * iim pour l'interieur du domaine
15 guez 3 ! klon pour le pole sud)
16    
17     INTEGER, PARAMETER:: KLEV = llm
18 guez 62 INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) ! nombre de vrais traceurs
19 guez 15 REAL,save:: zmasq(KLON) ! fraction of land
20 guez 3
21     end module dimphy
  ViewVC Help
Powered by ViewVC 1.1.21