Changeset 469 for branches/GRISLIv3/SOURCES/tab-litho-0.3.f90

Timestamp:

01/26/24 17:34:15 (4 months ago)

Author:

aquiquet

Message:

Cleaning branch: old empty ritz files and unused file numbers removed

File:

• branches/GRISLIv3/SOURCES/tab-litho-0.3.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/tab-litho-0.3.f90

@@ -88 +88 @@
   WE(:,:) = WE(:,:)/(som*ROM*g)
 
-
-
-  ! ATTENTION DESSOUS VALABLE SEULEMENT EN 40 km
-
-  ! la partie ci-dessous doit etre mise dans une routine specifique Philippe
-  !       pour faire exactement la meme isostasie que Philippe
-  !if ((icouple.eq.2).or.(icouple.eq.4)) then
-
-  !   LBLOC=10
-
-  !   do I=-LBLOC,LBLOC
-  !      do J=-LBLOC,LBLOC
-  !         We(i,j)=0.   ! mise a 0 partout
-  !      end do
-  !   end do
-  !   open(num_phil,file='../INPUT/iso-philippe')
-
-  !   read(num_phil,*)
-  !   read(num_phil,*)
-  !   read(num_phil,*)
-  !   read(num_phil,*)
-  !   do J=-10,10
-  !      read(num_phil,*)(We(i,j),i=-10,10)
-  !   end do
-  !   close(num_phil)
-  !   do i=-LBLOC,LBLOC
-  !      do j=-LBLOC,LBLOC
-  !         we(i,j)=we(i,j)/11030/g/rom
-  !      end do
-  !   end do
-  !endif
-
   return
 end subroutine tab_litho