Changeset 41 for trunk/SOURCES/dragging_hwat_sedim_mod.f90

Timestamp:

02/03/16 09:38:41 (8 years ago)

Author:

dumas

Message:

Nouveau module de dragging : dragging_neff_contmaj_mod.f90 | correction d'un bug sur les indices dans relaxation_water_diffusion.f90 | suppression du coef 0.1 dans le calcul de betamx et betamy pour les points cotiers dans dragging_hwat_sedim_mod.f90 pour eviter le recul rapide de la grounding line en Antarctique

File:

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

trunk/SOURCES/dragging_hwat_sedim_mod.f90

@@ -325 +325 @@
 
       if (cotemx(i,j)) then                        ! point cotier
-         betamx(i,j)=cf*neffmx(i,j)*0.1 
+         betamx(i,j)=cf*neffmx(i,j) 
 ! cat         betamx(i,j)=min(betamx(i,j),tobmax)
 ! version Jorge
@@ -379 +379 @@
 
       if (cotemy(i,j)) then                        ! point cotier
-         betamy(i,j)=cf*neffmy(i,j)*0.1 
+         betamy(i,j)=cf*neffmy(i,j) 
 ! cat         betamy(i,j)=min(betamy(i,j),tobmax)
 ! version Jorge