Changeset 3643


Ignore:
Timestamp:
2012-11-23T19:25:00+01:00 (8 years ago)
Author:
rblod
Message:

Correct problems linked to timing, see ticket #912

Location:
trunk/NEMOGCM/NEMO/OPA_SRC/DIA
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r3385 r3643  
    455455      NAMELIST/namptr/ ln_diaptr, ln_diaznl, ln_subbas, ln_ptrcomp, nn_fptr, nn_fwri 
    456456      !!---------------------------------------------------------------------- 
    457       IF( nn_timing == 1 )   CALL timing_start('dia_ptr_init') 
    458457 
    459458      REWIND( numnam )                 ! Read Namelist namptr : poleward transport parameters 
     
    474473       
    475474      IF( ln_diaptr) THEN   
     475      
     476         IF( nn_timing == 1 )   CALL timing_start('dia_ptr_init') 
    476477       
    477478         IF( ln_subbas ) THEN   ;   nptr = 5       ! Global, Atlantic, Pacific, Indian, Indo-Pacific 
     
    528529         nidom_ptr = FLIO_DOM_NONE 
    529530#endif 
     531      IF( nn_timing == 1 )   CALL timing_stop('dia_ptr_init') 
     532      ! 
    530533      ENDIF  
    531       !  
    532       IF( nn_timing == 1 )   CALL timing_stop('dia_ptr_init') 
    533534      !  
    534535   END SUBROUTINE dia_ptr_init 
  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r3389 r3643  
    696696      !!---------------------------------------------------------------------- 
    697697      !  
    698       IF( nn_timing == 1 )   CALL timing_start('dia_wri_state') 
    699  
    700698      ! 0. Initialisation 
    701699      ! ----------------- 
     
    792790      ENDIF 
    793791#endif 
    794         
    795       IF( nn_timing == 1 )   CALL timing_stop('dia_wri_state') 
    796792      !  
    797793 
Note: See TracChangeset for help on using the changeset viewer.