Changeset 52 for branches/iLoveclim/SOURCES/GrIce2sea_files/climat_GrIce2sea_years_perturb_mod.f90

Timestamp:

02/23/16 15:30:13 (8 years ago)

Author:

dumas

Message:

Merge branche iLOVECLIM sur rev 51

Location:

branches/iLoveclim

Files:

• . (modified) (1 prop)
• SOURCES/GrIce2sea_files/climat_GrIce2sea_years_perturb_mod.f90 (modified) (4 diffs)

branches/iLoveclim/SOURCES/GrIce2sea_files/climat_GrIce2sea_years_perturb_mod.f90

@@ -100 +100 @@
 
   namelist/clim_smb_T_gen/smb_file,coef_smb_unit,temp_annual_file
-
+  namelist/clim_snap/nb_snap,time_depart_snaps,ecart_snap,file_smb_snap,massb_time
 
 428 format(A)
@@ -118 +118 @@
   smb_file  = trim(dirnameinp)//trim(smb_file)
 
-  call Read_Ncdf_var('z',smb_file,tab)
+  call Read_Ncdf_var('smb',smb_file,tab)
 
 !  call lect_input(3,'smb',1,bm,smb_file,trim(dirnameinp)//trim(runname)//'.nc')
@@ -145 +145 @@
   temp_annual_file = trim(dirnameinp)//trim(temp_annual_file)
 
-  call Read_Ncdf_var('z',temp_annual_file,tab)
+  call Read_Ncdf_var('Tann',temp_annual_file,tab)
   Tann(:,:)  = tab(:,:)
 !  call lect_input(3,'Tann',1,Tann,temp_annual_file,trim(dirnameinp)//trim(runname)//'.nc')
@@ -155 +155 @@
   ta0(:,:)   = Tann(:,:)
   Tjuly(:,:) = Tann(:,:)
-
-
-
-!lecture namelist 
-
-  namelist/clim_snap/nb_snap,time_depart_snaps,ecart_snap,file_smb_snap,massb_time
 
   rewind(num_param)        ! pour revenir au debut du fichier param_list.dat