Ignore:
Timestamp:
03/31/16 10:58:36 (8 years ago)
Author:
aquiquet
Message:

Small bug in isostasy

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/tab-litho-0.3.f90

    r10 r53  
    4747  open(num_kelvin,file=trim(dirnameinp)//'../kelvin.res') 
    4848  read(num_kelvin,*) 
    49   do K=1,NK 
     49  do K=0,NK 
    5050     read(num_kelvin,*) XL,kei(K) 
    5151  end do 
Note: See TracChangeset for help on using the changeset viewer.