Skip to content
Snippets Groups Projects
Commit ef34a317 authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 5/10/2018:ini_cst.f90, for real*4 ,higher value for XEPS_DT = 1.5e-4

parent 0c0a21a9
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 1 deletion
src/MNH/ini_cst.f90
+ 2
− 1
View file @ ef34a317
...@@ -63,6 +63,7 @@ END MODULE MODI_INI_CST ...@@ -63,6 +63,7 @@ END MODULE MODI_INI_CST
!! J. Escobar 28/03/2014 for pb with emissivity/aerosol reset XMNH_TINY=1.0e-80 in real8 case !! J. Escobar 28/03/2014 for pb with emissivity/aerosol reset XMNH_TINY=1.0e-80 in real8 case
!! J.Escobar : 10/2017 : for real*4 , add XMNH_HUGE_12_LOG !! J.Escobar : 10/2017 : for real*4 , add XMNH_HUGE_12_LOG
!! 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
!! J.Escobar : 5/10/2018 : for real*4 ,higher value for XEPS_DT = 1.5e-4
!! !!
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
...@@ -166,7 +167,7 @@ XRES_OTHER = 1.0e-9 ...@@ -166,7 +167,7 @@ XRES_OTHER = 1.0e-9
XRES_PREP = 1.0e-8 XRES_PREP = 1.0e-8
#else #else
XMNH_TINY = TINY (XMNH_TINY ) XMNH_TINY = TINY (XMNH_TINY )
XEPS_DT = 1.0e-4 XEPS_DT = 1.5e-4
XRES_FLAT_CART = 1.0e-12 XRES_FLAT_CART = 1.0e-12
XRES_OTHER = 1.0e-7 XRES_OTHER = 1.0e-7
XRES_PREP = 1.0e-4 XRES_PREP = 1.0e-4
......
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