Index: LMDZ6/trunk/libf/phylmd/iostart.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/iostart.F90	(revision 3069)
+++ LMDZ6/trunk/libf/phylmd/iostart.F90	(revision 3070)
@@ -89,9 +89,5 @@
     LOGICAL,INTENT(OUT),OPTIONAL   :: found 
 
-    IF (PRESENT(found)) THEN
-      CALL Get_field_rgen(field_name,field,1,found)
-    ELSE
-      CALL Get_field_rgen(field_name,field,1)
-    ENDIF
+    CALL Get_field_rgen(field_name,field,1,found)
       
   END SUBROUTINE Get_Field_r1
@@ -103,9 +99,5 @@
     LOGICAL,INTENT(OUT),OPTIONAL   :: found 
 
-    IF (PRESENT(found)) THEN
-      CALL Get_field_rgen(field_name,field,size(field,2),found)
-    ELSE
-      CALL Get_field_rgen(field_name,field,size(field,2))
-    ENDIF
+    CALL Get_field_rgen(field_name,field,size(field,2),found)
 
       
@@ -118,9 +110,5 @@
     LOGICAL,INTENT(OUT),OPTIONAL   :: found 
 
-    IF (PRESENT(found)) THEN
-      CALL Get_field_rgen(field_name,field,size(field,2)*size(field,3),found)
-    ELSE
-      CALL Get_field_rgen(field_name,field,size(field,2)*size(field,3))
-    ENDIF
+    CALL Get_field_rgen(field_name,field,size(field,2)*size(field,3),found)
       
   END SUBROUTINE Get_Field_r3
@@ -208,9 +196,5 @@
     REAL                         :: varout(1)
     
-    IF (PRESENT(found)) THEN
-      CALL Get_var_rgen(var_name,varout,size(varout),found)
-    ELSE
-      CALL Get_var_rgen(var_name,varout,size(varout))
-    ENDIF
+    CALL Get_var_rgen(var_name,varout,size(varout),found)
     var=varout(1)
  
@@ -223,9 +207,5 @@
     LOGICAL,OPTIONAL,INTENT(OUT) :: found
     
-    IF (PRESENT(found)) THEN
-      CALL Get_var_rgen(var_name,var,size(var),found)
-    ELSE
-      CALL Get_var_rgen(var_name,var,size(var))
-    ENDIF
+    CALL Get_var_rgen(var_name,var,size(var),found)
   
   END SUBROUTINE get_var_r1
@@ -237,9 +217,5 @@
     LOGICAL,OPTIONAL,INTENT(OUT) :: found
     
-    IF (PRESENT(found)) THEN
-      CALL Get_var_rgen(var_name,var,size(var),found)
-    ELSE
-      CALL Get_var_rgen(var_name,var,size(var))
-    ENDIF
+    CALL Get_var_rgen(var_name,var,size(var),found)
   
   END SUBROUTINE get_var_r2
@@ -251,9 +227,5 @@
     LOGICAL,OPTIONAL,INTENT(OUT) :: found
     
-    IF (PRESENT(found)) THEN
-      CALL Get_var_rgen(var_name,var,size(var),found)
-    ELSE
-      CALL Get_var_rgen(var_name,var,size(var))
-    ENDIF
+    CALL Get_var_rgen(var_name,var,size(var),found)
   
   END SUBROUTINE get_var_r3