| [2336] | 1 | SUBROUTINE convmas2_loc (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 convmas1_loc is called before. |
|---|
| 8 | USE parallel_lmdz |
|---|
| [5271] | 9 | USE dimensions_mod, ONLY: iim, jjm, llm, ndm |
|---|
| [5272] | 10 | USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & |
|---|
| 11 | ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm |
|---|
| [5271] | 12 | IMPLICIT NONE |
|---|
| 13 | |
|---|
| [5272] | 14 | |
|---|
| [2336] | 15 | include "comgeom.h" |
|---|
| 16 | !=============================================================================== |
|---|
| 17 | ! Arguments: |
|---|
| 18 | REAL, INTENT(INOUT) :: 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, ijb, ije |
|---|
| 25 | !=============================================================================== |
|---|
| [1632] | 26 | |
|---|
| [2336] | 27 | !$OMP MASTER |
|---|
| 28 | !--- Mass convergence is integrated from top to bottom |
|---|
| 29 | ijb=ij_begin |
|---|
| 30 | ije=ij_end+iip1 |
|---|
| 31 | IF(pole_sud) ije=ij_end |
|---|
| 32 | DO l=llmm1,1,-1 |
|---|
| 33 | convm(ijb:ije,l) = convm(ijb:ije,l) + convm(ijb:ije,l+1) |
|---|
| 34 | END DO |
|---|
| 35 | !$OMP END MASTER |
|---|
| [1632] | 36 | |
|---|
| [2336] | 37 | END SUBROUTINE convmas2_loc |
|---|
| [1632] | 38 | |
|---|
