Ignore:
Timestamp:
02/08/12 18:07:19 (12 years ago)
Author:
cholod
Message:

Update of the trunk with the v3.4_r3300

Location:
trunk
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • trunk

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r1 r7  
    2222   USE lib_mpp         ! distributed memory computing 
    2323   USE prtctl          ! Print control 
     24   USE timing          ! Timing 
    2425 
    2526   IMPLICIT NONE 
    … …  
    4445   !!---------------------------------------------------------------------- 
    4546   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    46    !! $Id: zdfbfr.F90 3116 2011-11-15 20:55:40Z cetlod $ 
     47   !! $Id: zdfbfr.F90 3294 2012-01-28 16:44:18Z rblod $ 
    4748   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4849   !!---------------------------------------------------------------------- 
    … …  
    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 
    … …  
    120123            &                       tab2d_2=bfrva, clinfo2=       ' v: ', mask2=vmask,ovlap=1 ) 
    121124      ENDIF 
     125 
     126      ! 
     127      IF( nn_timing == 1 )  CALL timing_stop('zdf_bfr') 
    122128      ! 
    123129   END SUBROUTINE zdf_bfr 
    … …  
    144150      NAMELIST/nambfr/ nn_bfr, rn_bfri1, rn_bfri2, rn_bfeb2, ln_bfr2d, rn_bfrien, ln_bfrimp 
    145151      !!---------------------------------------------------------------------- 
    146  
     152      ! 
     153      IF( nn_timing == 1 )  CALL timing_start('zdf_bfr_init') 
     154      ! 
    147155      REWIND ( numnam )               !* Read Namelist nam_bfr : bottom momentum boundary condition 
    148156      READ   ( numnam, nambfr ) 
    … …  
    163171            WRITE(numout,*) 'Implicit bottom friction can only be used when ln_zdfexp=.false.' 
    164172            WRITE(numout,*) '         but you set: ln_bfrimp=.true. and ln_zdfexp=.true.!!!!' 
    165             WRITE(ctmp1,*)  '         bad ln_bfrimp value = .true.'  
     173            WRITE(ctmp1,*)  '         set either ln_zdfexp = .false or ln_bfrimp = .false.' 
    166174            CALL ctl_stop( ctmp1 ) 
    167175         END IF 
    … …  
    265273         CALL mpp_max( zmaxbfr ) 
    266274      ENDIF 
     275      IF( .NOT.ln_bfrimp) THEN 
    267276      IF( lwp .AND. ictu + ictv > 0 ) THEN 
    268277         WRITE(numout,*) ' Bottom friction stability check failed at ', ictu, ' U-points ' 
    … …  
    271280         WRITE(numout,*) ' Bottom friction coefficient will be reduced where necessary' 
    272281      ENDIF 
     282      ENDIF 
     283      ! 
     284      IF( nn_timing == 1 )  CALL timing_stop('zdf_bfr_init') 
    273285      ! 
    274286   END SUBROUTINE zdf_bfr_init 

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r1 r7  
    2323   USE lib_mpp         ! MPP library 
    2424   USE wrk_nemo        ! work arrays 
     25   USE timing          ! Timing 
    2526 
    2627   IMPLICIT NONE 
    … …  
    4445   !!---------------------------------------------------------------------- 
    4546   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    46    !! $Id: zdfddm.F90 3186 2011-11-27 08:16:19Z smasson $ 
     47   !! $Id: zdfddm.F90 3294 2012-01-28 16:44:18Z rblod $ 
    4748   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4849   !!---------------------------------------------------------------------- 
    … …  
    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    

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90

    r1 r7  
    2222   USE iom             ! for iom_put 
    2323   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     24   USE timing          ! Timing 
    2425 
    2526   IMPLICIT NONE 
    … …  
    3233   !!---------------------------------------------------------------------- 
    3334   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    34    !! $Id: zdfevd.F90 2715 2011-03-30 15:58:35Z rblod $ 
     35   !! $Id: zdfevd.F90 3294 2012-01-28 16:44:18Z rblod $ 
    3536   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3637   !!---------------------------------------------------------------------- 
    … …  
    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 

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r1 r7  
    3030   USE in_out_manager ! I/O manager 
    3131   USE iom            ! I/O manager library 
     32   USE timing         ! Timing 
    3233 
    3334   IMPLICIT NONE 
    … …  
    108109   !!---------------------------------------------------------------------- 
    109110   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    110    !! $Id: zdfgls.F90 3186 2011-11-27 08:16:19Z smasson $ 
     111   !! $Id: zdfgls.F90 3294 2012-01-28 16:44:18Z rblod $ 
    111112   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    112113   !!---------------------------------------------------------------------- 
    … …  
    132133      !!              coefficients using the GLS turbulent closure scheme. 
    133134      !!---------------------------------------------------------------------- 
    134       USE oce     , ONLY: tsa                 ! use tsa as workspace 
    135       USE oce     , ONLY: z_elem_a  =>   ua   ! use ua as workspace 
    136       USE oce     , ONLY: z_elem_b  =>   va   ! use va as workspace 
    137       ! 
    138135      INTEGER, INTENT(in) ::   kt ! ocean time step 
    139136      INTEGER  ::   ji, jj, jk, ibot, ibotm1, dir  ! dummy loop arguments 
    … …  
    151148      REAL(wp), POINTER, DIMENSION(:,:,:) ::   eps         ! dissipation rate 
    152149      REAL(wp), POINTER, DIMENSION(:,:,:) ::   zwall_psi   ! Wall function use in the wb case (ln_sigpsi.AND.ln_crban=T) 
    153       REAL(wp), POINTER, DIMENSION(:,:,:) ::   z_elem_c, psi 
     150      REAL(wp), POINTER, DIMENSION(:,:,:) ::   z_elem_a, z_elem_b, z_elem_c, psi 
    154151      !!-------------------------------------------------------------------- 
    155  
     152      ! 
     153      IF( nn_timing == 1 )  CALL timing_start('zdf_gls') 
     154      ! 
    156155      CALL wrk_alloc( jpi,jpj, zdep, zflxs, zhsro ) 
    157       CALL wrk_alloc( jpi,jpj,jpk, eb, mxlb, shear, eps, zwall_psi ) 
    158       ! 
    159       z_elem_c  => tsa(:,:,:,1) 
    160       psi       => tsa(:,:,:,2) 
     156      CALL wrk_alloc( jpi,jpj,jpk, eb, mxlb, shear, eps, zwall_psi, z_elem_a, z_elem_b, z_elem_c, psi ) 
    161157 
    162158      ! Preliminary computing 
    … …  
    461457            DO jj = 2, jpjm1 
    462458               DO ji = fs_2, fs_jpim1   ! vector opt. 
    463                   psi(ji,jj,jk)  = en(ji,jj,jk) * mxln(ji,jj,jk) 
     459                  psi(ji,jj,jk)  = eb(ji,jj,jk) * mxlb(ji,jj,jk) 
    464460               END DO 
    465461            END DO 
    … …  
    479475            DO jj = 2, jpjm1 
    480476               DO ji = fs_2, fs_jpim1   ! vector opt. 
    481                   psi(ji,jj,jk)  = SQRT( en(ji,jj,jk) ) / ( rc0 * mxln(ji,jj,jk) ) 
     477                  psi(ji,jj,jk)  = SQRT( eb(ji,jj,jk) ) / ( rc0 * mxlb(ji,jj,jk) ) 
    482478               END DO 
    483479            END DO 
    … …  
    488484            DO jj = 2, jpjm1 
    489485               DO ji = fs_2, fs_jpim1   ! vector opt. 
    490                   psi(ji,jj,jk)  = rc02 * en(ji,jj,jk) * mxln(ji,jj,jk)**rnn  
     486                  psi(ji,jj,jk)  = rc02 * eb(ji,jj,jk) * mxlb(ji,jj,jk)**rnn  
    491487               END DO 
    492488            END DO 
    … …  
    887883      ! 
    888884      CALL wrk_dealloc( jpi,jpj, zdep, zflxs, zhsro ) 
    889       CALL wrk_dealloc( jpi,jpj,jpk, eb, mxlb, shear, eps, zwall_psi ) 
     885      CALL wrk_dealloc( jpi,jpj,jpk, eb, mxlb, shear, eps, zwall_psi, z_elem_a, z_elem_b, z_elem_c, psi ) 
     886      ! 
     887      IF( nn_timing == 1 )  CALL timing_stop('zdf_gls') 
     888      ! 
    890889      ! 
    891890   END SUBROUTINE zdf_gls 
    … …  
    920919         &            nn_stab_func, nn_clos 
    921920      !!---------------------------------------------------------- 
    922  
     921      ! 
     922      IF( nn_timing == 1 )  CALL timing_start('zdf_gls_init') 
     923      ! 
    923924      REWIND( numnam )                 !* Read Namelist namzdf_gls 
    924925      READ  ( numnam, namzdf_gls ) 
    … …  
    11871188      CALL gls_rst( nit000, 'READ' )   !* read or initialize all required files 
    11881189      ! 
     1190      IF( nn_timing == 1 )  CALL timing_stop('zdf_gls_init') 
     1191      ! 
    11891192   END SUBROUTINE zdf_gls_init 
    11901193 

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r1 r7  
    3434   USE trdmod_oce      ! ocean trends definition 
    3535   USE trdtra          ! tracers trends 
     36   USE timing          ! Timing 
    3637 
    3738   IMPLICIT NONE 
    … …  
    146147   !!---------------------------------------------------------------------- 
    147148   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    148    !! $Id: zdfkpp.F90 3186 2011-11-27 08:16:19Z smasson $ 
     149   !! $Id: zdfkpp.F90 3294 2012-01-28 16:44:18Z rblod $ 
    149150   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    150151   !!---------------------------------------------------------------------- 
    … …  
    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 

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r1 r7  
    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 
    … …  
    3334   !!---------------------------------------------------------------------- 
    3435   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    35    !! $Id: zdfmxl.F90 3186 2011-11-27 08:16:19Z smasson $  
     36   !! $Id: zdfmxl.F90 3294 2012-01-28 16:44:18Z rblod $  
    3637   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3738   !!---------------------------------------------------------------------- 
    … …  
    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 

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r1 r7  
    2828   USE lib_mpp               ! MPP library 
    2929   USE wrk_nemo              ! work arrays 
     30   USE timing                ! Timing 
     31 
    3032   USE eosbn2, ONLY : nn_eos 
    3133 
    … …  
    5557   !!---------------------------------------------------------------------- 
    5658   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    57    !! $Id: zdfric.F90 3186 2011-11-27 08:16:19Z smasson $ 
     59   !! $Id: zdfric.F90 3294 2012-01-28 16:44:18Z rblod $ 
    5860   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    5961   !!---------------------------------------------------------------------- 
    … …  
    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 

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r1 r7  
    5151   USE lib_mpp        ! MPP library 
    5252   USE wrk_nemo       ! work arrays 
     53   USE timing         ! Timing 
    5354 
    5455   IMPLICIT NONE 
    … …  
    9798   !!---------------------------------------------------------------------- 
    9899   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    99    !! $Id: zdftke.F90 3186 2011-11-27 08:16:19Z smasson $ 
     100   !! $Id: zdftke.F90 3294 2012-01-28 16:44:18Z rblod $ 
    100101   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    101102   !!---------------------------------------------------------------------- 
    … …  
    191192      !!                (= Kz dz[Ub] * dz[Un] ) 
    192193      !! --------------------------------------------------------------------- 
    193       USE oce     , ONLY:   zdiag => ua          ! (ua,va) used  as workspace 
    194       USE oce     , ONLY:   tsa                  ! (tsa) used  as workspace 
    195       !! 
    196194      INTEGER  ::   ji, jj, jk                      ! dummy loop arguments 
    197195!!bfr      INTEGER  ::   ikbu, ikbv, ikbum1, ikbvm1      ! temporary scalar 
    … …  
    206204      REAL(wp) ::   zzd_up, zzd_lw                  !    -         - 
    207205!!bfr      REAL(wp) ::   zebot                           !    -         - 
    208       REAL(wp), POINTER, DIMENSION(:,:,:) :: zd_up, zd_lw 
    209206      INTEGER , POINTER, DIMENSION(:,:  ) :: imlc 
    210207      REAL(wp), POINTER, DIMENSION(:,:  ) :: zhlc 
    211       REAL(wp), POINTER, DIMENSION(:,:,:) :: zpelc 
     208      REAL(wp), POINTER, DIMENSION(:,:,:) :: zpelc, zdiag, zd_up, zd_lw 
    212209      !!-------------------------------------------------------------------- 
     210      ! 
     211      IF( nn_timing == 1 )  CALL timing_start('tke_tke') 
    213212      ! 
    214213      CALL wrk_alloc( jpi,jpj, imlc )    ! integer 
    215214      CALL wrk_alloc( jpi,jpj, zhlc )  
    216       CALL wrk_alloc( jpi,jpj,jpk, zpelc )  
    217       ! 
    218       zd_up => tsa(:,:,:,1)  
    219       zd_lw => tsa(:,:,:,2)  
    220  
     215      CALL wrk_alloc( jpi,jpj,jpk, zpelc, zdiag, zd_up, zd_lw )  
     216      ! 
    221217      zbbrau = rn_ebb / rau0       ! Local constant initialisation 
    222218      zfact1 = -.5_wp * rdt  
    … …  
    434430      CALL wrk_dealloc( jpi,jpj, imlc )    ! integer 
    435431      CALL wrk_dealloc( jpi,jpj, zhlc )  
    436       CALL wrk_dealloc( jpi,jpj,jpk, zpelc )  
     432      CALL wrk_dealloc( jpi,jpj,jpk, zpelc, zdiag, zd_up, zd_lw )  
     433      ! 
     434      IF( nn_timing == 1 )  CALL timing_stop('tke_tke') 
    437435      ! 
    438436   END SUBROUTINE tke_tke 
    … …  
    474472      !!              - avmu, avmv : now vertical eddy viscosity at uw- and vw-points 
    475473      !!---------------------------------------------------------------------- 
    476       USE oce, ONLY:  zmpdl => ua    ! ua used as workspace 
    477       USE oce, ONLY:  tsa            ! use tsa as workspace 
    478       !! 
    479474      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    480475      REAL(wp) ::   zrn2, zraug, zcoef, zav     ! local scalars 
    481476      REAL(wp) ::   zdku, zpdlr, zri, zsqen     !   -      - 
    482477      REAL(wp) ::   zdkv, zemxl, zemlm, zemlp   !   -      - 
    483       REAL(wp), POINTER, DIMENSION(:,:,:) :: zmxlm, zmxld 
     478      REAL(wp), POINTER, DIMENSION(:,:,:) :: zmpdl, zmxlm, zmxld 
    484479      !!-------------------------------------------------------------------- 
    485480      ! 
    486       zmxlm => tsa(:,:,:,1)  
    487       zmxld => tsa(:,:,:,2)  
     481      IF( nn_timing == 1 )  CALL timing_start('tke_avn') 
     482 
     483      CALL wrk_alloc( jpi,jpj,jpk, zmpdl, zmxlm, zmxld )  
    488484 
    489485      !                     !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    … …  
    657653            &          tab3d_2=avmv, clinfo2=       ' v: ', mask2=vmask, ovlap=1, kdim=jpk ) 
    658654      ENDIF 
     655      ! 
     656      CALL wrk_dealloc( jpi,jpj,jpk, zmpdl, zmxlm, zmxld )  
     657      ! 
     658      IF( nn_timing == 1 )  CALL timing_stop('tke_avn') 
    659659      ! 
    660660   END SUBROUTINE tke_avn 

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r1 r7  
    2626   USE lib_mpp         ! MPP library 
    2727   USE wrk_nemo        ! work arrays 
     28   USE timing          ! Timing 
    2829 
    2930   IMPLICIT NONE 
    … …  
    5354   !!---------------------------------------------------------------------- 
    5455   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    55    !! $Id: zdftmx.F90 3186 2011-11-27 08:16:19Z smasson $ 
     56   !! $Id: zdftmx.F90 3294 2012-01-28 16:44:18Z rblod $ 
    5657   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    5758   !!---------------------------------------------------------------------- 
    … …  
    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.