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 14828 – NEMO

Changeset 14828


Ignore:
Timestamp:
2021-05-10T18:36:42+02:00 (3 years ago)
Author:
smueller
Message:

Removal of the timer instructions added with changesets [14149,14316] to subroutines in module zdfosm (ticket #2353)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90

    r14824 r14828  
    8181   USE prtctl                                     ! Print control 
    8282   USE lib_fortran                                ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    83    USE timing, ONLY : timing_start, timing_stop   ! Timer 
    8483   ! 
    8584   IMPLICIT NONE 
    … …  
    402401      REAL(wp), PARAMETER ::   pp_large = -1e10_wp 
    403402      ! 
    404       IF( ln_timing ) CALL timing_start('zdf_osm') 
    405       ! 
    406403      nbld(:,:)   = 0 
    407404      nmld(:,:)   = 0 
    … …  
    10521049         END IF 
    10531050      END IF 
    1054       IF( ln_timing ) CALL timing_stop('zdf_osm') 
    1055  
     1051      ! 
    10561052   END SUBROUTINE zdf_osm 
    10571053 
    … …  
    10851081      REAL(wp)                    ::   zthermal, zbeta            ! Thermal/haline expansion/contraction coefficients 
    10861082      !!---------------------------------------------------------------------- 
    1087       ! 
    1088       IF( ln_timing ) CALL timing_start('zdf_osm_va') 
    10891083      ! 
    10901084      ! Averages over depth of boundary layer 
    … …  
    11591153      END IF 
    11601154      ! 
    1161       IF( ln_timing ) CALL timing_stop('zdf_osm_va') 
    1162       ! 
    11631155   END SUBROUTINE zdf_osm_vertical_average 
    11641156 
    … …  
    11801172      INTEGER  ::   ji, jj       ! Loop indices 
    11811173      REAL(wp) ::   ztmp, zfwd   ! Auxiliary variables 
    1182       ! 
    1183       IF( ln_timing ) CALL timing_start('zdf_osm_vr') 
    11841174      ! 
    11851175      zfwd = 1.0_wp 
    … …  
    11901180         pv(ji,jj) = pv(ji,jj) * scos_wind(ji,jj) - zfwd * ztmp      * ssin_wind(ji,jj) 
    11911181      END_2D 
    1192       ! 
    1193       IF( ln_timing ) CALL timing_stop('zdf_osm_vr') 
    11941182      ! 
    11951183   END SUBROUTINE zdf_osm_velocity_rotation_2d 
    … …  
    12171205      REAL(wp) ::   ztmp, zfwd                 ! Auxiliary variables 
    12181206      LOGICAL  ::   llkbot                     ! Auxiliary variable 
    1219       ! 
    1220       IF( ln_timing ) CALL timing_start('zdf_osm_vr') 
    12211207      ! 
    12221208      zfwd = 1.0_wp 
    … …  
    12421228      END_3D 
    12431229      ! 
    1244       IF( ln_timing ) CALL timing_stop('zdf_osm_vr') 
    1245       ! 
    12461230   END SUBROUTINE zdf_osm_velocity_rotation_3d 
    12471231 
    … …  
    12821266      REAL(wp), PARAMETER ::   pp_ek            = 4.0_wp 
    12831267      REAL(wp), PARAMETER ::   pp_large         = -1e10_wp 
    1284       ! 
    1285       IF( ln_timing ) CALL timing_start('zdf_osm_os') 
    12861268      ! 
    12871269      ! Initialise arrays 
    … …  
    14051387      END_2D 
    14061388      ! 
    1407       IF( ln_timing ) CALL timing_stop('zdf_osm_os') 
    1408       ! 
    14091389   END SUBROUTINE zdf_osm_osbl_state 
    14101390 
    … …  
    14271407      ! 
    14281408      REAL(wp), PARAMETER ::   pp_large = -1e10_wp 
    1429       ! 
    1430       IF( ln_timing ) CALL timing_start('zdf_osm_eg') 
    14311409      ! 
    14321410      pdtdz(:,:) = pp_large 
    … …  
    14501428      END_2D 
    14511429      ! 
    1452       IF( ln_timing ) CALL timing_stop('zdf_osm_eg') 
    1453       ! 
    14541430   END SUBROUTINE zdf_osm_external_gradients 
    14551431 
    … …  
    14821458      REAL(wp), PARAMETER ::   pp_ddh     = 2.5_wp, pp_ddh_2 = 3.5_wp   ! Also in pycnocline_depth 
    14831459      REAL(wp), PARAMETER ::   pp_large   = -1e10_wp 
    1484       ! 
    1485       IF( ln_timing ) CALL timing_start('zdf_osm_cd') 
    14861460      ! 
    14871461      pdhdt(:,:)    = pp_large 
    … …  
    16151589      END_2D 
    16161590      ! 
    1617       IF( ln_timing ) CALL timing_stop('zdf_osm_cd') 
    1618       ! 
    16191591   END SUBROUTINE zdf_osm_calculate_dhdt 
    16201592 
    … …  
    16431615      REAL(wp) ::   zhbl_s, zvel_max, zdb 
    16441616      REAL(wp) ::   zthermal, zbeta 
    1645       ! 
    1646       IF( ln_timing ) CALL timing_start('zdf_osm_th') 
    16471617      ! 
    16481618      DO_2D( 0, 0, 0, 0 ) 
    … …  
    17181688      END_2D 
    17191689      ! 
    1720       IF( ln_timing ) CALL timing_stop('zdf_osm_th') 
    1721       ! 
    17221690   END SUBROUTINE zdf_osm_timestep_hbl 
    17231691 
    … …  
    17531721      ! 
    17541722      REAL, PARAMETER ::   pp_ddh = 2.5_wp, pp_ddh_2 = 3.5_wp   ! Also in pycnocline_depth 
    1755       ! 
    1756       IF( ln_timing ) CALL timing_start('zdf_osm_pt') 
    17571723      ! 
    17581724      DO_2D( 0, 0, 0, 0 ) 
    … …  
    18871853      END_2D 
    18881854      ! 
    1889       IF( ln_timing ) CALL timing_stop('zdf_osm_pt') 
    1890       ! 
    18911855   END SUBROUTINE zdf_osm_pycnocline_thickness 
    18921856 
    … …  
    19201884      REAL(wp), PARAMETER ::   pp_gamma_b = 2.25_wp 
    19211885      REAL(wp), PARAMETER ::   pp_large   = -1e10_wp 
    1922       ! 
    1923       IF( ln_timing ) CALL timing_start('zdf_osm_pscp') 
    19241886      ! 
    19251887      pdbdz(:,:,:) = pp_large 
    … …  
    19971959      END IF 
    19981960      ! 
    1999       IF( ln_timing ) CALL timing_stop('zdf_osm_pscp') 
    2000       ! 
    20011961   END SUBROUTINE zdf_osm_pycnocline_buoyancy_profiles 
    20021962 
    … …  
    20432003      REAL(wp), PARAMETER ::   pp_dif_pyc    = 0.15_wp, pp_vis_pyc = 0.142_wp 
    20442004      REAL(wp), PARAMETER ::   pp_vispyc_shr = 0.15_wp 
    2045       ! 
    2046       IF( ln_timing ) CALL timing_start('zdf_osm_dv') 
    20472005      ! 
    20482006      zb_coup(:,:) = 0.0_wp 
    … …  
    21972155      END_2D 
    21982156      IF( iom_use("pb_coup") ) CALL iom_put( "pb_coup", tmask(:,:,1) * zb_coup(:,:) )   ! BBL-coupling velocity scale 
    2199       IF( ln_timing ) CALL timing_stop('zdf_osm_dv') 
    22002157      ! 
    22012158   END SUBROUTINE zdf_osm_diffusivity_viscosity 
    … …  
    22542211      REAL(wp)                    ::   zdvdz_pyc                               ! v-shear across the pycnocline 
    22552212      !!---------------------------------------------------------------------- 
    2256       ! 
    2257       IF( ln_timing ) CALL timing_start('zdf_osm_ft') 
    22582213      ! 
    22592214      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    … …  
    27212676      END IF 
    27222677      ! 
    2723       IF( ln_timing ) CALL timing_stop('zdf_osm_ft') 
    2724       ! 
    27252678   END SUBROUTINE zdf_osm_fgr_terms 
    27262679 
    … …  
    27622715      REAL(wp), DIMENSION(A2D(1))      ::   zmld_midu 
    27632716      REAL(wp), DIMENSION(A2D(1))      ::   zmld_midv 
    2764       ! 
    2765       IF( ln_timing ) CALL timing_start('zdf_osm_zhg') 
    27662717      ! 
    27672718      ! ==  MLD used for MLE  ==! 
    … …  
    28222773      END_2D 
    28232774      ! 
    2824       IF( ln_timing ) CALL timing_stop('zdf_osm_zhg') 
    2825       ! 
    28262775   END SUBROUTINE zdf_osm_zmld_horizontal_gradients 
    28272776 
    … …  
    28622811      REAL(wp)                    ::   zpe_mle_ref 
    28632812      REAL(wp)                    ::   zdbdz_mle_int 
    2864       ! 
    2865       IF( ln_timing ) CALL timing_start('zdf_osm_osf') 
    28662813      ! 
    28672814      znd_param(A2D(0)) = 0.0_wp 
    … …  
    29432890      END_2D 
    29442891      ! 
    2945       IF( ln_timing ) CALL timing_stop('zdf_osm_osf') 
    2946       ! 
    29472892   END SUBROUTINE zdf_osm_osbl_state_fk 
    29482893 
    … …  
    29822927      REAL(wp) ::   zbuoy 
    29832928      REAL(wp) ::   zdb_mle 
    2984       ! 
    2985       IF( ln_timing ) CALL timing_start('zdf_osm_mp') 
    29862929      ! 
    29872930      ! Calculate vertical buoyancy, heat and salinity fluxes due to MLE 
    … …  
    30252968      END_2D 
    30262969      ! 
    3027       IF( ln_timing ) CALL timing_stop('zdf_osm_mp') 
    3028       ! 
    30292970   END SUBROUTINE zdf_osm_mle_parameters 
    30302971 
    … …  
    30593000         &                 rn_osm_mle_rho_c, rn_osm_mle_thresh, rn_osm_mle_tau, ln_osm_hmle_limit, rn_osm_hmle_limit 
    30603001      ! 
    3061       IF( ln_timing ) CALL timing_start('zdf_osm_init') 
    30623002      READ  ( numnam_ref, namzdf_osm, IOSTAT = ios, ERR = 901) 
    30633003901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_osm in reference namelist' ) 
    … …  
    32563196      IF ( ln_dia_osm ) osmdia2d(:,:) = 0.0_wp   ! Initialise auxiliary array for diagnostic output 
    32573197      ! 
    3258       IF( ln_timing ) CALL timing_stop('zdf_osm_init') 
    3259       ! 
    32603198   END SUBROUTINE zdf_osm_init 
    32613199 
    … …  
    32823220      REAL(wp) ::   rho_c = 0.01_wp               ! Density criterion for mixed layer depth 
    32833221      INTEGER, DIMENSION(jpi,jpj) ::   imld_rst   ! Level of mixed-layer depth (pycnocline top) 
    3284       ! 
    3285       IF( ln_timing ) CALL timing_start('osm_rst') 
    32863222      ! 
    32873223      !!----------------------------------------------------------------------------- 
    … …  
    33703306      WRITE(numout,*) ' ===>>>> :  wn not in restart file, set to zero initially' 
    33713307      ! 
    3372       IF( ln_timing ) CALL timing_stop('osm_rst') 
    3373       ! 
    33743308   END SUBROUTINE osm_rst 
    33753309 
    … …  
    33903324      INTEGER                                 ::   ji, jj, jk 
    33913325      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrdt, ztrds   ! 3D workspace 
    3392       ! 
    3393       IF( ln_timing ) CALL timing_start('tra_osm') 
    33943326      ! 
    33953327      IF ( kt == nit000 ) THEN 
    … …  
    34293361      END IF 
    34303362      ! 
    3431       IF( ln_timing ) CALL timing_stop('tra_osm') 
    3432       ! 
    34333363   END SUBROUTINE tra_osm 
    34343364 
    … …  
    34463376      INTEGER, INTENT(in) :: kt 
    34473377      ! 
    3448       IF( ln_timing ) CALL timing_start('trc_osm') 
    3449       ! 
    34503378      WRITE(*,*) 'trc_osm: Not written yet', kt 
    3451       ! 
    3452       IF( ln_timing ) CALL timing_stop('trc_osm') 
    34533379      ! 
    34543380   END SUBROUTINE trc_osm 
    … …  
    34703396      INTEGER :: ji, jj, jk   ! dummy loop indices 
    34713397      !!---------------------------------------------------------------------- 
    3472       ! 
    3473       IF( ln_timing ) CALL timing_start('dyn_osm') 
    34743398      ! 
    34753399      IF ( kt == nit000 ) THEN 
    … …  
    34903414      ! Code for saving tracer trends removed 
    34913415      ! 
    3492       IF( ln_timing ) CALL timing_stop('dyn_osm') 
    3493       ! 
    34943416   END SUBROUTINE dyn_osm 
    34953417 
Note: See TracChangeset for help on using the changeset viewer.