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

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 34 - (show annotations)
Wed Jun 2 11:01:12 2010 UTC (13 years, 11 months ago) by guez
File size: 567 byte(s) 
Split "ini_hist.f90" into single-procedure files.

In "calfis" and "physiq", removed dummy argument "nq" since "nq" must
be equal to "nqmx".

In "calfis", renamed dummy argument "pq" to "q", same name as actual
argument in "leapfrog". Renamed local variable "zqfi" to "qx", same
name as dummy argument in "physiq".

Removed arguments "itop_con" and "ibas_con" of "phytrac", which were
not used.
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
19 INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2)
20 ! (nombre de vrais traceurs)
21
22 REAL,save:: zmasq(KLON) ! fraction of land
23
24 end module dimphy
  ViewVC Help
Powered by ViewVC 1.1.21