Changeset 227

Timestamp:

01/08/19 11:27:46 (5 years ago)

Author:

aquiquet

Message:

Removed local sealevel0 as a bound for topo init as might cause problem for palaeo simulations

File:

• trunk/SOURCES/Ant40_files/lect-anteis_mod.f90 (modified) (3 diffs)

trunk/SOURCES/Ant40_files/lect-anteis_mod.f90

@@ -30 +30 @@
 
   real, dimension(nx,ny,5) :: bidon          ! pour l'appel a courbure
-  real :: sealevel0
+! afq 8/1/19:  real :: sealevel0
 
 contains
@@ -143 +143 @@
     endwhere
 
-    sealevel0=0.  ! voir a passer dans le fichier parametre
-    S0(:,:)=max(S0(:,:),sealevel0)   ! pour etre au niveau des mers : ATTENTION si SEALEV <0
+! afq 8/1/19:    sealevel0=0.  ! voir a passer dans le fichier parametre
+! afq 8/1/19:    S0(:,:)=max(S0(:,:),sealevel0)   ! pour etre au niveau des mers : ATTENTION si SEALEV <0
     mk0(:,:) = 1                   ! mk0=0 pour les zones interdites
 
@@ -181 +181 @@
 !       H(:,:)=1.
 !    endwhere
-    S(:,:)=max(S(:,:),0.)   ! pour etre au niveau des mers : ATTENTION si SEALEV <0
+! afq 8/1/19:    S(:,:)=max(S(:,:),0.)   ! pour etre au niveau des mers : ATTENTION si SEALEV <0
     H(:,:)=max(H(:,:),0.)   ! pas d epaisseurs negatives