Changeset 3643

Timestamp:

2012-11-23T19:25:00+01:00 (11 years ago)

Author:

rblod

Message:

Correct problems linked to timing, see ticket #912

Location:

trunk/NEMOGCM/NEMO/OPA_SRC/DIA

Files:

• diaptr.F90 (modified) (3 diffs)
• diawri.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

@@ -455 +455 @@
       NAMELIST/namptr/ ln_diaptr, ln_diaznl, ln_subbas, ln_ptrcomp, nn_fptr, nn_fwri
       !!----------------------------------------------------------------------
-      IF( nn_timing == 1 )   CALL timing_start('dia_ptr_init')
 
       REWIND( numnam )                 ! Read Namelist namptr : poleward transport parameters
@@ -474 +473 @@
       
       IF( ln_diaptr) THEN  
+     
+         IF( nn_timing == 1 )   CALL timing_start('dia_ptr_init')
       
          IF( ln_subbas ) THEN   ;   nptr = 5       ! Global, Atlantic, Pacific, Indian, Indo-Pacific
@@ -528 +529 @@
          nidom_ptr = FLIO_DOM_NONE
 #endif
+      IF( nn_timing == 1 )   CALL timing_stop('dia_ptr_init')
+      !
       ENDIF 
-      ! 
-      IF( nn_timing == 1 )   CALL timing_stop('dia_ptr_init')
       ! 
    END SUBROUTINE dia_ptr_init

trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -696 +696 @@
       !!----------------------------------------------------------------------
       ! 
-      IF( nn_timing == 1 )   CALL timing_start('dia_wri_state')
-
       ! 0. Initialisation
       ! -----------------
@@ -792 +790 @@
       ENDIF
 #endif
-       
-      IF( nn_timing == 1 )   CALL timing_stop('dia_wri_state')
       !