Index: /LMDZ5/trunk/libf/phylmd/dyn1d/mod_1D_cases_read2.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/dyn1d/mod_1D_cases_read2.F90	(revision 2757)
+++ /LMDZ5/trunk/libf/phylmd/dyn1d/mod_1D_cases_read2.F90	(revision 2758)
@@ -178,5 +178,5 @@
 
         print*,'Allocations OK'
-        call read_cas(nid,nlev_cas,nt_cas                                       &
+        call read_cas2(nid,nlev_cas,nt_cas                                       &
      &     ,z_cas,plev_cas,t_cas,q_cas,rh_cas,th_cas,rv_cas,u_cas,v_cas         &
      &     ,ug_cas,vg_cas,vitw_cas,du_cas,hu_cas,vu_cas,dv_cas,hv_cas,vv_cas    &
@@ -382,5 +382,5 @@
 END MODULE mod_1D_cases_read2
 !=====================================================================
-      subroutine read_cas(nid,nlevel,ntime                          &
+      subroutine read_cas2(nid,nlevel,ntime                          &
      &     ,zz,pp,temp,qv,rh,theta,rv,u,v,ug,vg,w,                   &
      &     du,hu,vu,dv,hv,vv,dt,dtrad,ht,vt,dq,hq,vq,                     &
@@ -423,5 +423,5 @@
 
        do i=1,nbvar3d
-         print *,'Dans read_cas, on va lire ',nid,i,name_var(i)
+         print *,'Dans read_cas2, on va lire ',nid,i,name_var(i)
        enddo
        do i=1,nbvar3d
@@ -433,5 +433,5 @@
        enddo
        do i=1,nbvar3d
-         print *,'Dans read_cas, on va lire ',var3didin(i),name_var(i)
+         print *,'Dans read_cas2, on va lire ',var3didin(i),name_var(i)
          if(i.LE.35) then
 #ifdef NC_DOUBLE
@@ -440,5 +440,5 @@
          ierr = NF_GET_VAR_REAL(nid,var3didin(i),resul)
 #endif
-         print *,'Dans read_cas, on a lu ',ierr,var3didin(i),name_var(i)
+         print *,'Dans read_cas2, on a lu ',ierr,var3didin(i),name_var(i)
          if(ierr/=NF_NOERR) then
             print *,'Pb a la lecture de cas.nc: ',name_var(i)
@@ -451,5 +451,5 @@
          ierr = NF_GET_VAR_REAL(nid,var3didin(i),resul1)
 #endif
-         print *,'Dans read_cas, on a lu ',ierr,var3didin(i),name_var(i)
+         print *,'Dans read_cas2, on a lu ',ierr,var3didin(i),name_var(i)
          if(ierr/=NF_NOERR) then
             print *,'Pb a la lecture de cas.nc: ',name_var(i)
@@ -501,5 +501,5 @@
 
          return 
-         end subroutine read_cas
+         end subroutine read_cas2
 !======================================================================
       subroutine read2_cas(nid,nlevel,ntime,                                       &
@@ -686,5 +686,5 @@
          end subroutine read2_cas
 !======================================================================
-        SUBROUTINE interp_case_time(day,day1,annee_ref                &
+        SUBROUTINE interp_case_time2(day,day1,annee_ref                &
 !    &         ,year_cas,day_cas,nt_cas,pdt_forc,nlev_cas      &
      &         ,nt_cas,nlev_cas                                       &
@@ -887,5 +887,5 @@
 
         return
-        END SUBROUTINE interp_case_time
+        END SUBROUTINE interp_case_time2
 
 !**********************************************************************************************