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 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY – NEMO

Ignore:
Timestamp:
2017-12-19T09:26:25+01:00 (7 years ago)
Author:
gm
Message:

dev_merge_2017: ln_timing instead of nn_timing + restricted timing to nemo_init and routine called by step in OPA_SRC

Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r9019 r9124  
    8787      !!--------------------------------------------------------------------------- 
    8888      ! 
    89       IF( nn_timing == 1 )   CALL timing_start('bdy_dta') 
     89      IF( ln_timing )   CALL timing_start('bdy_dta') 
    9090      ! 
    9191      ! Initialise data arrays once for all from initial conditions where required 
    … …  
    395395      ENDIF 
    396396      ! 
    397       IF( nn_timing == 1 ) CALL timing_stop('bdy_dta') 
     397      IF( ln_timing )  CALL timing_stop('bdy_dta') 
    398398      ! 
    399399   END SUBROUTINE bdy_dta 
    … …  
    441441      !!--------------------------------------------------------------------------- 
    442442      ! 
    443       IF( nn_timing == 1 )   CALL timing_start('bdy_dta_init') 
    444       ! 
    445443      IF(lwp) WRITE(numout,*) 
    446444      IF(lwp) WRITE(numout,*) 'bdy_dta_ini : initialization of data at the open boundaries' 
    … …  
    827825      END DO ! jbdy  
    828826      ! 
    829       IF( nn_timing == 1 ) CALL timing_stop('bdy_dta_init') 
    830       ! 
    831827   END SUBROUTINE bdy_dta_init 
    832828 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn.F90

    r7646 r9124  
    1717   !!---------------------------------------------------------------------- 
    1818   USE wrk_nemo        ! Memory Allocation 
    19    USE timing          ! Timing 
    2019   USE oce             ! ocean dynamics and tracers  
    2120   USE dom_oce         ! ocean space and time domain 
    … …  
    5352      REAL(wp), POINTER, DIMENSION(:,:) :: pua2d, pva2d     ! after barotropic velocities 
    5453      !!---------------------------------------------------------------------- 
    55       ! 
    56       IF( nn_timing == 1 )   CALL timing_start('bdy_dyn') 
    5754      ! 
    5855      ll_dyn2d = .true. 
    … …  
    129126      CALL wrk_dealloc( jpi,jpj,  pua2d, pva2d )  
    130127      ! 
    131       IF( nn_timing == 1 )   CALL timing_stop('bdy_dyn') 
    132       ! 
    133128   END SUBROUTINE bdy_dyn 
    134129 

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

    r9023 r9124  
    1414   !!   bdy_ssh            : Duplicate sea level across open boundaries 
    1515   !!---------------------------------------------------------------------- 
    16    USE timing          ! Timing 
    1716   USE oce             ! ocean dynamics and tracers  
    1817   USE dom_oce         ! ocean space and time domain 
    … …  
    9594      !!---------------------------------------------------------------------- 
    9695      ! 
    97       IF( nn_timing == 1 ) CALL timing_start('bdy_dyn2d_frs') 
    98       ! 
    9996      igrd = 2                      ! Relaxation of zonal velocity 
    10097      DO jb = 1, idx%nblen(igrd) 
    … …  
    115112      CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy)   ! Boundary points should be updated 
    116113      ! 
    117       IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_frs') 
    118       ! 
    119  
    120114   END SUBROUTINE bdy_dyn2d_frs 
    121115 
    … …  
    153147      REAL(wp) ::   zflag, z1_2                      !    "        " 
    154148      !!---------------------------------------------------------------------- 
    155  
    156       IF( nn_timing == 1 ) CALL timing_start('bdy_dyn2d_fla') 
    157149 
    158150      z1_2 = 0.5_wp 
    … …  
    218210      CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy )   ! 
    219211      ! 
    220       IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_fla') 
    221       ! 
    222212   END SUBROUTINE bdy_dyn2d_fla 
    223213 
    … …  
    244234      INTEGER  ::   ii, ij, iibm1, ijbm1                   ! indices 
    245235      !!---------------------------------------------------------------------- 
    246  
    247       IF( nn_timing == 1 ) CALL timing_start('bdy_dyn2d_orlanski') 
    248236      ! 
    249237      igrd = 2      ! Orlanski bc on u-velocity;  
    … …  
    258246      CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy )   ! 
    259247      ! 
    260       IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_orlanski') 
    261       ! 
    262248   END SUBROUTINE bdy_dyn2d_orlanski 
     249 
    263250 
    264251   SUBROUTINE bdy_ssh( zssh ) 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90

    r9090 r9124  
    8080      !!---------------------------------------------------------------------- 
    8181      ! 
    82       IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_spe') 
    83       ! 
    8482      igrd = 2                      ! Relaxation of zonal velocity 
    8583      DO jb = 1, idx%nblenrim(igrd) 
    … …  
    104102      IF( kt == nit000 )   CLOSE( unit = 102 ) 
    105103      ! 
    106       IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_spe') 
    107       ! 
    108104   END SUBROUTINE bdy_dyn3d_spe 
     105 
    109106 
    110107   SUBROUTINE bdy_dyn3d_zgrad( idx, dta, kt , ib_bdy ) 
    … …  
    126123      !!---------------------------------------------------------------------- 
    127124      ! 
    128       IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_zgrad') 
    129       ! 
    130125      igrd = 2                      ! Copying tangential velocity into bdy points 
    131126      DO jb = 1, idx%nblenrim(igrd) 
    … …  
    152147      CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )    
    153148      ! 
    154       IF( kt .eq. nit000 ) CLOSE( unit = 102 ) 
    155  
    156       IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_zgrad') 
    157  
     149      IF( kt == nit000 )   CLOSE( unit = 102 ) 
     150      ! 
    158151   END SUBROUTINE bdy_dyn3d_zgrad 
     152 
    159153 
    160154   SUBROUTINE bdy_dyn3d_zro( idx, dta, kt, ib_bdy ) 
    … …  
    174168      REAL(wp) ::   zwgt           ! boundary weight 
    175169      !!---------------------------------------------------------------------- 
    176       ! 
    177       IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_zro') 
    178170      ! 
    179171      igrd = 2                       ! Everything is at T-points here 
    … …  
    199191      IF( kt == nit000 )   CLOSE( unit = 102 ) 
    200192      ! 
    201       IF( nn_timing == 1 )   CALL timing_stop('bdy_dyn3d_zro') 
    202       ! 
    203193   END SUBROUTINE bdy_dyn3d_zro 
    204194 
    … …  
    225215      !!---------------------------------------------------------------------- 
    226216      ! 
    227       IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_frs') 
    228       ! 
    229217      igrd = 2                      ! Relaxation of zonal velocity 
    230218      DO jb = 1, idx%nblen(igrd) 
    … …  
    250238      ! 
    251239      IF( kt == nit000 )   CLOSE( unit = 102 ) 
    252       ! 
    253       IF( nn_timing == 1 )   CALL timing_stop('bdy_dyn3d_frs') 
    254240      ! 
    255241   END SUBROUTINE bdy_dyn3d_frs 
    … …  
    273259      INTEGER  ::   jb, igrd                               ! dummy loop indices 
    274260      !!---------------------------------------------------------------------- 
    275  
    276       IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_orlanski') 
    277261      ! 
    278262      !! Note that at this stage the ub and ua arrays contain the baroclinic velocities.  
    … …  
    289273      CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )    
    290274      ! 
    291       IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_orlanski') 
    292       ! 
    293275   END SUBROUTINE bdy_dyn3d_orlanski 
    294276 
    … …  
    309291      !!---------------------------------------------------------------------- 
    310292      ! 
    311       IF( nn_timing == 1 )   CALL timing_start('bdy_dyn3d_dmp') 
     293      IF( ln_timing )   CALL timing_start('bdy_dyn3d_dmp') 
    312294      ! 
    313295      DO ib_bdy=1, nb_bdy 
    … …  
    339321      CALL lbc_lnk_multi( ua, 'U', -1.,  va, 'V', -1. )   ! Boundary points should be updated 
    340322      ! 
    341       IF( nn_timing == 1 )   CALL timing_stop('bdy_dyn3d_dmp') 
     323      IF( ln_timing )   CALL timing_stop('bdy_dyn3d_dmp') 
    342324      ! 
    343325   END SUBROUTINE bdy_dyn3d_dmp 
     326 
    344327 
    345328   SUBROUTINE bdy_dyn3d_nmn( idx, ib_bdy ) 
    … …  
    357340      INTEGER  ::   jb, igrd                               ! dummy loop indices 
    358341      !!---------------------------------------------------------------------- 
    359  
    360       IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_nmn') 
    361342      ! 
    362343      !! Note that at this stage the ub and ua arrays contain the baroclinic velocities.  
    … …  
    373354      CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy ) 
    374355      ! 
    375       IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_nmn') 
    376       ! 
    377356   END SUBROUTINE bdy_dyn3d_nmn 
    378357 

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

    r9019 r9124  
    5858      !!---------------------------------------------------------------------- 
    5959      ! 
     60      IF( ln_timing )   CALL timing_start('bdy_ice') 
     61      ! 
    6062      CALL ice_var_glo2eqv 
    6163      ! 
    … …  
    6365         ! 
    6466         SELECT CASE( cn_ice_lim(ib_bdy) ) 
    65          CASE('none') 
    66             CYCLE 
    67          CASE('frs') 
    68             CALL bdy_ice_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt, ib_bdy ) 
     67         CASE('none')   ;   CYCLE 
     68         CASE('frs' )   ;   CALL bdy_ice_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt, ib_bdy ) 
    6969         CASE DEFAULT 
    7070            CALL ctl_stop( 'bdy_ice : unrecognised option for open boundaries for ice fields' ) 
    … …  
    7373      END DO 
    7474      ! 
    75                         CALL ice_var_zapsmall 
    76                         CALL ice_var_agg(1) 
     75      CALL ice_var_zapsmall 
     76      CALL ice_var_agg(1) 
     77      ! 
    7778      IF( ln_icectl )   CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - ice thermo bdy - ' ) 
     79      IF( ln_timing )   CALL timing_stop('bdy_ice') 
    7880      ! 
    7981   END SUBROUTINE bdy_ice 
    … …  
    102104      REAL(wp) ::   ztmelts, zdh 
    103105      !!------------------------------------------------------------------------------ 
    104       ! 
    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( ln_timing )   CALL timing_stop('bdy_ice_frs') 
    258       ! 
    259257   END SUBROUTINE bdy_ice_frs 
    260258 
    … …  
    277275      REAL(wp) ::   zmsk1, zmsk2, zflag 
    278276      !!------------------------------------------------------------------------------ 
    279       ! 
    280       IF( ln_timing )   CALL timing_start('bdy_ice_dyn') 
    281277      ! 
    282278      DO ib_bdy=1, nb_bdy 
    … …  
    355351      END DO 
    356352      ! 
    357       IF( ln_timing )   CALL timing_stop('bdy_ice_dyn') 
    358       ! 
    359353    END SUBROUTINE bdy_ice_dyn 
    360354 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r9105 r9124  
    2929   USE lib_mpp        ! for mpp_sum   
    3030   USE iom            ! I/O 
    31    USE timing         ! Timing 
    3231 
    3332   IMPLICIT NONE 
    … …  
    7473      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    7574      !!---------------------------------------------------------------------- 
    76       ! 
    77       IF( nn_timing == 1 )   CALL timing_start('bdy_init') 
    7875 
    7976      ! ------------------------ 
    … …  
    112109         ! 
    113110      ENDIF 
    114       ! 
    115       IF( nn_timing == 1 )   CALL timing_stop('bdy_init') 
    116111      ! 
    117112   END SUBROUTINE bdy_init 
    … …  
    156151      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    157152      !!---------------------------------------------------------------------- 
    158       ! 
    159       IF( nn_timing == 1 )   CALL timing_start('bdy_segs') 
    160153      ! 
    161154      cgrid = (/'t','u','v'/) 
    … …  
    13141307      IF( nb_bdy>0 )   DEALLOCATE( nbidta, nbjdta, nbrdta ) 
    13151308      ! 
    1316       IF( nn_timing == 1 )   CALL timing_stop('bdy_segs') 
    1317       ! 
    13181309   END SUBROUTINE bdy_segs 
    13191310 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdylib.F90

    r7646 r9124  
    1818   USE in_out_manager ! 
    1919   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    20    USE timing         ! Timing 
    2120 
    2221   IMPLICIT NONE 
    … …  
    5150      !!---------------------------------------------------------------------- 
    5251      ! 
    53       IF( nn_timing == 1 ) CALL timing_start('bdy_frs') 
    54       !  
    5552      igrd = 1                       ! Everything is at T-points here 
    5653      DO ib = 1, idx%nblen(igrd) 
    … …  
    6360      END DO 
    6461      ! 
    65       IF( nn_timing == 1 ) CALL timing_stop('bdy_frs') 
    66       ! 
    6762   END SUBROUTINE bdy_frs 
     63 
    6864 
    6965   SUBROUTINE bdy_spe( idx, pta, dta ) 
    … …  
    8278      INTEGER  ::   ii, ij         ! 2D addresses 
    8379      !!---------------------------------------------------------------------- 
    84       ! 
    85       IF( nn_timing == 1 ) CALL timing_start('bdy_spe') 
    8680      ! 
    8781      igrd = 1                       ! Everything is at T-points here 
    … …  
    9488      END DO 
    9589      ! 
    96       IF( nn_timing == 1 ) CALL timing_stop('bdy_spe') 
    97       ! 
    9890   END SUBROUTINE bdy_spe 
     91 
    9992 
    10093   SUBROUTINE bdy_orl( idx, ptb, pta, dta, ll_npo ) 
    … …  
    115108      !!---------------------------------------------------------------------- 
    116109      ! 
    117       IF( nn_timing == 1 ) CALL timing_start('bdy_orl') 
    118       ! 
    119110      igrd = 1                       ! Everything is at T-points here 
    120111      ! 
    121112      CALL bdy_orlanski_3d( idx, igrd, ptb(:,:,:), pta(:,:,:), dta, ll_npo ) 
    122113      ! 
    123       IF( nn_timing == 1 ) CALL timing_stop('bdy_orl') 
    124       ! 
    125114   END SUBROUTINE bdy_orl 
     115 
    126116 
    127117   SUBROUTINE bdy_orlanski_2d( idx, igrd, phib, phia, phi_ext, ll_npo ) 
    … …  
    161151      REAL(wp), POINTER, DIMENSION(:,:)          :: pe_ydif    ! scale factors for y-derivatives 
    162152      !!---------------------------------------------------------------------- 
    163       ! 
    164       IF( nn_timing == 1 )   CALL timing_start('bdy_orlanski_2d') 
    165153      ! 
    166154      ! ----------------------------------! 
    … …  
    279267      END DO 
    280268      ! 
    281       IF( nn_timing == 1 )   CALL timing_stop('bdy_orlanski_2d') 
    282       ! 
    283269   END SUBROUTINE bdy_orlanski_2d 
    284270 
    … …  
    320306      REAL(wp), POINTER, DIMENSION(:,:)          :: pe_ydif    ! scale factors for y-derivatives 
    321307      !!---------------------------------------------------------------------- 
    322       ! 
    323       IF( nn_timing == 1 )   CALL timing_start('bdy_orlanski_3d') 
    324308      ! 
    325309      ! ----------------------------------! 
    … …  
    441425      END DO 
    442426      ! 
    443       IF( nn_timing == 1 )   CALL timing_stop('bdy_orlanski_3d') 
    444       ! 
    445427   END SUBROUTINE bdy_orlanski_3d 
    446428 
    … …  
    462444      INTEGER  ::   ii, ij, ip, jp   ! 2D addresses 
    463445      !!---------------------------------------------------------------------- 
    464       !! 
    465       IF( nn_timing == 1 ) CALL timing_start('bdy_nmn') 
    466446      ! 
    467447      SELECT CASE(igrd) 
    … …  
    514494      END DO 
    515495      ! 
    516       IF( nn_timing == 1 ) CALL timing_stop('bdy_nmn') 
    517       ! 
    518496   END SUBROUTINE bdy_nmn 
    519497 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r7646 r9124  
    2626   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    2727   USE wrk_nemo       ! Memory allocation 
    28    USE timing         ! timing 
    2928 
    3029   IMPLICIT NONE 
    … …  
    8382      NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta, ln_bdytide_conj 
    8483      !!---------------------------------------------------------------------- 
    85       ! 
    86       IF( nn_timing == 1 )   CALL timing_start('bdytide_init') 
    8784      ! 
    8885      IF (nb_bdy>0) THEN 
    … …  
    270267      END DO ! loop on ib_bdy 
    271268      ! 
    272       IF( nn_timing == 1 )   CALL timing_stop('bdytide_init') 
    273       ! 
    274269   END SUBROUTINE bdytide_init 
    275270 
    … …  
    300295      REAL(wp), DIMENSION(jpmax_harmo) :: z_sist, z_cost 
    301296      !!---------------------------------------------------------------------- 
    302       ! 
    303       IF( nn_timing == 1 )   CALL timing_start('bdytide_update') 
    304297      ! 
    305298      ilen0(1) =  SIZE(td%ssh(:,1,1)) 
    … …  
    363356      END DO 
    364357      ! 
    365       IF( nn_timing == 1 )   CALL timing_stop('bdytide_update') 
    366       ! 
    367358   END SUBROUTINE bdytide_update 
    368359 
    … …  
    391382      REAL(wp) ::   z_arg, z_sarg, zramp, zoff, z_cost, z_sist       
    392383      !!---------------------------------------------------------------------- 
    393       ! 
    394       IF( nn_timing == 1 )   CALL timing_start('bdy_dta_tides') 
    395384      ! 
    396385      lk_first_btstp=.TRUE. 
    … …  
    485474         END IF 
    486475      END DO 
    487       ! 
    488       IF( nn_timing == 1 ) CALL timing_stop('bdy_dta_tides') 
    489476      ! 
    490477   END SUBROUTINE bdy_dta_tides 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90

    r7646 r9124  
    7878   END SUBROUTINE bdy_tra 
    7979 
     80 
    8081   SUBROUTINE bdy_rnf( idx, pta, jpa ) 
    8182      !!---------------------------------------------------------------------- 
    … …  
    9697      !!---------------------------------------------------------------------- 
    9798      ! 
    98       IF( nn_timing == 1 )   CALL timing_start('bdy_rnf') 
    99       ! 
    10099      igrd = 1                       ! Everything is at T-points here 
    101100      DO ib = 1, idx%nblenrim(igrd) 
    … …  
    110109      END DO 
    111110      ! 
    112       IF( nn_timing == 1 )   CALL timing_stop('bdy_rnf') 
    113       ! 
    114111   END SUBROUTINE bdy_rnf 
     112 
    115113 
    116114   SUBROUTINE bdy_tra_dmp( kt ) 
    … …  
    130128      !!---------------------------------------------------------------------- 
    131129      ! 
    132       IF( nn_timing == 1 )   CALL timing_start('bdy_tra_dmp') 
     130      IF( ln_timing )   CALL timing_start('bdy_tra_dmp') 
    133131      ! 
    134132      DO ib_bdy = 1, nb_bdy 
    … …  
    149147      END DO 
    150148      ! 
    151       IF( nn_timing == 1 )   CALL timing_stop('bdy_tra_dmp') 
     149      IF( ln_timing )   CALL timing_stop('bdy_tra_dmp') 
    152150      ! 
    153151   END SUBROUTINE bdy_tra_dmp 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90

    r7646 r9124  
    1919   USE in_out_manager ! I/O manager 
    2020   USE lib_mpp        ! for mppsum 
    21    USE timing         ! Timing 
    2221   USE lib_fortran    ! Fortran routines library 
    2322 
    … …  
    7372      TYPE(OBC_INDEX), POINTER :: idx 
    7473      !!----------------------------------------------------------------------------- 
    75       ! 
    76       IF( nn_timing == 1 )   CALL timing_start('bdy_vol') 
    7774      ! 
    7875      IF( ln_vol ) THEN 
    … …  
    165162      END IF  
    166163      ! 
    167       IF( nn_timing == 1 )   CALL timing_stop('bdy_vol') 
    168       ! 
    169164      END IF ! ln_vol 
    170165      ! 
Note: See TracChangeset for help on using the changeset viewer.