Changeset 148 for trunk/SOURCES/Ant16_files/bmelt-ant-regions-initmip_mod.f90

Timestamp:

10/25/17 15:16:28 (7 years ago)

Author:

aquiquet

Message:

Minor bug correction in flottab + compatibility between ant40 and ant16 geometries + get rid of unused variable in eaubasale.

File:

• trunk/SOURCES/Ant16_files/bmelt-ant-regions-initmip_mod.f90 (modified) (2 diffs)

trunk/SOURCES/Ant16_files/bmelt-ant-regions-initmip_mod.f90

@@ -46 +46 @@
     ! Cette routine fait l'initialisation pour la fusion basale.
     ! Elle est appelée par inputfile-vec-0.5.f90
-        
+
     real*8, dimension(:,:),   pointer    :: tab               !< tableau 2d real pointer
     character(len=100) :: file_number_shelves ! fichier avec les zones ice-shelves
@@ -125 +125 @@
   write(num_rep_42,428)'!_______________________________________________________________________' 
 
-  
-  file_bmelt_anom  = trim(dirnameinp)//trim(file_bmelt_anom)
-  call Read_Ncdf_var('abmb',file_bmelt_anom,tab)
-  bmelt_anom (:,:) = Tab(:,:)
+  if ( bmelt_time .eq. 1 ) then  
+     file_bmelt_anom  = trim(dirnameinp)//trim(file_bmelt_anom)
+     call Read_Ncdf_var('abmb',file_bmelt_anom,tab)
+     bmelt_anom (:,:) = Tab(:,:)
+  end if