Index: LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_amma_read.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_amma_read.F90	(revision 5213)
+++ LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_amma_read.F90	(revision 5249)
@@ -179,4 +179,5 @@
 
 !program reading forcings of the AMMA case study
+      USE netcdf, ONLY: nf90_get_var
       implicit none
       INCLUDE "netcdf.inc"
@@ -268,9 +269,5 @@
 !      call catchaxis(nid,ntime,nlevel,time,z,ierr)
  
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(1),zz)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(1),zz)
-#endif
+         ierr = nf90_get_var(nid, var3didin(1), zz)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -279,9 +276,5 @@
 !          write(*,*)'lecture z ok',zz
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(2),temp)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(2),temp)
-#endif
+         ierr = nf90_get_var(nid, var3didin(2), temp)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -290,9 +283,5 @@
 !          write(*,*)'lecture th ok',temp
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(3),qv)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(3),qv)
-#endif
+         ierr = nf90_get_var(nid, var3didin(3), qv)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -301,9 +290,5 @@
 !          write(*,*)'lecture qv ok',qv
  
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(4),u)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(4),u)
-#endif
+         ierr = nf90_get_var(nid, var3didin(4), u)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -312,9 +297,5 @@
 !          write(*,*)'lecture u ok',u
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(5),v)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(5),v)
-#endif
+         ierr = nf90_get_var(nid, var3didin(5), v)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -323,9 +304,5 @@
 !          write(*,*)'lecture v ok',v
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(6),dw)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(6),dw)
-#endif
+         ierr = nf90_get_var(nid, var3didin(6), dw)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -334,9 +311,5 @@
 !          write(*,*)'lecture w ok',dw
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(7),dt)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(7),dt)
-#endif
+         ierr = nf90_get_var(nid, var3didin(7), dt)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -345,9 +318,5 @@
 !          write(*,*)'lecture dt ok',dt
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(8),dq)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(8),dq)
-#endif
+         ierr = nf90_get_var(nid, var3didin(8), dq)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -356,9 +325,5 @@
 !          write(*,*)'lecture dq ok',dq
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(9),sens)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(9),sens)
-#endif
+         ierr = nf90_get_var(nid, var3didin(9), sens)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -367,9 +332,5 @@
 !          write(*,*)'lecture sens ok',sens
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(10),flat)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(10),flat)
-#endif
+         ierr = nf90_get_var(nid, var3didin(10), flat)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -378,9 +339,5 @@
 !          write(*,*)'lecture flat ok',flat
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(11),pp)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(11),pp)
-#endif
+         ierr = nf90_get_var(nid, var3didin(11), pp)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -437,5 +394,5 @@
        endif
        if (annee_ref.eq.2006 .and. day1.lt.day_ini_amma) then
-        print*,'AMMA a débuté le 10 juillet 2006',day1,day_ini_amma
+        print*,'AMMA a d�but� le 10 juillet 2006',day1,day_ini_amma
         print*,'Changer dayref dans run.def'
         stop
Index: LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read.F90	(revision 5213)
+++ LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read.F90	(revision 5249)
@@ -266,4 +266,5 @@
 
 !program reading forcing of the case study
+      USE netcdf, ONLY: nf90_get_var
       implicit none
       INCLUDE "netcdf.inc"
@@ -532,9 +533,5 @@
          endif
  
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(1),zz)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(1),zz)
-#endif
+         ierr = nf90_get_var(nid, var3didin(1), zz)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -543,9 +540,5 @@
 !          write(*,*)'lecture z ok',zz
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(2),pp)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(2),pp)
-#endif
+         ierr = nf90_get_var(nid, var3didin(2), pp)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -555,9 +548,5 @@
 
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(3),temp)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(3),temp)
-#endif
+         ierr = nf90_get_var(nid, var3didin(3), temp)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -566,9 +555,5 @@
 !          write(*,*)'lecture T ok',temp
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(4),qv)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(4),qv)
-#endif
+         ierr = nf90_get_var(nid, var3didin(4), qv)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -577,9 +562,5 @@
 !          write(*,*)'lecture qv ok',qv
  
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(5),rh)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(5),rh)
-#endif
+         ierr = nf90_get_var(nid, var3didin(5), rh)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -588,9 +569,5 @@
 !          write(*,*)'lecture rh ok',rh
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(6),theta)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(6),theta)
-#endif
+         ierr = nf90_get_var(nid, var3didin(6), theta)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -599,9 +576,5 @@
 !          write(*,*)'lecture theta ok',theta
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(7),rv)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(7),rv)
-#endif
+         ierr = nf90_get_var(nid, var3didin(7), rv)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -610,9 +583,5 @@
 !          write(*,*)'lecture rv ok',rv
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(8),u)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(8),u)
-#endif
+         ierr = nf90_get_var(nid, var3didin(8), u)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -621,9 +590,5 @@
 !          write(*,*)'lecture u ok',u
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(9),v)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(9),v)
-#endif
+         ierr = nf90_get_var(nid, var3didin(9), v)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -632,9 +597,5 @@
 !          write(*,*)'lecture v ok',v
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(10),ug)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(10),ug)
-#endif
+         ierr = nf90_get_var(nid, var3didin(10), ug)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -643,9 +604,5 @@
 !          write(*,*)'lecture ug ok',ug
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(11),vg)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(11),vg)
-#endif
+         ierr = nf90_get_var(nid, var3didin(11), vg)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -654,9 +611,5 @@
 !          write(*,*)'lecture vg ok',vg
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(12),w)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(12),w)
-#endif
+         ierr = nf90_get_var(nid, var3didin(12), w)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -665,9 +618,5 @@
 !          write(*,*)'lecture w ok',w
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(13),du)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(13),du)
-#endif
+         ierr = nf90_get_var(nid, var3didin(13), du)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -676,9 +625,5 @@
 !          write(*,*)'lecture du ok',du
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(14),hu)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(14),hu)
-#endif
+         ierr = nf90_get_var(nid, var3didin(14), hu)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -687,9 +632,5 @@
 !          write(*,*)'lecture hu ok',hu
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(15),vu)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(15),vu)
-#endif
+         ierr = nf90_get_var(nid, var3didin(15), vu)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -698,9 +639,5 @@
 !          write(*,*)'lecture vu ok',vu
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(16),dv)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(16),dv)
-#endif
+         ierr = nf90_get_var(nid, var3didin(16), dv)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -709,9 +646,5 @@
 !          write(*,*)'lecture dv ok',dv
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(17),hv)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(17),hv)
-#endif
+         ierr = nf90_get_var(nid, var3didin(17), hv)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -720,9 +653,5 @@
 !          write(*,*)'lecture hv ok',hv
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(18),vv)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(18),vv)
-#endif
+         ierr = nf90_get_var(nid, var3didin(18), vv)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -731,9 +660,5 @@
 !          write(*,*)'lecture vv ok',vv
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(19),dt)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(19),dt)
-#endif
+         ierr = nf90_get_var(nid, var3didin(19), dt)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -742,9 +667,5 @@
 !          write(*,*)'lecture dt ok',dt
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(20),ht)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(20),ht)
-#endif
+         ierr = nf90_get_var(nid, var3didin(20), ht)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -753,9 +674,5 @@
 !          write(*,*)'lecture ht ok',ht
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(21),vt)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(21),vt)
-#endif
+         ierr = nf90_get_var(nid, var3didin(21), vt)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -764,9 +681,5 @@
 !          write(*,*)'lecture vt ok',vt
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(22),dq)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(22),dq)
-#endif
+         ierr = nf90_get_var(nid, var3didin(22), dq)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -775,9 +688,5 @@
 !          write(*,*)'lecture dq ok',dq
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(23),hq)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(23),hq)
-#endif
+         ierr = nf90_get_var(nid, var3didin(23), hq)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -786,9 +695,5 @@
 !          write(*,*)'lecture hq ok',hq
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(24),vq)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(24),vq)
-#endif
+         ierr = nf90_get_var(nid, var3didin(24), vq)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -797,9 +702,5 @@
 !          write(*,*)'lecture vq ok',vq
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(25),dth)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(25),dth)
-#endif
+         ierr = nf90_get_var(nid, var3didin(25), dth)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -808,9 +709,5 @@
 !          write(*,*)'lecture dth ok',dth
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(26),hth)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(26),hth)
-#endif
+         ierr = nf90_get_var(nid, var3didin(26), hth)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -819,9 +716,5 @@
 !          write(*,*)'lecture hth ok',hth
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(27),vth)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(27),vth)
-#endif
+         ierr = nf90_get_var(nid, var3didin(27), vth)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -830,9 +723,5 @@
 !          write(*,*)'lecture vth ok',vth
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(28),dr)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(28),dr)
-#endif
+         ierr = nf90_get_var(nid, var3didin(28), dr)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -841,9 +730,5 @@
 !          write(*,*)'lecture dr ok',dr
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(29),hr)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(29),hr)
-#endif
+         ierr = nf90_get_var(nid, var3didin(29), hr)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -852,9 +737,5 @@
 !          write(*,*)'lecture hr ok',hr
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(30),vr)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(30),vr)
-#endif
+         ierr = nf90_get_var(nid, var3didin(30), vr)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -863,9 +744,5 @@
 !          write(*,*)'lecture vr ok',vr
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(31),dtrad)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(31),dtrad)
-#endif
+         ierr = nf90_get_var(nid, var3didin(31), dtrad)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -874,9 +751,5 @@
 !          write(*,*)'lecture dtrad ok',dtrad
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(32),sens)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(32),sens)
-#endif
+         ierr = nf90_get_var(nid, var3didin(32), sens)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -885,9 +758,5 @@
 !          write(*,*)'lecture sens ok',sens
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(33),flat)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(33),flat)
-#endif
+         ierr = nf90_get_var(nid, var3didin(33), flat)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -896,9 +765,5 @@
 !          write(*,*)'lecture flat ok',flat
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(34),ts)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(34),ts)
-#endif
+         ierr = nf90_get_var(nid, var3didin(34), ts)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -907,9 +772,5 @@
 !          write(*,*)'lecture ts ok',ts
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(35),ustar)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(35),ustar)
-#endif
+         ierr = nf90_get_var(nid, var3didin(35), ustar)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -918,9 +779,5 @@
 !         write(*,*)'lecture ustar ok',ustar
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(36),uw)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(36),uw)
-#endif
+         ierr = nf90_get_var(nid, var3didin(36), uw)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -929,9 +786,5 @@
 !         write(*,*)'lecture uw ok',uw
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(37),vw)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(37),vw)
-#endif
+         ierr = nf90_get_var(nid, var3didin(37), vw)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -940,9 +793,5 @@
 !         write(*,*)'lecture vw ok',vw
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(38),q1)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(38),q1)
-#endif
+         ierr = nf90_get_var(nid, var3didin(38), q1)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
@@ -951,9 +800,5 @@
 !         write(*,*)'lecture q1 ok',q1
 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(39),q2)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(39),q2)
-#endif
+         ierr = nf90_get_var(nid, var3didin(39), q2)
          if(ierr/=NF_NOERR) then
             write(*,*) NF_STRERROR(ierr)
