Changeset 3769 for LMDZ6/branches/Optimisation_LMDZ/libf/phylmd

Timestamp:

Jul 21, 2020, 5:46:04 PM (4 years ago)

Author:

adurocher

Message:

Fixed missing xios function in interface

Location:

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd

Files:

• phys_output_write_xios_mod.f90 (modified) (1 diff)
• xios_interface.F90 (modified) (2 diffs)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_xios_mod.f90

@@ -326 +326 @@
     USE print_control_mod, ONLY: prt_level, lunout
 
-    USE xios_interface, ONLY : CPP_XIOS_defined, xios_fieldgroup, xios_field, xios_get_handle, xios_add_child, xios_set_attr, xios_update_calendar
+    USE xios_interface, ONLY : CPP_XIOS_defined, xios_fieldgroup, xios_field, xios_get_handle, xios_add_child, xios_set_attr, xios_update_calendar, xios_setVar
     USE wxios, ONLY: wxios_closedef, missing_val, wxios_set_context
     USE vertical_layers_mod, ONLY: presnivs

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/xios_interface.F90

@@ -4 +4 @@
 #ifdef CPP_XIOS
   use xios, ONLY : xios_field_is_active, xios_send_field, xios_fieldgroup, xios_field, &
-                   xios_get_handle, xios_add_child, xios_set_attr, xios_update_calendar
+                   xios_get_handle, xios_add_child, xios_set_attr, xios_update_calendar, xios_setvar
   logical :: CPP_XIOS_defined = .true.
 #else
@@ -59 +59 @@
   subroutine xios_update_calendar(i)
     integer :: i
-  end subroutine   
+  end subroutine
+
+  logical function xios_setVar(varId, data_k8)
+      LOGICAL  (kind = 1)                           :: val
+      CHARACTER(len = *)               , INTENT(IN) :: varId
+      REAL     (kind = 8)              , INTENT(IN) :: data_k8
+      xios_setVar = .true.
+  end function xios_setVar
 #endif
 end module