Changeset 71 for trunk/SOURCES/steps_time_loop.f90

Timestamp:

06/15/16 17:13:33 (8 years ago)

Author:

dumas

Message:

First parallelization instructions with OpenMP tested in debug : exactly the same results | isostasy called only every 50 years

File:

• trunk/SOURCES/steps_time_loop.f90 (modified) (1 diff)

trunk/SOURCES/steps_time_loop.f90

@@ -340 +340 @@
         if (itracebug.eq.1)  call tracebug(' Dans spinup_3_bed')
 
-        if ((nbed.eq.1).and.nt.ne.1.and.isynchro.eq.1) then           
-           call bedrock()                                            !  bedrock adjustment
+!        if ((nbed.eq.1).and.nt.ne.1.and.isynchro.eq.1) then
+         if ((nbed.eq.1).and.nt.ne.1.and.isynchro.eq.1.and.(mod(abs(TIME),50.).lt.dtmin)) then
+           call bedrock                                              !  bedrock adjustment
         endif