Parent Directory
| 
Revision Log
Removed unused file "condsurf.f" (only useful for ocean slab). day_step must be a multiple of 4 * iperiod if ok_guide. Changed type of variable online of module conf_guide_m from integer to logical. Value -1 was not useful, equivalent to not ok_guide. Removed argument masse of procedure guide. masse is kept consistent with ps throughout the run. masse need only be computed again just after ps has been modified. In prodecure guide, replaced use of remanent variable first by test on itau. Replaced test on variable "test" by test on integer values. In leapfrog, for the call to guide, replaced test on real values by test on integer values. Bug fix in tau2alpha: computation of dxdyv (following LMDZ revision 1040). In procedure wrgrads, replaced badly chosen argument name "if" by i_f.
| 1 | module massdair_m |
| 2 | |
| 3 | IMPLICIT NONE |
| 4 | |
| 5 | contains |
| 6 | |
| 7 | SUBROUTINE massdair(p, masse) |
| 8 | |
| 9 | ! From LMDZ4/libf/dyn3d/massdair.F, version 1.1.1.1 2004/05/19 12:53:07 |
| 10 | |
| 11 | ! Calcule la masse d'air dans chaque maille. |
| 12 | ! Authors: P. Le Van, F. Hourdin |
| 13 | |
| 14 | USE comgeom, ONLY: airesurg_2d |
| 15 | USE dimens_m, ONLY: iim, jjm, llm |
| 16 | |
| 17 | REAL, intent(in):: p(iim + 1, jjm + 1, llm + 1) |
| 18 | ! aux interfaces des llm couches |
| 19 | |
| 20 | real, intent(out):: masse(iim + 1, jjm + 1, llm) |
| 21 | |
| 22 | ! Local: |
| 23 | INTEGER l |
| 24 | |
| 25 | !---------------------------------------------------------- |
| 26 | |
| 27 | forall (l = 1: llm) masse(:iim, :, l) = airesurg_2d(:iim, :) & |
| 28 | * (p(:iim, :, l) - p(:iim, :, l + 1)) |
| 29 | masse(iim + 1, :, :) = masse(1, :, :) |
| 30 | |
| 31 | END SUBROUTINE massdair |
| 32 | |
| 33 | end module massdair_m |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |