/[lmdze]/trunk/libf/phylmd/dimphy.f90
ViewVC logotype

Contents of /trunk/libf/phylmd/dimphy.f90

Parent Directory Parent Directory | Revision Log Revision Log

Revision 71 - (show annotations)
Mon Jul 8 18:12:18 2013 UTC (10 years, 9 months ago) by guez
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 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 ! (jjm - 1) * iim pour l'interieur du domaine
15 ! klon pour le pole sud)
16
17 INTEGER, PARAMETER:: KLEV = llm
18 INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) ! nombre de vrais traceurs
19 REAL,save:: zmasq(KLON) ! fraction of land
20
21 end module dimphy
  ViewVC Help
Powered by ViewVC 1.1.21