Changeset 253 for trunk/SOURCES/bilan_eau_mod.f90
- Timestamp:
- 04/25/19 17:21:01 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/bilan_eau_mod.f90
r237 r253 47 47 diff_H=0. 48 48 sum_H_old = sum(H(2:nx-1,2:ny-1),mask=ice(2:nx-1,2:ny-1)==1) 49 H_beau_old(:,:)=H(:,:) 49 50 tot_water(:,:)=0. 50 51 bm_dt(:,:)=0. … … 130 131 131 132 132 if (isynchro.eq.1) then 133 !afq -- if (isynchro.eq.1) then 134 if ((isynchro.eq.1).or.(nt.eq.1)) then 135 133 136 ! on raisonne en bilan annuel pour simplifier : 134 137 !~ where (ice(2:nx-1,2:ny-1).eq.1)
Note: See TracChangeset
for help on using the changeset viewer.