/[lmdze]/trunk/dimens_m.f
ViewVC logotype

Contents of /trunk/dimens_m.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 18 - (show annotations)
Thu Aug 7 12:29:13 2008 UTC (15 years, 9 months ago) by guez
Original Path: trunk/libf/dimens_m.f90
File size: 337 byte(s)
In module "regr_pr", rewrote scanning of horizontal positions as a
single set of loops, using a mask.

Added some "intent" attributes.

In "dynredem0", replaced calls to Fortran 77 interface of NetCDF by
calls to NetCDF95. Removed calls to "nf_redef", regrouped all writing
operations. In "dynredem1", replaced some calls to Fortran 77
interface of NetCDF by calls to Fortran 90 interface.

Renamed variable "nqmax" to "nq_phys".

In "physiq", if "nq >= 5" then "wo" is computed from the
parameterization of "Cariolle".

1 module dimens_m
2
3 ! Model dimensions.
4
5 implicit none
6
7 INTEGER, PARAMETER:: iim = 32 ! number of longitudes
8 INTEGER, PARAMETER:: jjm = 24 ! number of latitudes
9 INTEGER, PARAMETER:: llm = 9 ! number of vertical layers
10 INTEGER, PARAMETER:: ndm = 1
11 integer, parameter:: nqmx = 5 ! maximum number of tracers
12
13 end module dimens_m

  ViewVC Help
Powered by ViewVC 1.1.21