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 3229 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF – NEMO

Ignore:
Timestamp:
2011-12-20T12:42:17+01:00 (13 years ago)
Author:
charris
Message:

Added timing calls to most significant routines in LDF, SBC and ZDF.

Location:
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r3116 r3229  
    2222   USE lib_mpp         ! distributed memory computing 
    2323   USE prtctl          ! Print control 
     24   USE timing          ! Timing 
    2425 
    2526   IMPLICIT NONE 
    … …  
    8283      REAL(wp) ::   zvu, zuv, zecu, zecv   ! temporary scalars 
    8384      !!---------------------------------------------------------------------- 
    84  
     85      ! 
     86      IF( nn_timing == 1 )  CALL timing_start('zdf_bfr') 
     87      ! 
    8588      IF( nn_bfr == 2 ) THEN                 ! quadratic botton friction 
    8689         ! Calculate and store the quadratic bottom friction coefficient bfrua and bfrva 
    … …  
    121124      ENDIF 
    122125      ! 
     126      IF( nn_timing == 1 )  CALL timing_stop('zdf_bfr') 
     127      ! 
    123128   END SUBROUTINE zdf_bfr 
    124129 
    … …  
    144149      NAMELIST/nambfr/ nn_bfr, rn_bfri1, rn_bfri2, rn_bfeb2, ln_bfr2d, rn_bfrien, ln_bfrimp 
    145150      !!---------------------------------------------------------------------- 
    146  
     151      ! 
     152      IF( nn_timing == 1 )  CALL timing_start('zdf_bfr_init') 
     153      ! 
    147154      REWIND ( numnam )               !* Read Namelist nam_bfr : bottom momentum boundary condition 
    148155      READ   ( numnam, nambfr ) 
    … …  
    272279      ENDIF 
    273280      ! 
     281      IF( nn_timing == 1 )  CALL timing_stop('zdf_bfr_init') 
     282      ! 
    274283   END SUBROUTINE zdf_bfr_init 
    275284 

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r3186 r3229  
    2323   USE lib_mpp         ! MPP library 
    2424   USE wrk_nemo        ! work arrays 
     25   USE timing          ! Timing 
    2526 
    2627   IMPLICIT NONE 
    … …  
    100101      REAL(wp), POINTER, DIMENSION(:,:) ::   zmsks, zmskf, zmskd1, zmskd2, zmskd3 
    101102      !!---------------------------------------------------------------------- 
    102  
     103      ! 
     104      IF( nn_timing == 1 )  CALL timing_start('zdf_ddm') 
     105      ! 
    103106      CALL wrk_alloc( jpi,jpj, zmsks, zmskf, zmskd1, zmskd2, zmskd3 ) 
    104107 
    … …  
    195198      CALL wrk_dealloc( jpi,jpj, zmsks, zmskf, zmskd1, zmskd2, zmskd3 ) 
    196199      ! 
     200      IF( nn_timing == 1 )  CALL timing_stop('zdf_ddm') 
     201      ! 
    197202   END SUBROUTINE zdf_ddm 
    198203    

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90

    r2715 r3229  
    2222   USE iom             ! for iom_put 
    2323   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     24   USE timing          ! Timing 
    2425 
    2526   IMPLICIT NONE 
    … …  
    5859      INTEGER ::   ji, jj, jk   ! dummy loop indices 
    5960      !!---------------------------------------------------------------------- 
    60  
     61      ! 
     62      IF( nn_timing == 1 )  CALL timing_start('zdf_evd') 
     63      ! 
    6164      IF( kt == nit000 ) THEN 
    6265         IF(lwp) WRITE(numout,*) 
    … …  
    130133      CALL iom_put( "avt_evd", zavt_evd )              ! output this change 
    131134      ! 
     135      IF( nn_timing == 1 )  CALL timing_stop('zdf_evd') 
     136      ! 
    132137   END SUBROUTINE zdf_evd 
    133138 

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r3186 r3229  
    3030   USE in_out_manager ! I/O manager 
    3131   USE iom            ! I/O manager library 
     32   USE timing         ! Timing 
    3233 
    3334   IMPLICIT NONE 
    … …  
    153154      REAL(wp), POINTER, DIMENSION(:,:,:) ::   z_elem_c, psi 
    154155      !!-------------------------------------------------------------------- 
    155  
     156      ! 
     157      IF( nn_timing == 1 )  CALL timing_start('zdf_gls') 
     158      ! 
    156159      CALL wrk_alloc( jpi,jpj, zdep, zflxs, zhsro ) 
    157160      CALL wrk_alloc( jpi,jpj,jpk, eb, mxlb, shear, eps, zwall_psi ) 
    … …  
    889892      CALL wrk_dealloc( jpi,jpj,jpk, eb, mxlb, shear, eps, zwall_psi ) 
    890893      ! 
     894      IF( nn_timing == 1 )  CALL timing_stop('zdf_gls') 
     895      ! 
     896      ! 
    891897   END SUBROUTINE zdf_gls 
    892898 
    … …  
    920926         &            nn_stab_func, nn_clos 
    921927      !!---------------------------------------------------------- 
    922  
     928      ! 
     929      IF( nn_timing == 1 )  CALL timing_start('zdf_gls_init') 
     930      ! 
    923931      REWIND( numnam )                 !* Read Namelist namzdf_gls 
    924932      READ  ( numnam, namzdf_gls ) 
    … …  
    11871195      CALL gls_rst( nit000, 'READ' )   !* read or initialize all required files 
    11881196      ! 
     1197      IF( nn_timing == 1 )  CALL timing_stop('zdf_gls_init') 
     1198      ! 
    11891199   END SUBROUTINE zdf_gls_init 
    11901200 

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r3186 r3229  
    3434   USE trdmod_oce      ! ocean trends definition 
    3535   USE trdtra          ! tracers trends 
     36   USE timing          ! Timing 
    3637 
    3738   IMPLICIT NONE 
    … …  
    254255      REAL(wp), POINTER, DIMENSION(:,:) ::   zmask, zblcm, zblct 
    255256      !!-------------------------------------------------------------------- 
    256       
     257      ! 
     258      IF( nn_timing == 1 )  CALL timing_start('zdf_kpp') 
     259      ! 
    257260      CALL wrk_alloc( jpi, zmoa, zekman, zhmax, zria, zhbl ) 
    258261      CALL wrk_alloc( jpi, za2m, za3m, zkmpm, za2t, za3t, zkmpt ) 
    … …  
    12141217#endif 
    12151218      ! 
     1219      IF( nn_timing == 1 )  CALL timing_stop('zdf_kpp') 
     1220      ! 
    12161221   END SUBROUTINE zdf_kpp 
    12171222 
    … …  
    12291234      INTEGER, INTENT(in) :: kt 
    12301235      INTEGER :: ji, jj, jk 
    1231  
     1236      ! 
     1237      IF( nn_timing == 1 )  CALL timing_start('tra_kpp') 
     1238      ! 
    12321239      IF( kt == nit000 ) THEN 
    12331240         IF(lwp) WRITE(numout,*)  
    … …  
    12691276         &             tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    12701277      ENDIF 
    1271  
     1278      ! 
     1279      IF( nn_timing == 1 )  CALL timing_stop('tra_kpp') 
     1280      ! 
    12721281   END SUBROUTINE tra_kpp 
    12731282 
    … …  
    13731382      NAMELIST/namzdf_kpp/ ln_kpprimix, rn_difmiw, rn_difsiw, rn_riinfty, rn_difri, rn_bvsqcon, rn_difcon, nn_ave 
    13741383      !!---------------------------------------------------------------------- 
    1375  
     1384      ! 
     1385      IF( nn_timing == 1 )  CALL timing_start('zdf_kpp_init') 
     1386      ! 
    13761387      REWIND ( numnam )               ! Read Namelist namkpp : K-Profile Parameterisation 
    13771388      READ   ( numnam, namzdf_kpp ) 
    … …  
    15711582#endif 
    15721583      ! 
     1584      IF( nn_timing == 1 )  CALL timing_stop('zdf_kpp_init') 
     1585      ! 
    15731586   END SUBROUTINE zdf_kpp_init 
    15741587 

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r3186 r3229  
    1717   USE lib_mpp         ! MPP library 
    1818   USE wrk_nemo        ! work arrays 
     19   USE timing          ! Timing 
    1920   USE trc_oce, ONLY : lk_offline ! offline flag 
    2021 
    … …  
    7879      REAL(wp) ::   zavt_c = 5.e-4_wp   ! Kz criterion for the turbocline depth 
    7980      !!---------------------------------------------------------------------- 
    80  
     81      ! 
     82      IF( nn_timing == 1 )  CALL timing_start('zdf_mxl') 
     83      ! 
    8184      CALL wrk_alloc( jpi,jpj, imld ) 
    8285 
    … …  
    119122      CALL wrk_dealloc( jpi,jpj, imld ) 
    120123      ! 
     124      IF( nn_timing == 1 )  CALL timing_stop('zdf_mxl') 
     125      ! 
    121126   END SUBROUTINE zdf_mxl 
    122127 

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r3186 r3229  
    2828   USE lib_mpp               ! MPP library 
    2929   USE wrk_nemo              ! work arrays 
     30   USE timing                ! Timing 
     31 
    3032   USE eosbn2, ONLY : nn_eos 
    3133 
    … …  
    120122      REAL(wp), POINTER, DIMENSION(:,:) ::   zwx, ekm_dep   
    121123      !!---------------------------------------------------------------------- 
    122  
     124      ! 
     125      IF( nn_timing == 1 )  CALL timing_start('zdf_ric') 
     126      ! 
    123127      CALL wrk_alloc( jpi,jpj, zwx, ekm_dep ) 
    124128      !                                                ! =============== 
    … …  
    223227      CALL wrk_dealloc( jpi,jpj, zwx, ekm_dep ) 
    224228      ! 
     229      IF( nn_timing == 1 )  CALL timing_stop('zdf_ric') 
     230      ! 
    225231   END SUBROUTINE zdf_ric 
    226232 

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r3186 r3229  
    5151   USE lib_mpp        ! MPP library 
    5252   USE wrk_nemo       ! work arrays 
     53   USE timing         ! Timing 
    5354 
    5455   IMPLICIT NONE 
    … …  
    211212      REAL(wp), POINTER, DIMENSION(:,:,:) :: zpelc 
    212213      !!-------------------------------------------------------------------- 
     214      ! 
     215      IF( nn_timing == 1 )  CALL timing_start('tke_tke') 
    213216      ! 
    214217      CALL wrk_alloc( jpi,jpj, imlc )    ! integer 
    … …  
    435438      CALL wrk_dealloc( jpi,jpj, zhlc )  
    436439      CALL wrk_dealloc( jpi,jpj,jpk, zpelc )  
     440      ! 
     441      IF( nn_timing == 1 )  CALL timing_stop('tke_tke') 
    437442      ! 
    438443   END SUBROUTINE tke_tke 
    … …  
    484489      !!-------------------------------------------------------------------- 
    485490      ! 
     491      IF( nn_timing == 1 )  CALL timing_start('tke_avn') 
     492      ! 
    486493      zmxlm => tsa(:,:,:,1)  
    487494      zmxld => tsa(:,:,:,2)  
    … …  
    657664            &          tab3d_2=avmv, clinfo2=       ' v: ', mask2=vmask, ovlap=1, kdim=jpk ) 
    658665      ENDIF 
     666      ! 
     667      IF( nn_timing == 1 )  CALL timing_stop('tke_avn') 
    659668      ! 
    660669   END SUBROUTINE tke_avn 

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r3186 r3229  
    2626   USE lib_mpp         ! MPP library 
    2727   USE wrk_nemo        ! work arrays 
     28   USE timing          ! Timing 
    2829 
    2930   IMPLICIT NONE 
    … …  
    111112      REAL(wp), POINTER, DIMENSION(:,:) ::   zkz 
    112113      !!---------------------------------------------------------------------- 
    113  
     114      ! 
     115      IF( nn_timing == 1 )  CALL timing_start('zdf_tmx') 
     116      ! 
    114117      CALL wrk_alloc( jpi,jpj, zkz ) 
    115118 
    … …  
    177180      CALL wrk_dealloc( jpi,jpj, zkz ) 
    178181      ! 
     182      IF( nn_timing == 1 )  CALL timing_stop('zdf_tmx') 
     183      ! 
    179184   END SUBROUTINE zdf_tmx 
    180185 
    … …  
    212217      !!---------------------------------------------------------------------- 
    213218      ! 
     219      IF( nn_timing == 1 )  CALL timing_start('tmx_itf') 
     220      ! 
    214221      CALL wrk_alloc( jpi,jpj, zkz, zsum1 , zsum2 , zsum ) 
    215222      CALL wrk_alloc( jpi,jpj,jpk, zempba_3d_1, zempba_3d_2, zempba_3d, zdn2dz, zavt_itf ) 
    … …  
    302309      CALL wrk_dealloc( jpi,jpj,jpk, zempba_3d_1, zempba_3d_2, zempba_3d, zdn2dz, zavt_itf ) 
    303310      ! 
     311      IF( nn_timing == 1 )  CALL timing_stop('tmx_itf') 
     312      ! 
    304313   END SUBROUTINE tmx_itf 
    305314 
    … …  
    353362      NAMELIST/namzdf_tmx/ rn_htmx, rn_n2min, rn_tfe, rn_me, ln_tmx_itf, rn_tfe_itf 
    354363      !!---------------------------------------------------------------------- 
    355  
     364      ! 
     365      IF( nn_timing == 1 )  CALL timing_start('zdf_tmx_init') 
     366      ! 
    356367      CALL wrk_alloc( jpi,jpj, zem2, zek1, zkz, zfact, zhdep ) 
    357368      CALL wrk_alloc( jpi,jpj,jpk, zpc ) 
    … …  
    520531      CALL wrk_dealloc( jpi,jpj,jpk, zpc ) 
    521532      ! 
     533      IF( nn_timing == 1 )  CALL timing_stop('zdf_tmx_init') 
     534      ! 
    522535   END SUBROUTINE zdf_tmx_init 
    523536 
Note: See TracChangeset for help on using the changeset viewer.