1 |
SUBROUTINE coefkz2(nsrf, knon, paprs, pplay, t, pcfm, pcfh) |
module coefkz2_m |
2 |
|
|
3 |
|
IMPLICIT none |
4 |
|
|
5 |
|
contains |
6 |
|
|
7 |
|
SUBROUTINE coefkz2(nsrf, knon, paprs, pplay, t, pcfm, pcfh) |
8 |
|
|
9 |
! J'introduit un peu de diffusion sauf dans les endroits |
! J'introduit un peu de diffusion sauf dans les endroits |
10 |
! ou une forte inversion est presente |
! ou une forte inversion est presente |
16 |
use conf_gcm_m |
use conf_gcm_m |
17 |
use SUPHEC_M |
use SUPHEC_M |
18 |
|
|
|
IMPLICIT none |
|
|
|
|
19 |
! Arguments: |
! Arguments: |
20 |
! nsrf-----input-I- indicateur de la nature du sol |
! nsrf-----input-I- indicateur de la nature du sol |
21 |
! knon-----input-I- nombre de points a traiter |
! knon-----input-I- nombre de points a traiter |
95 |
ENDDO |
ENDDO |
96 |
|
|
97 |
END SUBROUTINE coefkz2 |
END SUBROUTINE coefkz2 |
98 |
|
|
99 |
|
end module coefkz2_m |