| [2336] | 1 | SUBROUTINE convmas1_loc (pbaru, pbarv, convm) |
|---|
| 2 | ! |
|---|
| 3 | !------------------------------------------------------------------------------- |
|---|
| 4 | ! Authors: P. Le Van , Fr. Hourdin. |
|---|
| 5 | !------------------------------------------------------------------------------- |
|---|
| 6 | ! Purpose: Compute mass flux convergence at p levels. |
|---|
| 7 | ! Equivalent to convmas_loc if convmas2_loc is called after. |
|---|
| 8 | USE parallel_lmdz |
|---|
| 9 | USE mod_filtreg_p |
|---|
| 10 | IMPLICIT NONE |
|---|
| 11 | include "dimensions.h" |
|---|
| 12 | include "paramet.h" |
|---|
| 13 | include "comgeom.h" |
|---|
| 14 | !=============================================================================== |
|---|
| 15 | ! Arguments: |
|---|
| 16 | REAL, INTENT(IN) :: pbaru(ijb_u:ije_u,llm) |
|---|
| 17 | REAL, INTENT(IN) :: pbarv(ijb_v:ije_v,llm) |
|---|
| 18 | REAL, TARGET, INTENT(OUT) :: convm(ijb_u:ije_u,llm) |
|---|
| 19 | !=============================================================================== |
|---|
| 20 | ! Method used: Computation from top to bottom. |
|---|
| 21 | ! Mass convergence at level llm is equal to zero and is not stored in convm. |
|---|
| 22 | !=============================================================================== |
|---|
| 23 | ! Local variables: |
|---|
| 24 | INTEGER :: l, jjb, jje |
|---|
| 25 | !=============================================================================== |
|---|
| [1632] | 26 | |
|---|
| [2336] | 27 | !--- Computation of - (d(pbaru)/dx + d(pbarv)/dy ) |
|---|
| 28 | CALL convflu_loc( pbaru, pbarv, llm, convm ) |
|---|
| [1632] | 29 | |
|---|
| [2336] | 30 | !--- Filter |
|---|
| 31 | jjb=jj_begin |
|---|
| 32 | jje=jj_end+1 |
|---|
| 33 | IF(pole_sud) jje=jj_end |
|---|
| 34 | CALL filtreg_p(convm,jjb_u,jje_u,jjb,jje,jjp1,llm,2,2,.TRUE.,1) |
|---|
| [1632] | 35 | |
|---|
| [2336] | 36 | END SUBROUTINE convmas1_loc |
|---|
| [1632] | 37 | |
|---|
