- Timestamp:
- 05/19/17 11:37:34 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/climat-forcage-insolation_mod_oneway.f90
r65 r108 101 101 102 102 !temperature 103 filin=TRIM(dirnameinp)// TRIM(filtr_t(ictr,igtr,intr))103 filin=TRIM(dirnameinp)//'forcing/'//TRIM(filtr_t(ictr,igtr,intr)) 104 104 call Read_ncdf_var('t2m',trim(filin),data_3D) ! Temperature 105 Tm_fin(:,:,:,ictr,igtr,intr)=data_3D(:,:,:) 105 Tm_fin(:,:,:,ictr,igtr,intr)=data_3D(:,:,:) 106 106 ! WRITE(6,*) TRIM(filin) 107 107 ! OPEN(20,file=TRIM(filin)) … … 116 116 117 117 !precipitation 118 filin=TRIM(dirnameinp)// TRIM(filtr_p(ictr,igtr,intr))118 filin=TRIM(dirnameinp)//'forcing/'//TRIM(filtr_p(ictr,igtr,intr)) 119 119 call Read_ncdf_var('precip',trim(filin),data_3D) ! precipitation 120 120 Pm_fin(:,:,:,ictr,igtr,intr)=data_3D(:,:,:) … … 132 132 133 133 ! topo 134 filin=TRIM(dirnameinp)// TRIM(file_topo(ictr,igtr))134 filin=TRIM(dirnameinp)//'forcing/'//TRIM(file_topo(ictr,igtr)) 135 135 call Read_ncdf_var('TOPO',trim(filin),data_2D) ! topo 136 136 Ssnap(:,:,ictr,igtr)=data_2D(:,:)
Note: See TracChangeset
for help on using the changeset viewer.