Ignore:
Timestamp:
09/15/16 18:27:12 (8 years ago)
Author:
dumas
Message:

Merge branche iLOVECLIM sur rev 87

Location:
branches/iLoveclim
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/iLoveclim

  • branches/iLoveclim/SOURCES/Greeneem_files/lect-greeneem_mod.f90

    r77 r88  
    165165 
    166166    ! calcul des courbures du socle 
    167     call courbure(nx,ny,dx,Bsoc,bidon(:,:,1),bidon(:,:,2),bidon(:,:,3), & 
    168          bidon(:,:,4),socle_cry,bidon(:,:,5)) 
    169     socle_cry(:,:)=socle_cry(:,:)*dx*dx 
     167!    call courbure(nx,ny,dx,Bsoc,bidon(:,:,1),bidon(:,:,2),bidon(:,:,3), & 
     168!         bidon(:,:,4),socle_cry,bidon(:,:,5)) 
     169!    socle_cry(:,:)=socle_cry(:,:)*dx*dx 
    170170 
    171171    !------------------------------------------------      
Note: See TracChangeset for help on using the changeset viewer.