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

Annotation of /trunk/phylmd/dimphy.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 276 - (hide 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 guez 3 module dimphy
2    
3 guez 265 use dimensions, only: iim, jjm, llm
4 guez 3
5     implicit none
6    
7 guez 98 private iim, jjm, llm
8 guez 3
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    
19     end module dimphy

  ViewVC Help
Powered by ViewVC 1.1.21