Changeset 253

Timestamp:

04/25/19 17:21:01 (5 years ago)

Author:

aquiquet

Message:

Initial value of water conservation variables corrected

File:

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

trunk/SOURCES/bilan_eau_mod.f90

@@ -47 +47 @@
         diff_H=0.
         sum_H_old = sum(H(2:nx-1,2:ny-1),mask=ice(2:nx-1,2:ny-1)==1)
+        H_beau_old(:,:)=H(:,:)
         tot_water(:,:)=0.
         bm_dt(:,:)=0.
@@ -130 +131 @@
 
 
-if (isynchro.eq.1) then
+!afq -- if (isynchro.eq.1) then
+if ((isynchro.eq.1).or.(nt.eq.1)) then
+
 ! on raisonne en bilan annuel pour simplifier :
 !~      where (ice(2:nx-1,2:ny-1).eq.1)