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.f revision 82 by guez, Wed Mar 5 14:57:53 2014 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 |