| 1 | MODULE LMDZ_KL |
|---|
| 2 | |
|---|
| 3 | USE VAR_SV, only : klonv |
|---|
| 4 | |
|---|
| 5 | IMPLICIT 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 | |
|---|
| 27 | CONTAINS |
|---|
| 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 | |
|---|
| 42 | END MODULE LMDZ_KL |
|---|
| 43 | |
|---|
