trunk/libf/dimens_m.f90

module dimens_m

  ! Model dimensions.

  implicit none

  INTEGER, PARAMETER:: iim = 32 ! number of longitudes
  INTEGER, PARAMETER:: jjm = 24 ! number of latitudes
  INTEGER, PARAMETER:: llm = 9 ! number of vertical layers
  INTEGER, PARAMETER:: ndm = 1
  integer, parameter:: nqmx = 5 ! maximum number of tracers

end module dimens_m
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