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

Changeset 3229


Ignore:
Timestamp:
2011-12-20T12:42:17+01:00 (12 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
Files:
19 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90

    r3186 r3229  
    2626   USE iom             ! I/O library 
    2727   USE wrk_nemo        ! work arrays 
     28   USE timing          ! Timing 
    2829 
    2930   IMPLICIT NONE 
     
    6061      REAL(wp), DIMENSION(:,:), POINTER ::   zn, zah, zhw, zross   ! 2D workspace 
    6162      !!---------------------------------------------------------------------- 
    62        
     63      ! 
     64      IF( nn_timing == 1 )  CALL timing_start('ldf_eiv') 
     65      ! 
    6366      CALL wrk_alloc( jpi,jpj, zn, zah, zhw, zross ) 
    6467 
     
    241244      CALL wrk_dealloc( jpi,jpj, zn, zah, zhw, zross ) 
    242245      ! 
     246      IF( nn_timing == 1 )  CALL timing_stop('ldf_eiv') 
     247      ! 
    243248   END SUBROUTINE ldf_eiv 
    244249 
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

    r3221 r3229  
    3232   USE prtctl          ! Print control 
    3333   USE wrk_nemo        ! work arrays 
     34   USE timing          ! Timing 
    3435 
    3536   IMPLICIT NONE 
     
    112113      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zgru, zgrv 
    113114      !!---------------------------------------------------------------------- 
    114  
     115      ! 
     116      IF( nn_timing == 1 )  CALL timing_start('ldf_slp') 
     117      ! 
    115118      CALL wrk_alloc( jpi,jpj,jpk, zdzr ) 
    116119      ! 
     
    365368      CALL wrk_dealloc( jpi,jpj,jpk, zdzr ) 
    366369      ! 
     370      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp') 
     371      ! 
    367372   END SUBROUTINE ldf_slp 
    368373 
     
    399404      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   zti_mlb, ztj_mlb            ! for Griffies operator only 
    400405      !!---------------------------------------------------------------------- 
    401        
     406      ! 
     407      IF( nn_timing == 1 )  CALL timing_start('ldf_slp_grif') 
     408      ! 
    402409      CALL wrk_alloc( jpi,jpj, z1_mlbw ) 
    403410      CALL wrk_alloc( jpi,jpj,jpk,2, zdxrho , zdyrho, zdzrho,              klstart = 0  ) 
     
    598605      CALL wrk_dealloc( jpi,jpj,  2,2, zti_mlb, ztj_mlb,        kkstart = 0, klstart = 0  ) 
    599606      ! 
     607      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp_grif') 
     608      ! 
    600609   END SUBROUTINE ldf_slp_grif 
    601610 
     
    629638      REAL(wp) ::   zck, zfk,      zbw             !   -      - 
    630639      !!---------------------------------------------------------------------- 
    631  
     640      ! 
     641      IF( nn_timing == 1 )  CALL timing_start('ldf_slp_mxl') 
     642      ! 
    632643      zeps   =  1.e-20_wp        !==   Local constant initialization   ==! 
    633644      zm1_g  = -1.0_wp / grav 
     
    720731      CALL lbc_lnk( wslpiml, 'W', -1. )   ;   CALL lbc_lnk( wslpjml, 'W', -1. )   ! lateral boundary conditions 
    721732      ! 
     733      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp_mxl') 
     734      ! 
    722735   END SUBROUTINE ldf_slp_mxl 
    723736 
     
    735748      INTEGER ::   ierr         ! local integer 
    736749      !!---------------------------------------------------------------------- 
    737  
     750      ! 
     751      IF( nn_timing == 1 )  CALL timing_start('ldf_slp_init') 
     752      ! 
    738753      IF(lwp) THEN 
    739754         WRITE(numout,*) 
     
    785800         ENDIF 
    786801      ENDIF 
     802      ! 
     803      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp_init') 
    787804      ! 
    788805   END SUBROUTINE ldf_slp_init 
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r3186 r3229  
    2828   USE lib_mpp         ! distribued memory computing library 
    2929   USE wrk_nemo        ! work arrays 
     30   USE timing          ! Timing 
    3031   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3132 
     
    227228      REAL(wp), POINTER, DIMENSION(:,:) ::   zqsb        ! sensible heat flux over ocean 
    228229      !!--------------------------------------------------------------------- 
    229  
     230      ! 
     231      IF( nn_timing == 1 )  CALL timing_start('blk_oce_clio') 
     232      ! 
    230233      CALL wrk_alloc( jpi,jpj, zqlw, zqla, zqsb ) 
    231234 
     
    381384      CALL wrk_dealloc( jpi,jpj, zqlw, zqla, zqsb ) 
    382385      ! 
     386      IF( nn_timing == 1 )  CALL timing_stop('blk_oce_clio') 
     387      ! 
    383388   END SUBROUTINE blk_oce_clio 
    384389 
     
    444449      REAL(wp), DIMENSION(:,:,:), POINTER ::   z_qlw, z_qsb 
    445450      !!--------------------------------------------------------------------- 
    446  
     451      ! 
     452      IF( nn_timing == 1 )  CALL timing_start('blk_ice_clio') 
     453      ! 
    447454      CALL wrk_alloc( jpi,jpj, ztatm, zqatm, zevsqr, zrhoa ) 
    448455      CALL wrk_alloc( jpi,jpj,pdim, z_qlw, z_qsb ) 
     
    625632      CALL wrk_dealloc( jpi,jpj,pdim, z_qlw, z_qsb ) 
    626633      ! 
     634      IF( nn_timing == 1 )  CALL timing_stop('blk_ice_clio') 
     635      ! 
    627636   END SUBROUTINE blk_ice_clio 
    628637 
     
    661670      REAL(wp), DIMENSION(:,:), POINTER ::   zps, zpc   ! sine (cosine) of latitude per sine (cosine) of solar declination  
    662671      !!--------------------------------------------------------------------- 
    663  
     672      ! 
     673      IF( nn_timing == 1 )  CALL timing_start('blk_clio_qsr_oce') 
     674      ! 
    664675      CALL wrk_alloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 
    665676 
     
    778789      CALL wrk_dealloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 
    779790      ! 
     791      IF( nn_timing == 1 )  CALL timing_stop('blk_clio_qsr_oce') 
     792      ! 
    780793   END SUBROUTINE blk_clio_qsr_oce 
    781794 
     
    812825      REAL(wp), DIMENSION(:,:), POINTER ::   zdlha, zlsrise, zlsset   ! 2D workspace 
    813826      REAL(wp), DIMENSION(:,:), POINTER ::   zps, zpc   ! sine (cosine) of latitude per sine (cosine) of solar declination  
    814        !!--------------------------------------------------------------------- 
    815  
     827      !!--------------------------------------------------------------------- 
     828      ! 
     829      IF( nn_timing == 1 )  CALL timing_start('blk_clio_qsr_ice') 
     830      ! 
    816831      CALL wrk_alloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 
    817832 
     
    919934      CALL wrk_dealloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 
    920935      ! 
     936      IF( nn_timing == 1 )  CALL timing_stop('blk_clio_qsr_ice') 
     937      ! 
    921938   END SUBROUTINE blk_clio_qsr_ice 
    922939 
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r3186 r3229  
    3434   USE lib_mpp         ! distribued memory computing library 
    3535   USE wrk_nemo        ! work arrays 
     36   USE timing          ! Timing 
    3637   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3738   USE prtctl          ! Print control 
     
    242243      REAL(wp), DIMENSION(:,:), POINTER ::   zq_zu             ! air spec. hum.  at wind speed height 
    243244      !!--------------------------------------------------------------------- 
    244  
     245      ! 
     246      IF( nn_timing == 1 )  CALL timing_start('blk_oce_core') 
     247      ! 
    245248      CALL wrk_alloc( jpi,jpj, zwnd_i, zwnd_j, zqsatw, zqlw, zqsb, zqla, zevap ) 
    246249      CALL wrk_alloc( jpi,jpj, Cd, Ch, Ce, zst, zt_zu, zq_zu ) 
     
    396399      CALL wrk_dealloc( jpi,jpj, zwnd_i, zwnd_j, zqsatw, zqlw, zqsb, zqla, zevap ) 
    397400      CALL wrk_dealloc( jpi,jpj, Cd, Ch, Ce, zst, zt_zu, zq_zu ) 
     401      ! 
     402      IF( nn_timing == 1 )  CALL timing_stop('blk_oce_core') 
    398403      ! 
    399404   END SUBROUTINE blk_oce_core 
     
    450455      REAL(wp), DIMENSION(:,:,:), POINTER ::   z_dqsb            ! sensible  heat sensitivity over ice 
    451456      !!--------------------------------------------------------------------- 
    452  
     457      ! 
     458      IF( nn_timing == 1 )  CALL timing_start('blk_ice_core') 
     459      ! 
    453460      CALL wrk_alloc( jpi,jpj, z_wnds_t ) 
    454461      CALL wrk_alloc( jpi,jpj,pdim, z_qlw, z_qsb, z_dqlw, z_dqsb )  
     
    610617      CALL wrk_dealloc( jpi,jpj,pdim, z_qlw, z_qsb, z_dqlw, z_dqsb )  
    611618      ! 
     619      IF( nn_timing == 1 )  CALL timing_stop('blk_ice_core') 
     620      ! 
    612621   END SUBROUTINE blk_ice_core 
    613622   
     
    663672      INTEGER , DIMENSION(:,:), POINTER  ::   stab          ! 1st guess stability test integer 
    664673      !!---------------------------------------------------------------------- 
    665  
     674      ! 
     675      IF( nn_timing == 1 )  CALL timing_start('TURB_CORE_1Z') 
     676      ! 
    666677      CALL wrk_alloc( jpi,jpj, stab )   ! integer 
    667678      CALL wrk_alloc( jpi,jpj, dU10, dT, dq, Cd_n10, Ce_n10, Ch_n10, sqrt_Cd_n10, sqrt_Cd, L ) 
     
    739750      CALL wrk_dealloc( jpi,jpj, dU10, dT, dq, Cd_n10, Ce_n10, Ch_n10, sqrt_Cd_n10, sqrt_Cd, L ) 
    740751      CALL wrk_dealloc( jpi,jpj, T_vpot, T_star, q_star, U_star, zeta, U_n10, xlogt, xct, zpsi_h, zpsi_m ) 
     752      ! 
     753      IF( nn_timing == 1 )  CALL timing_stop('TURB_CORE_1Z') 
    741754      ! 
    742755    END SUBROUTINE TURB_CORE_1Z 
     
    796809      INTEGER , DIMENSION(:,:), POINTER ::   stab          ! 1st stability test integer 
    797810      !!---------------------------------------------------------------------- 
    798  
     811      ! 
     812      IF( nn_timing == 1 )  CALL timing_start('TURB_CORE_2Z') 
     813      ! 
    799814      CALL wrk_alloc( jpi,jpj, dU10, dT, dq, Cd_n10, Ce_n10, Ch_n10, sqrt_Cd_n10, sqrt_Cd, L ) 
    800815      CALL wrk_alloc( jpi,jpj, T_vpot, T_star, q_star, U_star, zeta_u, zeta_t, U_n10 ) 
     
    887902      CALL wrk_dealloc( jpi,jpj, stab )   ! interger 
    888903      ! 
     904      IF( nn_timing == 1 )  CALL timing_stop('TURB_CORE_2Z') 
     905      ! 
    889906    END SUBROUTINE TURB_CORE_2Z 
    890907 
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

    r3186 r3229  
    2121   USE lib_mpp         ! distribued memory computing library 
    2222   USE wrk_nemo        ! work arrays 
     23   USE timing          ! Timing 
    2324   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2425   USE prtctl          ! Print control 
     
    120121         &                  sn_tair , sn_rhm , sn_prec  
    121122      !!--------------------------------------------------------------------- 
    122  
     123      ! 
     124      IF( nn_timing == 1 )  CALL timing_start('sbc_blk_mfs') 
     125      ! 
    123126      !                                         ! ====================== ! 
    124127      IF( kt == nit000 ) THEN                   !  First call kt=nit000  ! 
     
    263266 
    264267      ENDIF 
    265  
     268      ! 
     269      IF( nn_timing == 1 )  CALL timing_stop('sbc_blk_mfs') 
     270      ! 
    266271   END SUBROUTINE sbc_blk_mfs 
    267272   
     
    324329      REAL(wp), DIMENSION(5) :: p_e = (/-0.16,1.0,1.0,1.0,1.0/) 
    325330      INTEGER :: kku                        !index varing with wind speed 
    326  
     331      ! 
     332      IF( nn_timing == 1 )  CALL timing_start('fluxes_mfs') 
     333      ! 
    327334      CALL wrk_alloc( jpi,jpj, rspeed, sh10now, t10now, cdx, ce, shms ) 
    328335      CALL wrk_alloc( jpi,jpj, rhom, sstk, ch, rel_windu, rel_windv ) 
     
    490497      CALL wrk_dealloc( jpi,jpj, rspeed, sh10now, t10now, cdx, ce, shms ) 
    491498      CALL wrk_dealloc( jpi,jpj, rhom, sstk, ch, rel_windu, rel_windv ) 
    492  
     499      ! 
     500      IF( nn_timing == 1 )  CALL timing_stop('fluxes_mfs') 
     501      ! 
    493502   END SUBROUTINE fluxes_mfs 
    494503 
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r3186 r3229  
    4848   USE lib_mpp         ! distribued memory computing library 
    4949   USE wrk_nemo        ! work arrays 
     50   USE timing          ! Timing 
    5051   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    5152#if defined key_cpl_carbon_cycle 
     
    227228         &                  sn_rcv_qns , sn_rcv_emp   , sn_rcv_rnf  , sn_rcv_cal   , sn_rcv_iceflx  , sn_rcv_co2 
    228229      !!--------------------------------------------------------------------- 
    229  
     230      ! 
     231      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_init') 
     232      ! 
    230233      CALL wrk_alloc( jpi,jpj, zacs, zaos ) 
    231234 
     
    617620      CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 
    618621      ! 
     622      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_init') 
     623      ! 
    619624   END SUBROUTINE sbc_cpl_init 
    620625 
     
    676681      REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty  
    677682      !!---------------------------------------------------------------------- 
    678  
     683      ! 
     684      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_rcv') 
     685      ! 
    679686      CALL wrk_alloc( jpi,jpj, ztx, zty ) 
    680687 
     
    862869      CALL wrk_dealloc( jpi,jpj, ztx, zty ) 
    863870      ! 
     871      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_rcv') 
     872      ! 
    864873   END SUBROUTINE sbc_cpl_rcv 
    865874    
     
    905914      REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty  
    906915      !!---------------------------------------------------------------------- 
    907        
     916      ! 
     917      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_tau') 
     918      ! 
    908919      CALL wrk_alloc( jpi,jpj, ztx, zty ) 
    909920 
     
    10701081      CALL wrk_dealloc( jpi,jpj, ztx, zty ) 
    10711082      ! 
     1083      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_ice_tau') 
     1084      ! 
    10721085   END SUBROUTINE sbc_cpl_ice_tau 
    10731086    
     
    11221135      REAL(wp), POINTER, DIMENSION(:,:) ::   zcptn, ztmp, zicefr 
    11231136      !!---------------------------------------------------------------------- 
    1124  
     1137      ! 
     1138      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_flx') 
     1139      ! 
    11251140      CALL wrk_alloc( jpi,jpj, zcptn, ztmp, zicefr ) 
    11261141 
     
    13011316      CALL wrk_dealloc( jpi,jpj, zcptn, ztmp, zicefr ) 
    13021317      ! 
     1318      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_ice_flx') 
     1319      ! 
    13031320   END SUBROUTINE sbc_cpl_ice_flx 
    13041321    
     
    13201337      REAL(wp), POINTER, DIMENSION(:,:,:) ::   ztmp3, ztmp4    
    13211338      !!---------------------------------------------------------------------- 
    1322  
     1339      ! 
     1340      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_snd') 
     1341      ! 
    13231342      CALL wrk_alloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 ) 
    13241343      CALL wrk_alloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 
     
    15451564      CALL wrk_dealloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 
    15461565      ! 
     1566      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_snd') 
     1567      ! 
    15471568   END SUBROUTINE sbc_cpl_snd 
    15481569    
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcdcy.F90

    r2715 r3229  
    1818   USE in_out_manager   ! I/O manager 
    1919   USE lib_mpp          ! MPP library 
     20   USE timing           ! Timing 
    2021 
    2122   IMPLICIT NONE 
     
    7677         & - paaa * pt1 - zinvtwopi * pbbb * SIN(pccc + ztwopi * pt1) 
    7778      !!--------------------------------------------------------------------- 
    78  
     79      ! 
     80      IF( nn_timing == 1 )  CALL timing_start('sbc_dcy') 
     81      ! 
    7982      ! Initialization 
    8083      ! -------------- 
     
    221224      END DO   
    222225      ! 
     226      IF( nn_timing == 1 )  CALL timing_stop('sbc_dcy') 
     227      ! 
    223228   END FUNCTION sbc_dcy 
    224229 
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r3186 r3229  
    2323   USE lib_mpp         ! distribued memory computing library 
    2424   USE wrk_nemo        ! work arrays 
     25   USE timing          ! Timing 
    2526   USE lbclnk          ! ocean lateral boundary conditions 
    2627   USE lib_fortran 
     
    6869      REAL(wp), POINTER, DIMENSION(:,:) ::   ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor 
    6970      !!---------------------------------------------------------------------- 
     71      ! 
     72      IF( nn_timing == 1 )  CALL timing_start('sbc_fwb') 
    7073      ! 
    7174      CALL wrk_alloc( jpi,jpj, ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor ) 
     
    192195      CALL wrk_dealloc( jpi,jpj, ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor ) 
    193196      ! 
     197      IF( nn_timing == 1 )  CALL timing_stop('sbc_fwb') 
     198      ! 
    194199   END SUBROUTINE sbc_fwb 
    195200 
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r3116 r3229  
    4949   USE in_out_manager   ! I/O manager 
    5050   USE lib_mpp          ! MPP library 
     51   USE timing           ! Timing 
    5152   USE sbcwave          ! Wave module 
    5253 
     
    222223      INTEGER, INTENT(in) ::   kt       ! ocean time step 
    223224      !!--------------------------------------------------------------------- 
    224  
     225      ! 
     226      IF( nn_timing == 1 )  CALL timing_start('sbc') 
     227      ! 
    225228      !                                            ! ---------------------------------------- ! 
    226229      IF( kt /= nit000 ) THEN                      !          Swap of forcing fields          ! 
     
    363366      IF( kt == nitend )   CALL sbc_final         ! Close down surface module if necessary 
    364367      ! 
     368      IF( nn_timing == 1 )  CALL timing_stop('sbc') 
     369      ! 
    365370   END SUBROUTINE sbc 
    366371 
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r2715 r3229  
    2121   USE lib_mpp         ! distribued memory computing library 
    2222   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     23   USE timing          ! Timing 
    2324 
    2425   IMPLICIT NONE 
     
    7879      NAMELIST/namsbc_ssr/ cn_dir, nn_sstr, nn_sssr, rn_dqdt, rn_deds, sn_sst, sn_sss, ln_sssr_bnd, rn_sssr_bnd 
    7980      !!---------------------------------------------------------------------- 
     81      ! 
     82      IF( nn_timing == 1 )  CALL timing_start('sbc_ssr') 
    8083      ! 
    8184      !                                               ! -------------------- ! 
     
    201204      ENDIF 
    202205      ! 
     206      IF( nn_timing == 1 )  CALL timing_stop('sbc_ssr') 
     207      ! 
    203208   END SUBROUTINE sbc_ssr 
    204209       
  • 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.