source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/sisvat/LMDZ_KL.F90 @ 2699

Last change on this file since 2699 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: 1.6 KB
Line 
1MODULE LMDZ_KL
2
3USE VAR_SV, only : klonv
4
5IMPLICIT NONE
6! +
7    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: SOsoKL    ! Abs Solar Radiation
8!$OMP THREADPRIVATE(SOsoKL)
9    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: IRsoKL    ! Abs IR    Radiation
10!$OMP THREADPRIVATE(IRsoKL)
11    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: HSsoKL    ! Abs Sensible Ht Flux
12!$OMP THREADPRIVATE(HSsoKL)
13    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: HLsoKL    ! Abs Latent Heat Flux
14!$OMP THREADPRIVATE(HLsoKL)
15    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: HLs_KL    ! Evaporation         
16!$OMP THREADPRIVATE(HLs_KL)
17    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: HLv_KL    ! Transpiration       
18!$OMP THREADPRIVATE(HLv_KL)
19   
20!   REAL, DIMENSION(klonv)                 :: SOsoNC    ! Abs Solar Radiation 
21!   REAL, DIMENSION(klonv)                 :: IRsoNC    ! Abs IR    Radiation 
22!   REAL, DIMENSION(klonv)                 :: HSsoNC    ! Abs Sensible Ht Flux
23!   REAL, DIMENSION(klonv)                 :: HLsoNC    ! Abs Latent Heat Flux
24!   REAL, DIMENSION(klonv)                 :: HLs_NC    ! Evaporation     
25!   REAL, DIMENSION(klonv)                 :: HLv_NC    ! Transpiration       
26
27CONTAINS
28 
29  SUBROUTINE INIT_LMDZ_KL
30  IMPLICIT NONE
31 
32    ALLOCATE(SOsoKL(klonv))    ! Abs Solar Radiation
33    ALLOCATE(IRsoKL(klonv))    ! Abs IR    Radiation
34    ALLOCATE(HSsoKL(klonv))    ! Abs Sensible Ht Flux
35    ALLOCATE(HLsoKL(klonv))    ! Abs Latent Heat Flux
36    ALLOCATE(HLs_KL(klonv))    ! Evaporation         
37    ALLOCATE(HLv_KL(klonv))    ! Transpiration       
38       
39  END SUBROUTINE INIT_LMDZ_KL
40 
41 
42END MODULE LMDZ_KL
43
Note: See TracBrowser for help on using the repository browser.