Changeset 714 for codes/icosagcm/devel/src/output/output_field.f90

Timestamp:

08/03/18 16:53:37 (6 years ago)

Author:

dubos

Message:

devel : backported from trunk commits r607,r648,r649,r667,r668,r669,r706

File:

• codes/icosagcm/devel/src/output/output_field.f90 (modified) (3 diffs)

codes/icosagcm/devel/src/output/output_field.f90

@@ -1 +1 @@
 MODULE output_field_mod
-USE genmod
+  USE genmod
+  USE xios_mod
+  USE profiling_mod
+  IMPLICIT NONE
+  SAVE
   PRIVATE
+
   LOGICAL,SAVE :: xios_output 
 !$OMP THREADPRIVATE(xios_output)     
   LOGICAL,SAVE :: enable_io    
 !$OMP THREADPRIVATE(enable_io)     
+
+  INTEGER :: id_output
 
   PUBLIC enable_io,xios_output,output_field_init,output_field,output_field_finalize
@@ -13 +20 @@
   SUBROUTINE output_field_init
   USE getin_mod
-  USE xios_mod
-  USE write_field_mod
   IMPLICIT NONE
+
+    CALL register_id('output',id_output)
 
     enable_io=.TRUE.
@@ -30 +37 @@
       CALL xios_init_write_field
     ENDIF
-
-    
   END SUBROUTINE output_field_init
 
   SUBROUTINE output_field(name_in,field)
     USE field_mod
-    USE xios_mod
     USE write_field_mod
     IMPLICIT NONE  
-     CHARACTER(LEN=*),INTENT(IN) :: name_in
-      TYPE(t_field),POINTER :: field(:)
-
-      IF (xios_output) THEN
-        CALL xios_write_field(name_in,field)
-      ELSE
+    CHARACTER(LEN=*),INTENT(IN) :: name_in
+    TYPE(t_field),POINTER :: field(:)
+    
+    CALL enter_profile(id_output)
+    IF (xios_output) THEN
+       CALL xios_write_field(name_in,field)
+    ELSE
        CALL writeField(name_in,field)
-      ENDIF
+    ENDIF
+    CALL exit_profile(id_output)
 
   END SUBROUTINE output_field
 
   SUBROUTINE output_field_finalize
-  USE ioipsl
-  USE xios_mod
-  IMPLICIT NONE
+    USE ioipsl
+    IMPLICIT NONE
     
     IF (xios_output) THEN
-      CALL xios_write_field_finalize
+       CALL xios_write_field_finalize
     ENDIF