Changeset 872

Timestamp:

05/17/19 16:16:29 (5 years ago)

Author:

ymipsl

Message:

Comment the call to xios_timer. This functionnality will be commited later.

YM

File:

• codes/icosagcm/trunk/src/physics/physics_external.F90 (modified) (2 diffs)

codes/icosagcm/trunk/src/physics/physics_external.F90

@@ -109 +109 @@
         ENDDO
      
-        IF (is_omp_master) CALL xios_timer_suspend("dynamico")
+!        IF (is_omp_master) CALL xios_timer_suspend("dynamico")
         it = it_-1 + itau_physics
         CALL external_physics
-        IF (is_omp_master) CALL xios_timer_resume("dynamico")
+!        IF (is_omp_master) CALL xios_timer_resume("dynamico")
 
         DO ind=1, ndomain
@@ -168 +168 @@
      IF (MOD(it_,itau_physics)==0) THEN
        it=it_
-       IF (is_omp_master) CALL xios_timer_suspend("dynamico")
+!       IF (is_omp_master) CALL xios_timer_suspend("dynamico")
        CALL external_physics
-       IF (is_omp_master) CALL xios_timer_resume("dynamico")
+!       IF (is_omp_master) CALL xios_timer_resume("dynamico")
      ENDIF