Changeset 254 for branches/iLoveclim/SOURCES/bilan_eau_mod.f90

Timestamp:

04/25/19 17:30:50 (5 years ago)

Author:

aquiquet

Message:

Grisli-iloveclim branch merged to trunk at revision 253 + some corrections for water conservation

Location:

branches/iLoveclim

Files:

• . (modified) (1 prop)
• SOURCES/bilan_eau_mod.f90 (modified) (2 diffs)

branches/iLoveclim/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.
@@ -135 +136 @@
 
 
-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)