Changeset 652


Ignore:
Timestamp:
12/28/17 12:42:54 (6 years ago)
Author:
dubos
Message:

devel/unstructured : basic profiling

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90

    r645 r652  
    5252    INTEGER :: ij 
    5353     
     54    CALL init_trace() 
    5455    !  CALL CPU_TIME(time1) 
    5556    time1=OMP_GET_WTIME() 
    … …  
    101102    !  CALL CPU_TIME(time2) 
    102103    IF(time2>time1) elapsed = elapsed + time2-time1 
     104 
     105    CALL print_trace() 
    103106  END SUBROUTINE caldyn_unstructured 
    104107  ! 
    … …  
    127130    INTEGER :: step, stage, ij 
    128131     
     132    CALL init_trace() 
    129133    !CALL CPU_TIME(time1) 
    130134    time1=OMP_GET_WTIME() 
    … …  
    202206    !  CALL CPU_TIME(time2) 
    203207    IF(time2>time1) elapsed = elapsed + time2-time1 
     208 
     209    CALL print_trace() 
    204210     
    205211  END SUBROUTINE ARK_step 
Note: See TracChangeset for help on using the changeset viewer.