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

Contents of /trunk/phylmd/dimphy.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 328 - (show annotations)
Thu Jun 13 14:40:06 2019 UTC (4 years, 11 months ago) by guez
File size: 436 byte(s)
Change all `.f` suffixes to `.f90`. (The opposite was done in revision
82.)  Because of change of philosopy in GNUmakefile: we already had a
rewritten rule for `.f`, so it does not make the makefile longer to
replace it by a rule for `.f90`. And it spares us options of
makedepf90 and of the compiler. Also we prepare the way for a simpler
`CMakeLists.txt`.

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