forked from NordicESMhub/OsloCTM3
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcmn_sfc.f90
76 lines (67 loc) · 3.24 KB
/
cmn_sfc.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
!//=========================================================================
!// Oslo CTM3
!//=========================================================================
!// Based on UCI CTM core p-7.1 (1/2013).
!//
!// Ole Amund Sovde, April 2015
!//=========================================================================
!// Surface variables and parameters (not meteorological variables).
!//=========================================================================
module CMN_SFC
!//-----------------------------------------------------------------------
!// MODULE: CMN_SFC
!//
!// DESCRIPTION: Contains surface variables for CTM.
!//-----------------------------------------------------------------------
use cmn_precision, only: r8
use cmn_size, only: IPAR, JPAR, NPAR
!//-----------------------------------------------------------------------
implicit none
!//-----------------------------------------------------------------------
save
!//-----------------------------------------------------------------------
!// Surface and vegetation data: fraction in each LandSurface type
integer, parameter :: NVGPAR = 17 ! number of vegetation types
integer, parameter :: NLCAT = 14 ! number of mOSaic landuse categories
!real(r8), dimension(IPAR,JPAR,NVGPAR) :: LS_FRAC
real(r8), dimension(NVGPAR,IPAR,JPAR) :: landSurfTypeFrac
!// Stomatal resistance (conductance is inverse of resistance)
real(r8), dimension(NVGPAR,IPAR,JPAR) :: StomRes
real(r8), dimension(IPAR,JPAR,12) :: ZOI, LAI !rougness, leaf-area
!// Land use dataset: 2=ISLSCP2, 3=CLM4 PFTs
integer :: LANDUSE_IDX
!// The year of the wanted land use dataset
integer :: LANDUSE_YEAR
!// File name to read from
character(len=160) :: fileLandSurfTypeFrac
!// LAI file name and year
character(len=160) :: fileLAI
integer :: LAI_YEAR
!// Z0 file name and year
character(len=160) :: fileZOI
integer :: ZOI_YEAR
!// DRYDEP mOSaic parameter switch
logical :: LDDEPmOSaic
!// Parameters and land use type from EMEP
real(r8), dimension(28,NLCAT) :: DDEP_PAR
!// Displacement height [m] for given land type fraction (LS_FRAC)
real(r8) :: ZPDVT_C3(NVGPAR)
!// Land-sea masks (ocean=0, land=1, lake=2, small island=3, ice shelf=4
real(r8), dimension(IPAR,JPAR,5) :: LSMASK
!// Dry deposition
real(r8), dimension(NPAR,IPAR,JPAR) :: VDEP !// dep veloc, mean
real(r8), dimension(NPAR,3) :: VDEPIN !// UCI dep vel for land/ocean/cryo
!// Ozone dry deposition velocities
real(r8), dimension(IPAR,JPAR,NLCAT):: VGSTO3 !// stomatal
real(r8), dimension(IPAR,JPAR,NLCAT):: VGNSO3 !// non-stomatal
real(r8), dimension(IPAR,JPAR,NLCAT):: VRAO3 !// aerodynamic
real(r8), dimension(IPAR,JPAR,NLCAT):: VRBO3 !// quasi-laminar
real(r8), dimension(IPAR,JPAR,NLCAT):: VRCO3 !// canopy
!// Growing season
logical :: LGSMAP
character(len=160) :: fileGSMAP
integer, dimension(:,:,:), allocatable :: GDAY_MAP !// Daily map of number of growing days
integer, dimension(IPAR,JPAR) :: GLEN_MAP !// Map of length of the growing season
!//-----------------------------------------------------------------------
end module CMN_SFC
!//=========================================================================