Changeset 3411 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/iostart.F90

Timestamp:

Nov 5, 2018, 3:24:59 PM (6 years ago)

Author:

Laurent Fairhead

Message:

Undoing merge with trunk (r3356) to properly register Yann's latest modifications

Location:

LMDZ6/branches/DYNAMICO-conv

Files:

• . (modified) (1 prop)
• libf/phylmd/iostart.F90 (modified) (7 diffs)

LMDZ6/branches/DYNAMICO-conv/libf/phylmd/iostart.F90

@@ -89 +89 @@
     LOGICAL,INTENT(OUT),OPTIONAL   :: found 
 
-    CALL Get_field_rgen(field_name,field,1,found)
+    IF (PRESENT(found)) THEN
+      CALL Get_field_rgen(field_name,field,1,found)
+    ELSE
+      CALL Get_field_rgen(field_name,field,1)
+    ENDIF
       
   END SUBROUTINE Get_Field_r1
@@ -99 +103 @@
     LOGICAL,INTENT(OUT),OPTIONAL   :: found 
 
-    CALL Get_field_rgen(field_name,field,size(field,2),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
 
       
@@ -110 +118 @@
     LOGICAL,INTENT(OUT),OPTIONAL   :: found 
 
-    CALL Get_field_rgen(field_name,field,size(field,2)*size(field,3),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
       
   END SUBROUTINE Get_Field_r3
@@ -207 +219 @@
     REAL                         :: varout(1)
     
-    CALL Get_var_rgen(var_name,varout,size(varout),found)
+    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
     var=varout(1)
  
@@ -218 +234 @@
     LOGICAL,OPTIONAL,INTENT(OUT) :: found
     
-    CALL Get_var_rgen(var_name,var,size(var),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
   
   END SUBROUTINE get_var_r1
@@ -228 +248 @@
     LOGICAL,OPTIONAL,INTENT(OUT) :: found
     
-    CALL Get_var_rgen(var_name,var,size(var),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
   
   END SUBROUTINE get_var_r2
@@ -238 +262 @@
     LOGICAL,OPTIONAL,INTENT(OUT) :: found
     
-    CALL Get_var_rgen(var_name,var,size(var),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
   
   END SUBROUTINE get_var_r3