Changeset 48 for trunk/SOURCES/Hemin40_files/lect-hemin40_mod.f90

Timestamp:

02/08/16 14:12:52 (8 years ago)

Author:

aquiquet

Message:

Hemin40: GHF from netcdf4 to classic and topo_dep in lect-hemin40

File:

• trunk/SOURCES/Hemin40_files/lect-hemin40_mod.f90 (modified) (1 diff)

trunk/SOURCES/Hemin40_files/lect-hemin40_mod.f90

@@ -106 +106 @@
     call lect_input(1,'H',1,H0,topo_ref,file_ncdf)          ! epaisseur
 
+!     lecture de la topo de départ
+    call lect_input(1,'Bsoc',1,Bsoc,topo_dep,file_ncdf)    ! socle
+    call lect_input(1,'S',1,S,topo_dep,file_ncdf)          ! surface
+    call lect_input(1,'H',1,H,topo_dep,file_ncdf)          ! epaisseur
+
 
 ! calcul des courbures du socle