Changeset 461 for XIOS/trunk/src/interface/fortran/ixios.F90

Timestamp:

01/20/14 15:01:03 (10 years ago)

Author:

ymipsl

Message:

New function available form fortran interface : LOGICAL xios_context_is_initialized("context_id")
Return .true. if the context "context_id" has been initialized before.

YM

File:

• XIOS/trunk/src/interface/fortran/ixios.F90 (modified) (2 diffs)

XIOS/trunk/src/interface/fortran/ixios.F90

@@ -12 +12 @@
                                                
 USE idata, ONLY : xios(initialize),xios(init_server), xios(finalize), xios(context_initialize),  &
-                  xios(close_context_definition),xios(solve_inheritance),       &
+                  xios(context_is_initialized), xios(close_context_definition),xios(solve_inheritance),       &
                   xios(context_finalize), xios(send_field_r8_1d), xios(send_field_r8_2d), &
                   xios(send_field_r8_3d), xios(send_field_r4_1d), xios(send_field_r4_2d), &
@@ -155 +155 @@
  PUBLIC :: xios(set_current_context)  
  PUBLIC :: xios(set_timestep),xios(update_calendar)
- PUBLIC :: xios(initialize), xios(init_server), xios(finalize), xios(context_initialize),xios(solve_inheritance), &
-           xios(close_context_definition), xios(context_finalize), xios(send_field),xios(field_is_active)
+ PUBLIC :: xios(initialize), xios(init_server), xios(finalize), xios(context_initialize),xios(context_is_initialized), &
+           xios(solve_inheritance), xios(close_context_definition), xios(context_finalize), xios(send_field),          &
+           xios(field_is_active)
 
 END MODULE XIOS