source: LMDZ5/trunk/libf/phylmd/sisvat/VARtSV.F90 @ 5183

Last change on this file since 5183 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 3.5 KB
RevLine 
[1865]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
[1872]13!$OMP THREADPRIVATE(dz1_SV)
[1865]14      REAL,ALLOCATABLE,SAVE                ::   dz2_SV(:,:) ! layer thickness
[1872]15!$OMP THREADPRIVATE(dz2_SV)
[1865]16      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   Tsf_SV  ! surface temperature !hj12032010
[1872]17!$OMP THREADPRIVATE(Tsf_SV)
[1865]18      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   TsfnSV  ! new surface temperature
[1872]19!$OMP THREADPRIVATE(TsfnSV)
[1865]20      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   AcoHSV, BcoHSV ! coefficients for Enthalpy
[1872]21!$OMP THREADPRIVATE(AcoHSV, BcoHSV)                             ! evolution,from atmosphere
[1865]22      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   AcoQSV, BcoQSV ! coefficients for Humidity
[1872]23!$OMP THREADPRIVATE( AcoQSV, BcoQSV)                            ! evolution,from atmosphere
[1865]24      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   ps__SV  ! surface pressure
[1872]25!$OMP THREADPRIVATE(ps__SV)
[1865]26      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   p1l_SV  ! 1st layer pressure
[1872]27!$OMP THREADPRIVATE(p1l_SV)
[1865]28      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   cdH_SV  ! drag coeff Energy (?)
[1872]29!$OMP THREADPRIVATE(cdH_SV)
[1865]30      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   rsolSV  ! Radiation balance surface
[1872]31!$OMP THREADPRIVATE(rsolSV)
[1865]32      REAL,SAVE                            ::   lambSV  ! coefficient soil layers
[1872]33!$OMP THREADPRIVATE(lambSV)
[1865]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.