Skip to content
Snippets Groups Projects
Commit 6f527c59 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 27/09/2019: Correction for the emission if restart

parent 3fe905be
No related branches found
No related tags found
No related merge requests found
...@@ -59,6 +59,7 @@ END MODULE MODI_PASPOL ...@@ -59,6 +59,7 @@ END MODULE MODI_PASPOL
!! C.Lac 11/11 Remove instant M !! C.Lac 11/11 Remove instant M
!! P.Wautelet 28/03/2018 Replace TEMPORAL_DIST by DATETIME_DISTANCE !! P.Wautelet 28/03/2018 Replace TEMPORAL_DIST by DATETIME_DISTANCE
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
!! Quentin R.: 09/2019: correction for the emission if restart
!! -------------------------------------------------------------------------- !! --------------------------------------------------------------------------
! !
!! EXTERNAL !! EXTERNAL
...@@ -527,7 +528,7 @@ DO JSV=1,NSV_PP ...@@ -527,7 +528,7 @@ DO JSV=1,NSV_PP
! !
! !
IF (.NOT.GBEGEMIS(JSV)) THEN IF (.NOT.GBEGEMIS(JSV) .AND. CCONF=='START') THEN
XRSVS(:,:,:,IP) = XRSVS(:,:,:,IP) & XRSVS(:,:,:,IP) = XRSVS(:,:,:,IP) &
+XRHODJ(:,:,:)*XSVT(:,:,:,IP)/PTSTEP +XRHODJ(:,:,:)*XSVT(:,:,:,IP)/PTSTEP
GBEGEMIS(JSV)= .TRUE. GBEGEMIS(JSV)= .TRUE.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment