source: LMDZ5/branches/LF-private/libf/phylmd/sisvat/VARtSV.F90

Last change on this file was 1872, checked in by Laurent Fairhead, 11 years ago

Correction de bugs suite à l'intégration de SISVAT


Bug corrections following integration of SISVAT

File size: 3.5 KB
Line 
1MODULE VARtSV
2
3USE VAR_SV, only : nsol, nsno, klonv
4
5IMPLICIT NONE
6! +
7      INTEGER, PARAMETER      ::   ntaver = 4
8! +
9      REAL,ALLOCATABLE,SAVE                ::   toicSV(:)    ! Snow to ice balance   
10!$OMP THREADPRIVATE(toicSV)
11
12      REAL,ALLOCATABLE,SAVE                ::   dz1_SV(:,:) ! "inverse" layer thicknes
13!$OMP THREADPRIVATE(dz1_SV)
14      REAL,ALLOCATABLE,SAVE                ::   dz2_SV(:,:) ! layer thickness
15!$OMP THREADPRIVATE(dz2_SV)
16      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   Tsf_SV  ! surface temperature !hj12032010
17!$OMP THREADPRIVATE(Tsf_SV)
18      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   TsfnSV  ! new surface temperature
19!$OMP THREADPRIVATE(TsfnSV)
20      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   AcoHSV, BcoHSV ! coefficients for Enthalpy
21!$OMP THREADPRIVATE(AcoHSV, BcoHSV)                             ! evolution,from atmosphere
22      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   AcoQSV, BcoQSV ! coefficients for Humidity
23!$OMP THREADPRIVATE( AcoQSV, BcoQSV)                            ! evolution,from atmosphere
24      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   ps__SV  ! surface pressure
25!$OMP THREADPRIVATE(ps__SV)
26      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   p1l_SV  ! 1st layer pressure
27!$OMP THREADPRIVATE(p1l_SV)
28      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   cdH_SV  ! drag coeff Energy (?)
29!$OMP THREADPRIVATE(cdH_SV)
30      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   rsolSV  ! Radiation balance surface
31!$OMP THREADPRIVATE(rsolSV)
32      REAL,SAVE                            ::   lambSV  ! coefficient soil layers
33!$OMP THREADPRIVATE(lambSV)
34
35                                                                   ! #AW
36      REAL, ALLOCATABLE,SAVE               ::   V__mem(:,:)                         
37!$OMP THREADPRIVATE(V__mem)                                        ! #AW
38      REAL, ALLOCATABLE,SAVE               ::   VVmmem(:)                             
39!$OMP THREADPRIVATE(VVmmem)                                        ! #AH
40      REAL, ALLOCATABLE,SAVE               ::   T__mem(:,:)                           
41!$OMP THREADPRIVATE(T__mem)                                        ! #AH
42      REAL, ALLOCATABLE,SAVE               ::   dTmmem(:)                             
43!$OMP THREADPRIVATE(dTmmem)
44       
45CONTAINS
46
47  SUBROUTINE INIT_VARtSV
48  IMPLICIT NONE
49 
50      ALLOCATE(toicSV(klonv))
51
52      ALLOCATE(dz1_SV(klonv,-nsol:nsno))     ! "inverse" layer thicknes
53      ALLOCATE(dz2_SV(klonv,-nsol:nsno))     ! layer thickness
54      ALLOCATE(Tsf_SV(klonv))                ! surface temperature !hj12032010
55      ALLOCATE(TsfnSV(klonv))                ! new surface temperature
56      ALLOCATE(AcoHSV(klonv), BcoHSV(klonv)) ! coefficients for Enthalpy
57                                             ! evolution,from atmosphere
58      ALLOCATE(AcoQSV(klonv), BcoQSV(klonv)) ! coefficients for Humidity
59                                             ! evolution,from atmosphere
60      ALLOCATE(ps__SV(klonv))                ! surface pressure
61      ALLOCATE(p1l_SV(klonv))                ! 1st layer pressure
62      ALLOCATE(cdH_SV(klonv))                ! drag coeff Energy (?)
63      ALLOCATE(rsolSV(klonv))                ! Radiation balance surface
64
65                                                                   ! #AW
66      ALLOCATE(V__mem(klonv,ntaver))                               ! #AW
67      ALLOCATE(VVmmem(klonv))                                      ! #AH
68      ALLOCATE(T__mem(klonv,ntaver))                               ! #AH
69      ALLOCATE(dTmmem(klonv))
70  END SUBROUTINE INIT_VARtSV
71
72END MODULE VARtSV
73
Note: See TracBrowser for help on using the repository browser.