New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9015 – NEMO

Changeset 9015


Ignore:
Timestamp:
2017-12-13T15:10:30+01:00 (7 years ago)
Author:
acc
Message:

Branch dev_CNRS_2017. Tidy up timing calls. Correct a few inconsistent labels and fix incorrect call in trc_sub_stp. Remove timing from icethd_pnd which is not always called by all processors

Location:
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/iceforcing.F90

    r8962 r9015  
    120120      !!-------------------------------------------------------------------- 
    121121      ! 
    122       IF( nn_timing == 1 )   CALL timing_start('ice_forcing') 
     122      IF( nn_timing == 1 )   CALL timing_start('ice_forcing_flx') 
    123123 
    124124      IF( kt == nit000 .AND. lwp ) THEN 
    … …  
    165165      ENDIF 
    166166      ! 
    167       IF( nn_timing == 1 )   CALL timing_stop('ice_forcing') 
     167      IF( nn_timing == 1 )   CALL timing_stop('ice_forcing_flx') 
    168168      ! 
    169169   END SUBROUTINE ice_forcing_flx 

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icethd_pnd.F90

    r8906 r9015  
    5959      !!------------------------------------------------------------------- 
    6060 
    61       IF( nn_timing == 1 )  CALL timing_start('ice_thd_pnd') 
    62  
    6361      SELECT CASE ( nice_pnd ) 
    6462 
    … …  
    7270         !                             !-------------------------------! 
    7371      END SELECT 
    74  
    75       IF( nn_timing == 1 )  CALL timing_stop('ice_thd_pnd') 
    7672 
    7773   END SUBROUTINE ice_thd_pnd  

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/iceupdate.F90

    r8884 r9015  
    338338      !!--------------------------------------------------------------------- 
    339339 
    340       IF( nn_timing == 1 )  CALL timing_start('ice_update') 
     340      IF( nn_timing == 1 )  CALL timing_start('ice_update_tau') 
    341341 
    342342      IF( kt == nit000 .AND. lwp ) THEN 
    … …  
    384384      CALL lbc_lnk_multi( utau, 'U', -1., vtau, 'V', -1. )   ! lateral boundary condition 
    385385      ! 
    386       IF( nn_timing == 1 )  CALL timing_stop('ice_update') 
     386      IF( nn_timing == 1 )  CALL timing_stop('ice_update_tau') 
    387387      !   
    388388   END SUBROUTINE ice_update_tau 

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn2d.F90

    r7646 r9015  
    249249      !   
    250250      CALL bdy_orlanski_2d( idx, igrd, pvb2d, pva2d, dta%v2d, ll_npo ) 
    251       ! 
    252       IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_orlanski') 
    253251      ! 
    254252      CALL lbc_bdy_lnk( pua2d, 'U', -1., ib_bdy )   ! Boundary points should be updated 

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice.F90

    r8882 r9015  
    103103      !!------------------------------------------------------------------------------ 
    104104      ! 
    105       IF( nn_timing == 1 )   CALL timing_start('bdy_ice_frs') 
     105      IF( ln_timing )   CALL timing_start('bdy_ice_frs') 
    106106      ! 
    107107      jgrd = 1      ! Everything is at T-points here 
    … …  
    255255      IF( jpl > 1 )   CALL ice_itd_reb( kt ) 
    256256      !       
    257       IF( nn_timing == 1 )   CALL timing_stop('bdy_ice_frs') 
     257      IF( ln_timing )   CALL timing_stop('bdy_ice_frs') 
    258258      ! 
    259259   END SUBROUTINE bdy_ice_frs 

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

    r7646 r9015  
    250250      CALL wrk_dealloc( jpi,jpj,jpk,   ze3t, ze3u, ze3v, ze3w ) 
    251251      ! 
     252      IF( nn_timing == 1 )  CALL timing_stop('crs_init') 
     253      ! 
    252254   END SUBROUTINE crs_init 
    253255     

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DYN/wet_dry.F90

    r8882 r9015  
    380380      !IF( nn_cla == 1 )   CALL cla_div    ( kt )             ! Cross Land Advection (update hdivn field) 
    381381      ! 
    382       IF( ln_timing )  CALL timing_stop('wad_lmt') 
     382      IF( ln_timing )  CALL timing_stop('wad_lmt_bt') 
    383383      ! 
    384384   END SUBROUTINE wad_lmt_bt 

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90

    r8984 r9015  
    10081008      !!--------------------------------------------------------------------- 
    10091009 
    1010       IF( nn_timing == 1 )  CALL timing_start('blk_ice_qcn') 
     1010      IF( ln_timing )  CALL timing_start('blk_ice_qcn') 
    10111011       
    10121012      ! -------------------------------------! 
    … …  
    10701070      END DO  
    10711071      !       
    1072       IF( nn_timing == 1 )  CALL timing_stop('blk_ice_qcn') 
     1072      IF( ln_timing )  CALL timing_stop('blk_ice_qcn') 
    10731073      ! 
    10741074   END SUBROUTINE blk_ice_qcn 

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfosm.F90

    r8946 r9015  
    253253      !!-------------------------------------------------------------------- 
    254254      ! 
    255       IF( nn_timing == 1 )  CALL timing_start('zdf_osm') 
     255      IF( ln_timing )  CALL timing_start('zdf_osm') 
    256256      ! 
    257257      ALLOCATE( lconv(jpi,jpj),  STAT= i_lconv_alloc ) 
    … …  
    13521352      CALL lbc_lnk( p_avt(:,:,:), 'W', 1. ) 
    13531353      ! 
     1354      IF( ln_timing )  CALL timing_stop('zdf_osm') 
     1355      ! 
    13541356   END SUBROUTINE zdf_osm 
    13551357 
    … …  
    13751377     !!---------------------------------------------------------------------- 
    13761378     ! 
    1377      IF( nn_timing == 1 )  CALL timing_start('zdf_osm_init') 
     1379     IF( ln_timing )  CALL timing_start('zdf_osm_init') 
    13781380     ! 
    13791381     REWIND( numnam_ref )              ! Namelist namzdf_osm in reference namelist : Osmosis ML model 
    … …  
    15031505 
    15041506     ! 
    1505      IF( nn_timing == 1 )  CALL timing_stop('zdf_osm_init') 
     1507     IF( ln_timing )  CALL timing_stop('zdf_osm_init') 
    15061508     ! 
    15071509   END SUBROUTINE zdf_osm_init 
    … …  
    16141616      INTEGER :: ji, jj, jk 
    16151617      ! 
    1616       IF( nn_timing == 1 )  CALL timing_start('tra_osm') 
     1618      IF( ln_timing )  CALL timing_start('tra_osm') 
    16171619      ! 
    16181620      IF( kt == nit000 ) THEN 
    … …  
    16571659      ENDIF 
    16581660      ! 
    1659       IF( nn_timing == 1 )  CALL timing_stop('tra_osm') 
     1661      IF( ln_timing )  CALL timing_stop('tra_osm') 
    16601662      ! 
    16611663   END SUBROUTINE tra_osm 
    … …  
    16931695      !!---------------------------------------------------------------------- 
    16941696      ! 
    1695       IF( nn_timing == 1 )  CALL timing_start('dyn_osm') 
     1697      IF( ln_timing )  CALL timing_start('dyn_osm') 
    16961698      ! 
    16971699      IF( kt == nit000 ) THEN 
    … …  
    17171719      ! code for saving tracer trends removed 
    17181720      ! 
    1719       IF( nn_timing == 1 )  CALL timing_stop('dyn_osm') 
     1721      IF( ln_timing )  CALL timing_stop('dyn_osm') 
    17201722      ! 
    17211723   END SUBROUTINE dyn_osm 

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r9012 r9015  
    423423      !                                      ! Domain decomposition 
    424424      CALL mpp_init 
    425       IF( ln_nnogather )    CALL nemo_northcomms! northfold neighbour lists (must be done after the masks are defined) 
     425      IF( ln_nnogather )   CALL nemo_northcomms! northfold neighbour lists 
    426426      ! 
    427427      IF( ln_timing    )   CALL timing_init 
    … …  
    434434                           CALL     dom_init   ! Domain 
    435435      IF( ln_crs       )   CALL     crs_init   ! coarsened grid: domain initialization  
    436       !IF( ln_nnogather )    CALL nemo_northcomms! northfold neighbour lists (must be done after the masks are defined) 
    437436      IF( ln_ctl       )   CALL prt_ctl_init   ! Print control 
    438437       

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90

    r8882 r9015  
    222222         ! 
    223223      ENDIF 
    224       IF( nn_timing == 1 )  CALL timing_stop('trc_dmp_init') 
     224      IF( nn_timing == 1 )  CALL timing_stop('trc_dmp_ini') 
    225225      ! 
    226226   END SUBROUTINE trc_dmp_ini 

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

    r8882 r9015  
    286286      ENDIF 
    287287      ! 
    288       IF( nn_timing == 1 )  CALL timing_start('trc_sub_stp') 
     288      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_stp') 
    289289      ! 
    290290   END SUBROUTINE trc_sub_stp 
Note: See TracChangeset for help on using the changeset viewer.