Gaelle 22/03/2016 : coquille
authorGaelle Tanguy <gaelle.tanguy@meteo.fr>
Tue, 22 Mar 2016 14:25:19 +0000 (14:25 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/SURFEX/ch_init_snapn.F90

index 0d98a3f..ca70879 100644 (file)
@@ -139,7 +139,6 @@ DO JSPEC = 1,NEMIS_NBR ! Loop on the number of species
 !
 ! Read the temporal profiles of all snaps
   YRECFM = "E_"//TRIM(CEMIS_NAME(JSPEC))//"_M"
-  YRECFM = 'ICE_STO'
   CALL READ_SURF_FIELD2D(HPROGRAM,XSNAP_MONTHLY(:,:,JSPEC),YRECFM,YCOMMENT,HDIR='-')
   YRECFM = "E_"//TRIM(CEMIS_NAME(JSPEC))//"_D"
   CALL READ_SURF_FIELD2D(HPROGRAM,XSNAP_DAILY(:,:,JSPEC),YRECFM,YCOMMENT,HDIR='-')