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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 62 - (show annotations)
Thu Jul 26 14:37:37 2012 UTC (11 years, 9 months ago) by guez
File size: 561 byte(s)
Changed handling of compiler in compilation system.

Removed the prefix letters "y", "p", "t" or "z" in some names of variables.

Replaced calls to NetCDF by calls to NetCDF95.

Extracted "ioget_calendar" procedures from "calendar.f90" into a
separate file.

Extracted to a separate file, "mathop2.f90", procedures that were not
part of the generic interface "mathop" in "mathop.f90".

Removed computation of "dq" in "bilan_dyn", which was not used.

In "iniadvtrac", removed schemes 20 Slopes and 30 Prather. Was not
compatible with declarations of array sizes.

In "clcdrag", "ustarhb", "vdif_kcay", "yamada4" and "coefkz", changed
the size of some arrays from "klon" to "knon".

Removed possible call to "conema3" in "physiq".

Removed unused argument "cd" in "yamada".

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 INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) ! nombre de vrais traceurs
19 REAL,save:: zmasq(KLON) ! fraction of land
20
21 end module dimphy

  ViewVC Help
Powered by ViewVC 1.1.21