Skip to content
Snippets Groups Projects
Commit eb0d6e21 authored by Gaelle Tanguy's avatar Gaelle Tanguy Committed by WAUTELET Philippe
Browse files

Christine 10/04/2014 : initialization of ZR

parent 693af57c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/gravity_impl.f90
+ 1
− 0
View file @ eb0d6e21
...@@ -123,6 +123,7 @@ INTEGER :: JR ...@@ -123,6 +123,7 @@ INTEGER :: JR
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
ZRWS_GRAV = 0. ZRWS_GRAV = 0.
ZR = 0.
! !
! guess of Theta at future time-step ! guess of Theta at future time-step
ZTH(:,:,:) = (PRTHS(:,:,:) + PRTHS_CLD(:,:,:)) / PRHODJ * PTSTEP ZTH(:,:,:) = (PRTHS(:,:,:) + PRTHS_CLD(:,:,:)) / PRHODJ * PTSTEP
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme