| 1 | SUBROUTINE add_pbl_tend(zdu, zdv, zdt, zdq, zdql, zdqi, paprs, text,abortphy) |
|---|
| 2 | ! ====================================================================== |
|---|
| 3 | ! Ajoute les tendances de couche limite, soit determinees par la |
|---|
| 4 | ! parametrisation |
|---|
| 5 | ! physique, soit forcees, aux variables d etat de la dynamique t_seri, |
|---|
| 6 | ! q_seri ... |
|---|
| 7 | ! ====================================================================== |
|---|
| 8 | |
|---|
| 9 | |
|---|
| 10 | ! ====================================================================== |
|---|
| 11 | ! Declarations |
|---|
| 12 | ! ====================================================================== |
|---|
| 13 | |
|---|
| 14 | USE dimphy |
|---|
| 15 | USE phys_local_var_mod |
|---|
| 16 | USE phys_state_var_mod |
|---|
| 17 | IMPLICIT NONE |
|---|
| 18 | include "dimensions.h" |
|---|
| 19 | REAL hthturb_gcssold(llm) |
|---|
| 20 | REAL hqturb_gcssold(llm) |
|---|
| 21 | REAL dtime_frcg |
|---|
| 22 | INTEGER abortphy |
|---|
| 23 | LOGICAL turb_fcg_gcssold |
|---|
| 24 | COMMON /turb_forcing/dtime_frcg, hthturb_gcssold, hqturb_gcssold, & |
|---|
| 25 | turb_fcg_gcssold |
|---|
| 26 | |
|---|
| 27 | ! Arguments : |
|---|
| 28 | ! ------------ |
|---|
| 29 | REAL zdu(klon, klev), zdv(klon, klev) |
|---|
| 30 | REAL zdt(klon, klev), zdq(klon, klev), zdql(klon, klev), zdqi(klon, klev) |
|---|
| 31 | CHARACTER *(*) text |
|---|
| 32 | REAL paprs(klon,klev+1) |
|---|
| 33 | |
|---|
| 34 | ! Local : |
|---|
| 35 | ! -------- |
|---|
| 36 | REAL zzdt(klon, klev), zzdq(klon, klev) |
|---|
| 37 | INTEGER i, k |
|---|
| 38 | |
|---|
| 39 | IF (turb_fcg_gcssold) THEN |
|---|
| 40 | DO k = 1, klev |
|---|
| 41 | DO i = 1, klon |
|---|
| 42 | zzdt(i, k) = hthturb_gcssold(k)*dtime_frcg |
|---|
| 43 | zzdq(i, k) = hqturb_gcssold(k)*dtime_frcg |
|---|
| 44 | END DO |
|---|
| 45 | END DO |
|---|
| 46 | PRINT *, ' add_pbl_tend, dtime_frcg ', dtime_frcg |
|---|
| 47 | PRINT *, ' add_pbl_tend, zzdt ', zzdt |
|---|
| 48 | PRINT *, ' add_pbl_tend, zzdq ', zzdq |
|---|
| 49 | CALL add_phys_tend(zdu, zdv, zzdt, zzdq, zdql, zdqi, paprs, text,abortphy) |
|---|
| 50 | ELSE |
|---|
| 51 | CALL add_phys_tend(zdu, zdv, zdt, zdq, zdql, zdqi, paprs, text,abortphy) |
|---|
| 52 | END IF |
|---|
| 53 | |
|---|
| 54 | |
|---|
| 55 | RETURN |
|---|
| 56 | END SUBROUTINE add_pbl_tend |
|---|
