Skip to content
Snippets Groups Projects
Commit d1425cd5 authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan Committed by WAUTELET Philippe
Browse files

Juan 2/03/2016 : bypass , reset NHALO=1 for SPAWNING

parent ca5f3a42
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 5 additions and 0 deletions
src/MNH/init_mnh.f90
+ 5
− 0
View file @ d1425cd5
...@@ -74,6 +74,7 @@ ...@@ -74,6 +74,7 @@
!! V. Masson 15/03/99 call to ini_data_cover !! V. Masson 15/03/99 call to ini_data_cover
!! P.Jabouille 15/07/99 special initialisation for spawning !! P.Jabouille 15/07/99 special initialisation for spawning
!! J.P Chaboureau 2015 add ini_spectre_n !! J.P Chaboureau 2015 add ini_spectre_n
!! J.Escoabr 2/03/2016 bypass , reset NHALO=1 for SPAWNING
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -171,6 +172,10 @@ DO JMI=1,JPMODELMAX ...@@ -171,6 +172,10 @@ DO JMI=1,JPMODELMAX
CALL INI_SEG_n(JMI,YLUOUT(JMI),YINIFILE(JMI),YINIFILEPGD(JMI),ZTSTEP_ALL) CALL INI_SEG_n(JMI,YLUOUT(JMI),YINIFILE(JMI),YINIFILEPGD(JMI),ZTSTEP_ALL)
IF (JMI.EQ.NMODEL) EXIT IF (JMI.EQ.NMODEL) EXIT
END DO END DO
IF (CPROGRAM=='SPAWN ') THEN
!bypass
NHALO = 1
END IF
! !
IF (CPROGRAM=='DIAG') CALL RESET_EXSEG(YLUOUT(1)) IF (CPROGRAM=='DIAG') CALL RESET_EXSEG(YLUOUT(1))
! !
......
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