Index: trunk/LMDZ.COMMON/libf/evolution/io_netcdf.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/io_netcdf.F90	(revision 4134)
+++ trunk/LMDZ.COMMON/libf/evolution/io_netcdf.F90	(revision 4145)
@@ -45,5 +45,5 @@
 integer(di), protected, private :: ncid_file              ! File ID
 integer(di), protected, private :: varid                  ! Variable ID
-integer(di)          :: ncid_diagevo           ! File ID specific to "diagevo.nc"
+integer(di)                     :: ncid_diagevo           ! File ID specific to "diagevo.nc"
 
 ! INTERFACES
@@ -340,4 +340,5 @@
 ! CODE
 ! ----
+! Read
 if (present(found)) then
     call check_nc(nf90_inq_varid(ncid_file,var_name,varid),'inquiring '//var_name,found)
@@ -347,4 +348,6 @@
     call check_nc(nf90_get_var(ncid_file,varid,var),'getting '//var_name)
 end if
+
+! Check the variable validity
 call check_valid_var_nc(var_name,var)
 
@@ -380,4 +383,5 @@
 ! CODE
 ! ----
+! Read
 if (present(found)) then
     call check_nc(nf90_inq_varid(ncid_file,var_name,varid),'inquiring '//var_name,found)
@@ -387,4 +391,6 @@
     call check_nc(nf90_get_var(ncid_file,varid,var),'getting '//var_name)
 end if
+
+! Check the variable validity
 call check_valid_var_nc(var_name,var)
 
@@ -420,4 +426,5 @@
 ! CODE
 ! ----
+! Read
 if (present(found)) then
     call check_nc(nf90_inq_varid(ncid_file,var_name,varid),'inquiring '//var_name,found)
@@ -427,4 +434,6 @@
     call check_nc(nf90_get_var(ncid_file,varid,var),'getting '//var_name)
 end if
+
+! Check the variable validity
 call check_valid_var_nc(var_name,var)
 
@@ -460,4 +469,5 @@
 ! CODE
 ! ----
+! Read
 if (present(found)) then
     call check_nc(nf90_inq_varid(ncid_file,var_name,varid),'inquiring '//var_name,found)
@@ -467,4 +477,6 @@
     call check_nc(nf90_get_var(ncid_file,varid,var),'getting '//var_name)
 end if
+
+! Check the variable validity
 call check_valid_var_nc(var_name,var)
 
@@ -500,4 +512,5 @@
 ! CODE
 ! ----
+! Read
 if (present(found)) then
     call check_nc(nf90_inq_varid(ncid_file,var_name,varid),'inquiring '//var_name,found)
@@ -507,4 +520,6 @@
     call check_nc(nf90_get_var(ncid_file,varid,var),'getting '//var_name)
 end if
+
+! Check the variable validity
 call check_valid_var_nc(var_name,var)
 
@@ -546,4 +561,7 @@
 ! CODE
 ! ----
+! Check the variable validity
+call check_valid_var_nc(var_name,var)
+
 ! Diagevol logic priority over standard logic
 if (open_diagevo) then
@@ -610,4 +628,7 @@
 ! CODE
 ! ----
+! Check the variable validity
+call check_valid_var_nc(var_name,var)
+
 ! Diagevol logic priority over standard logic
 if (open_diagevo) then
@@ -681,4 +702,7 @@
 ! CODE
 ! ----
+! Check the variable validity
+call check_valid_var_nc(var_name,var)
+
 ! Diagevol logic priority over standard logic
 if (open_diagevo) then
@@ -752,4 +776,7 @@
 ! CODE
 ! ----
+! Check the variable validity
+call check_valid_var_nc(var_name,var)
+
 ! Diagevol logic priority over standard logic
 if (open_diagevo) then
@@ -823,4 +850,7 @@
 ! CODE
 ! ----
+! Check the variable validity
+call check_valid_var_nc(var_name,var)
+
 ! Diagevol logic priority over standard logic
 if (open_diagevo) then