Changeset 9215 for branches/2017/dev_merge_2017/NEMOGCM/NEMO

Timestamp:

2018-01-12T12:25:59+01:00 (6 years ago)

Author:

francesca

Message:

fix ticket #1942 in dev_merge_2017

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/timing.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/timing.F90

@@ -459 +459 @@
          sl_timer_ave_root%next => NULL()
          sl_timer_ave_root%prev => NULL()
-         ALLOCATE(sl_timer_ave)
          sl_timer_ave => sl_timer_ave_root            
       ENDIF 
@@ -568 +567 @@
       ENDIF
       !
+      DEALLOCATE(sl_timer_glob_root%cname     , &
+                 sl_timer_glob_root%tsum_cpu  , &
+                 sl_timer_glob_root%tsum_clock, &
+                 sl_timer_glob_root%niter)
+      !
       DEALLOCATE(sl_timer_glob_root)
       !                  
@@ -672 +676 @@
          s_timer => s_timer_root
          !
-         ALLOCATE(s_wrk)
          s_wrk => NULL()