Changeset 117

Timestamp:

06/21/17 16:50:59 (7 years ago)

Author:

dumas

Message:

In steps_time_loop shortoutput is now called just after bilan_eau to avoid instabilities

File:

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

trunk/SOURCES/steps_time_loop.f90

@@ -64 +64 @@
 
      call bilan_eau
+     if (isynchro.eq.1) then
+         call shortoutput
+         diff_H = 0.
+         Bm_dtt(:,:) = 0.
+         bmelt_dtt(:,:) = 0.
+         calv_dtt(:,:)=0.
+         ablbord_dtt(:,:)=0.
+         diff_H_2D(:,:)=0.
+      endif
      
      call flottab
@@ -108 +117 @@
   !====================================================================
 
-  ! time outputs  (volume, extent, ...) 
-  !------------------------------------------------------------------
-  if ((mod(abs(TIME),NDISP*1.).lt.dtmin).or.(isynchro.eq.1).or.(nt.eq.1)) then
-     call shortoutput
-  endif
-
-
   ! horizontal plan snapshots
   !------------------------------------------------------------------
@@ -166 +168 @@
   
   ! end of outputs
-  if (isynchro.eq.1) then
-                 diff_H = 0.
-                 Bm_dtt(:,:) = 0.
-                 bmelt_dtt(:,:) = 0.
-           calv_dtt(:,:)=0.
-                 ablbord_dtt(:,:)=0.
-                 diff_H_2D(:,:)=0.
-        endif    
+
   !====================================================================
   !