Changeset 108

Timestamp:

05/19/17 11:37:34 (7 years ago)

Author:

dumas

Message:

climat-forcage-insolation_mod_oneway.f90 : climate temp, precip and topo files in forcing directory

File:

• trunk/SOURCES/climat-forcage-insolation_mod_oneway.f90 (modified) (3 diffs)

trunk/SOURCES/climat-forcage-insolation_mod_oneway.f90

@@ -101 +101 @@
 
       !temperature
-      filin=TRIM(dirnameinp)//TRIM(filtr_t(ictr,igtr,intr))
+      filin=TRIM(dirnameinp)//'forcing/'//TRIM(filtr_t(ictr,igtr,intr))
       call Read_ncdf_var('t2m',trim(filin),data_3D)    ! Temperature
-      Tm_fin(:,:,:,ictr,igtr,intr)=data_3D(:,:,:) 
+      Tm_fin(:,:,:,ictr,igtr,intr)=data_3D(:,:,:)
 !      WRITE(6,*) TRIM(filin)
 !      OPEN(20,file=TRIM(filin))
@@ -116 +116 @@
 
       !precipitation
-      filin=TRIM(dirnameinp)//TRIM(filtr_p(ictr,igtr,intr))
+      filin=TRIM(dirnameinp)//'forcing/'//TRIM(filtr_p(ictr,igtr,intr))
       call Read_ncdf_var('precip',trim(filin),data_3D)    ! precipitation
       Pm_fin(:,:,:,ictr,igtr,intr)=data_3D(:,:,:) 
@@ -132 +132 @@
 
        ! topo
-    filin=TRIM(dirnameinp)//TRIM(file_topo(ictr,igtr))
+    filin=TRIM(dirnameinp)//'forcing/'//TRIM(file_topo(ictr,igtr))
     call Read_ncdf_var('TOPO',trim(filin),data_2D)    ! topo
     Ssnap(:,:,ictr,igtr)=data_2D(:,:)