Changeset 181 for trunk/SOURCES/steps_time_loop.f90

Timestamp:

02/14/18 09:25:04 (6 years ago)

Author:

aquiquet

Message:

Important bug in isostasy affecting post-rev71 corrected. In addition minor correction for the use of itracebug with restricted domain.

File:

• trunk/SOURCES/steps_time_loop.f90 (modified) (2 diffs)

trunk/SOURCES/steps_time_loop.f90

@@ -24 +24 @@
   use bilan_eau_mod
   use bilan_flux_mod
+  use iso_declar, only: dt_iso
   !  use track_debug 
 
@@ -394 +395 @@
   if (itracebug.eq.1)  call tracebug(' Dans spinup_3_bed')
 
-  if ((nbed.eq.1).and.nt.ne.1.and.isynchro.eq.1.and.(mod(abs(TIME),50.).lt.dtmin)) then
+  if ((nbed.eq.1).and.nt.ne.1.and.isynchro.eq.1.and.(mod(abs(TIME),dt_iso).lt.dtmin)) then
     call bedrock                 !  bedrock adjustment
   endif