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

Annotation of /trunk/phylmd/dimphy.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 34 - (hide annotations)
Wed Jun 2 11:01:12 2010 UTC (14 years ago) by guez
Original Path: trunk/libf/phylmd/dimphy.f90
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 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     ! (jjm-1)*iim pour l'interieur du domaine
15     ! klon pour le pole sud)
16    
17     INTEGER, PARAMETER:: KLEV = llm
18    
19 guez 34 INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2)
20 guez 3 ! (nombre de vrais traceurs)
21    
22 guez 15 REAL,save:: zmasq(KLON) ! fraction of land
23 guez 3
24     end module dimphy
  ViewVC Help
Powered by ViewVC 1.1.21