Parent Directory | Revision Log | Patch
trunk/libf/dyn3d/dteta1.f90 revision 44 by guez, Wed Apr 13 12:29:18 2011 UTC | trunk/dyn3d/dteta1.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC | |
---|---|---|
# | Line 10 SUBROUTINE dteta1(teta, pbaru, pbarv, dt | Line 10 SUBROUTINE dteta1(teta, pbaru, pbarv, dt |
10 | ||
11 | use dimens_m | use dimens_m |
12 | use paramet_m | use paramet_m |
13 | use logic | use conf_gcm_m |
14 | use filtreg_m, only: filtreg | use filtreg_m, only: filtreg |
15 | ||
16 | IMPLICIT NONE | IMPLICIT NONE |
# | Line 41 SUBROUTINE dteta1(teta, pbaru, pbarv, dt | Line 41 SUBROUTINE dteta1(teta, pbaru, pbarv, dt |
41 | ||
42 | ! stockage dans dh de la convergence horizont. filtree' du flux | ! stockage dans dh de la convergence horizont. filtree' du flux |
43 | ! d'enthalpie potentielle | ! d'enthalpie potentielle |
44 | CALL filtreg(dteta, jjp1, llm, 2, 2, .true., 1) | CALL filtreg(dteta, jjp1, llm, 2, 2, .true.) |
45 | ||
46 | END SUBROUTINE dteta1 | END SUBROUTINE dteta1 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |