Changeset 58

Timestamp:

04/26/16 14:28:27 (8 years ago)

Author:

aquiquet

Message:

Bug fix in flottab: surface below sea level after isostasy

File:

• trunk/SOURCES/flottab2-0.7.f90 (modified) (1 diff)

trunk/SOURCES/flottab2-0.7.f90

@@ -594 +594 @@
 !!$end if
 
-! / test aurel
-debug_3d(:,:,43)=table_out(:,:)
-
-iceberg(:)=.true.
-do j=1,ny
-   do i=1,nx
-      if(.not.flot(i,j)) then
-         iceberg(table_out(i,j))=.false.
-      end if
-   end do
-end do
-
-do j=1,ny
-   do i=1,nx
-
-      debug_3d(i,j,56)=nb_pts_tache(table_out(i,j))
-      if (iceberg(table_out(i,j))) then
-         debug_3d(i,j,57)=1
-      else
-         debug_3d(i,j,57)=0       
-      end if
-   end do
-end do
-! fin test aurel /
-
-
 !ice(:,:)=0   Attention, voir si ca marche toujours pour l'Antarctique et heminord !