Index: LMDZ4/branches/LMDZ4-dev/libf/bibio/nf95_put_var_m.f90
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/bibio/nf95_put_var_m.f90	(revision 1154)
+++ LMDZ4/branches/LMDZ4-dev/libf/bibio/nf95_put_var_m.f90	(revision 1155)
@@ -22,10 +22,9 @@
        stride, map, ncerr)
 
-    use typesizes, only: FourByteReal
     use netcdf, only: nf90_put_var
     use handle_err_m, only: handle_err
 
     integer,                         intent(in) :: ncid, varid
-    real(kind = FourByteReal), intent(in) :: values(:)
+    real, intent(in) :: values(:)
     integer, dimension(:), optional, intent(in) :: start, count, stride, map
     integer, intent(out), optional:: ncerr
@@ -52,10 +51,9 @@
        stride, map, ncerr)
 
-    use typesizes, only: FourByteReal
     use netcdf, only: nf90_put_var
     use handle_err_m, only: handle_err
 
     integer,                         intent( in) :: ncid, varid
-    real (kind = FourByteReal), intent( in) :: values(:, :)
+    real, intent( in) :: values(:, :)
     integer, dimension(:), optional, intent( in) :: start, count, stride, map
     integer, intent(out), optional:: ncerr
@@ -82,10 +80,9 @@
        stride, map, ncerr)
 
-    use typesizes, only: FourByteReal
     use netcdf, only: nf90_put_var
     use handle_err_m, only: handle_err
 
     integer,                         intent( in) :: ncid, varid
-    real (kind = FourByteReal), intent( in) :: values(:, :, :)
+    real, intent( in) :: values(:, :, :)
     integer, dimension(:), optional, intent( in) :: start, count, stride, map
     integer, intent(out), optional:: ncerr
@@ -112,10 +109,9 @@
        stride, map, ncerr)
 
-    use typesizes, only: FourByteReal
     use netcdf, only: nf90_put_var
     use handle_err_m, only: handle_err
 
     integer,                         intent( in) :: ncid, varid
-    real (kind = FourByteReal), intent( in) :: values(:, :, :, :)
+    real, intent( in) :: values(:, :, :, :)
     integer, dimension(:), optional, intent( in) :: start, count, stride, map
     integer, intent(out), optional:: ncerr