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

Contents of /trunk/phylmd/dimphy.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 276 - (show annotations)
Thu Jul 12 14:49:20 2018 UTC (5 years, 10 months ago) by guez
File size: 436 byte(s)
Move procedure read_serre from module read_serre_m to module
dynetat0_m, to avoid side effet on variables of module dynetat0_m.

Create procedure set_unit_nml to avoid side effect on variable of
module unit_nml_m.

Downgrade pctsrf from variable of module etat0_m to argument of etat0
and limit to avoid side effect on pctsrf.

Move variable zmasq from module dimphy to module phyetat0_m to avoid
side effect on zmasq.

1 module dimphy
2
3 use dimensions, only: iim, jjm, llm
4
5 implicit none
6
7 private iim, jjm, llm
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 end module dimphy

  ViewVC Help
Powered by ViewVC 1.1.21