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

Ignore:
Timestamp:
2017-12-19T09:26:25+01:00 (6 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/TRA
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_cen.F90

    r9094 r9124  
    2323   USE trc_oce        ! share passive tracers/Ocean variables 
    2424   USE lib_mpp        ! MPP library 
    25    USE timing         ! Timing 
    2625 
    2726   IMPLICIT NONE 
    … …  
    8180      !!---------------------------------------------------------------------- 
    8281      ! 
    83       IF( ln_timing )   CALL timing_start('tra_adv_cen') 
    84       ! 
    8582      IF( kt == kit000 )  THEN 
    8683         IF(lwp) WRITE(numout,*) 
    … …  
    205202      END DO 
    206203      ! 
    207       IF( ln_timing )   CALL timing_stop('tra_adv_cen') 
    208       ! 
    209204   END SUBROUTINE tra_adv_cen 
    210205    

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_fct.F90

    r9094 r9124  
    2727   USE lbclnk         ! ocean lateral boundary condition (or mpp link)  
    2828   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    29    USE timing         ! Timing 
    3029 
    3130   IMPLICIT NONE 
    … …  
    8887      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrdx, ztrdy, ztrdz, zptry 
    8988      !!---------------------------------------------------------------------- 
    90       ! 
    91       IF( ln_timing )   CALL timing_start('tra_adv_fct') 
    9289      ! 
    9390      IF( kt == kit000 )  THEN 
    … …  
    324321      END DO                     ! end of tracer loop 
    325322      ! 
    326       IF( ln_timing )   CALL timing_stop('tra_adv_fct') 
    327       ! 
    328323   END SUBROUTINE tra_adv_fct 
    329324 
    … …  
    353348      !!---------------------------------------------------------------------- 
    354349      ! 
    355       IF( ln_timing )   CALL timing_start('nonosc') 
    356       ! 
    357350      zbig  = 1.e+40_wp 
    358351      zrtrn = 1.e-15_wp 
    … …  
    428421      END DO 
    429422      CALL lbc_lnk_multi( paa, 'U', -1. , pbb, 'V', -1. )   ! lateral boundary condition (changed sign) 
    430       ! 
    431       IF( ln_timing )   CALL timing_stop('nonosc') 
    432423      ! 
    433424   END SUBROUTINE nonosc 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90

    r9094 r9124  
    1616   USE zdfmxl         ! mixed layer depth 
    1717   ! 
    18    USE lbclnk         ! lateral boundary condition / mpp link 
    1918   USE in_out_manager ! I/O manager 
    2019   USE iom            ! IOM library 
    2120   USE lib_mpp        ! MPP library 
    22    USE timing         ! Timing 
     21   USE lbclnk         ! lateral boundary condition / mpp link 
    2322 
    2423   IMPLICIT NONE 
    … …  
    9594      !!---------------------------------------------------------------------- 
    9695      ! 
    97       IF( ln_timing )   CALL timing_start('tra_adv_mle') 
    98       ! 
    9996      !                                      !==  MLD used for MLE  ==! 
    10097      !                                                ! compute from the 10m density to deal with the diurnal cycle 
    … …  
    248245         CALL iom_put( "psiv_mle", zpsi_vw )    ! j-mle streamfunction 
    249246      ENDIF 
    250       ! 
    251       IF( ln_timing )   CALL timing_stop('tra_adv_mle') 
    252247      ! 
    253248   END SUBROUTINE tra_adv_mle 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mus.F90

    r9094 r9124  
    2727   ! 
    2828   USE iom            ! XIOS library 
    29    USE timing         ! Timing 
    30    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    3129   USE in_out_manager ! I/O manager 
    3230   USE lib_mpp        ! distribued memory computing 
    3331   USE lbclnk         ! ocean lateral boundary condition (or mpp link)  
     32   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    3433 
    3534   IMPLICIT NONE 
    … …  
    9190      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zwy, zslpy   ! -      -  
    9291      !!---------------------------------------------------------------------- 
    93       ! 
    94       IF( ln_timing )   CALL timing_start('tra_adv_mus') 
    9592      ! 
    9693      IF( kt == kit000 )  THEN 
    … …  
    275272      END DO                     ! end of tracer loop 
    276273      ! 
    277       IF( ln_timing )   CALL timing_stop('tra_adv_mus') 
    278       ! 
    279274   END SUBROUTINE tra_adv_mus 
    280275 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90

    r9094 r9124  
    2222   USE diaptr          ! poleward transport diagnostics 
    2323   ! 
     24   USE in_out_manager  ! I/O manager 
    2425   USE lib_mpp         ! distribued memory computing 
    2526   USE lbclnk          ! ocean lateral boundary condition (or mpp link) 
    26    USE in_out_manager  ! I/O manager 
    27    USE timing          ! Timing 
    2827   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2928 
    … …  
    9594      !!---------------------------------------------------------------------- 
    9695      ! 
    97       IF( ln_timing )   CALL timing_start('tra_adv_qck') 
    98       ! 
    9996      IF( kt == kit000 )  THEN 
    10097         IF(lwp) WRITE(numout,*) 
    … …  
    116113      !        ! vertical fluxes are computed with the 2nd order centered scheme 
    117114      CALL tra_adv_cen2_k( kt, cdtype, pwn,         ptn, pta, kjpt ) 
    118       ! 
    119       IF( ln_timing )   CALL timing_stop('tra_adv_qck') 
    120115      ! 
    121116   END SUBROUTINE tra_adv_qck 
    … …  
    427422      REAL(wp) ::  zc, zcurv, zfho          !   -      - 
    428423      !---------------------------------------------------------------------- 
    429       ! 
    430       IF( ln_timing )   CALL timing_start('quickest') 
    431424      ! 
    432425      DO jk = 1, jpkm1 
    … …  
    460453      END DO 
    461454      ! 
    462       IF( ln_timing )   CALL timing_stop('quickest') 
    463       ! 
    464455   END SUBROUTINE quickest 
    465456 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90

    r9019 r9124  
    2222   ! 
    2323   USE iom            ! I/O library 
     24   USE in_out_manager ! I/O manager 
    2425   USE lib_mpp        ! massively parallel library 
    2526   USE lbclnk         ! ocean lateral boundary condition (or mpp link) 
    26    USE in_out_manager ! I/O manager 
    27    USE timing         ! Timing 
    2827   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2928 
    … …  
    102101      !!---------------------------------------------------------------------- 
    103102      ! 
    104       IF( ln_timing )   CALL timing_start('tra_adv_ubs') 
    105       ! 
    106103      IF( kt == kit000 )  THEN 
    107104         IF(lwp) WRITE(numout,*) 
    … …  
    281278      END DO 
    282279      ! 
    283       IF( ln_timing )   CALL timing_stop('tra_adv_ubs') 
    284       ! 
    285280   END SUBROUTINE tra_adv_ubs 
    286281 
    … …  
    310305      !!---------------------------------------------------------------------- 
    311306      ! 
    312       IF( ln_timing )   CALL timing_start('nonosc_z') 
    313       ! 
    314307      zbig  = 1.e+40_wp 
    315308      zrtrn = 1.e-15_wp 
    … …  
    379372      END DO 
    380373      ! 
    381       IF( ln_timing )   CALL timing_stop('nonosc_z') 
    382       ! 
    383374   END SUBROUTINE nonosc_z 
    384375 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r9099 r9124  
    4242 
    4343   PUBLIC   tra_bbl       !  routine called by step.F90 
    44    PUBLIC   tra_bbl_init  !  routine called by opa.F90 
     44   PUBLIC   tra_bbl_init  !  routine called by nemogcm.F90 
    4545   PUBLIC   tra_bbl_dif   !  routine called by trcbbl.F90 
    46    PUBLIC   tra_bbl_adv   !  -          -          -              - 
     46   PUBLIC   tra_bbl_adv   !     -      -          - 
    4747   PUBLIC   bbl           !  routine called by trcbbl.F90 and dtadyn.F90 
    4848 
    … …  
    185185      REAL(wp), DIMENSION(jpi,jpj) ::   zptb   ! workspace 
    186186      !!---------------------------------------------------------------------- 
    187       ! 
    188       IF( ln_timing )   CALL timing_start('tra_bbl_dif') 
    189187      ! 
    190188      DO jn = 1, kjpt                                     ! tracer loop 
    … …  
    211209      END DO                                                ! end tracer 
    212210      !                                                     ! =========== 
    213       ! 
    214       IF( ln_timing )   CALL timing_stop('tra_bbl_dif') 
    215       ! 
    216211   END SUBROUTINE tra_bbl_dif 
    217212 
    … …  
    243238      !!---------------------------------------------------------------------- 
    244239      ! 
    245       IF( ln_timing )   CALL timing_start( 'tra_bbl_adv') 
    246240      !                                                          ! =========== 
    247241      DO jn = 1, kjpt                                            ! tracer loop 
    … …  
    298292      END DO                                                ! end tracer 
    299293      !                                                     ! =========== 
    300       ! 
    301       IF( ln_timing )   CALL timing_stop( 'tra_bbl_adv') 
    302       ! 
    303294   END SUBROUTINE tra_bbl_adv 
    304295 
    … …  
    343334      REAL(wp), DIMENSION(jpi,jpj)        :: zub, zvb, zdep   ! 2D workspace 
    344335      !!---------------------------------------------------------------------- 
    345       ! 
    346       IF( ln_timing )   CALL timing_start( 'bbl') 
    347336      ! 
    348337      IF( kt == kit000 )  THEN 
    … …  
    475464      ENDIF 
    476465      ! 
    477       IF( ln_timing )   CALL timing_stop( 'bbl') 
    478       ! 
    479466   END SUBROUTINE bbl 
    480467 
    … …  
    495482      NAMELIST/nambbl/ ln_trabbl, nn_bbl_ldf, nn_bbl_adv, rn_ahtbbl, rn_gambbl 
    496483      !!---------------------------------------------------------------------- 
    497       ! 
    498       IF( ln_timing )   CALL timing_start( 'tra_bbl_init') 
    499484      ! 
    500485      REWIND( numnam_ref )              ! Namelist nambbl in reference namelist : Bottom boundary layer scheme 
    … …  
    569554      ahv_bbl_0(:,:) = rn_ahtbbl * e1_e2v(:,:) * e3v_bbl_0(:,:) * vmask(:,:,1) 
    570555      ! 
    571       IF( ln_timing )   CALL timing_stop( 'tra_bbl_init') 
    572       ! 
    573556   END SUBROUTINE tra_bbl_init 
    574557 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

    r9019 r9124  
    3030   USE phycst         ! physical constants 
    3131   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    32    USE timing         ! Timing 
    3332 
    3433   IMPLICIT NONE 
    … …  
    113112      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zdit, zdjt, zftu, zftv, ztfw  
    114113      !!---------------------------------------------------------------------- 
    115       ! 
    116       IF( ln_timing )   CALL timing_start('tra_ldf_iso') 
    117114      ! 
    118115      IF( kt == kit000 )  THEN 
    … …  
    383380      END DO                                                      ! end tracer loop 
    384381      ! 
    385       IF( ln_timing )   CALL timing_stop('tra_ldf_iso') 
    386       ! 
    387382   END SUBROUTINE tra_ldf_iso 
    388383 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_lap_blp.F90

    r9094 r9124  
    8989      !!---------------------------------------------------------------------- 
    9090      ! 
    91       IF( ln_timing )   CALL timing_start('tra_ldf_lap') 
    92       ! 
    9391      IF( kt == nit000 .AND. lwp )  THEN 
    9492         WRITE(numout,*) 
    … …  
    165163      END DO                        ! end of tracer loop 
    166164      !                             ! ================== 
    167       ! 
    168       IF( ln_timing )   CALL timing_stop('tra_ldf_lap') 
    169165      ! 
    170166   END SUBROUTINE tra_ldf_lap 
    … …  
    203199      !!--------------------------------------------------------------------- 
    204200      ! 
    205       IF( ln_timing )   CALL timing_start('tra_ldf_blp') 
    206       ! 
    207201      IF( kt == kit000 .AND. lwp )  THEN 
    208202         WRITE(numout,*) 
    … …  
    243237      END SELECT 
    244238      ! 
    245       IF( ln_timing )   CALL timing_stop('tra_ldf_blp') 
    246       ! 
    247239   END SUBROUTINE tra_ldf_blp 
    248240 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_triad.F90

    r9019 r9124  
    2727   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    2828   USE lib_mpp        ! MPP library 
    29    USE timing         ! Timing 
    3029 
    3130   IMPLICIT NONE 
    … …  
    9796      !!---------------------------------------------------------------------- 
    9897      ! 
    99       IF( ln_timing )   CALL timing_start('tra_ldf_triad') 
    100       ! 
    10198      IF( .NOT.ALLOCATED(zdkt3d) )  THEN 
    10299         ALLOCATE( zdkt3d(jpi,jpj,0:1) , STAT=ierr ) 
    … …  
    430427      END DO                                                      ! end tracer loop 
    431428      !                                                           ! =============== 
    432       IF( ln_timing )   CALL timing_stop('tra_ldf_triad') 
    433       ! 
    434429   END SUBROUTINE tra_ldf_triad 
    435430 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r9019 r9124  
    334334      !!---------------------------------------------------------------------- 
    335335      ! 
    336       IF( ln_timing )   CALL timing_start('tra_qsr_init') 
    337       ! 
    338336      REWIND( numnam_ref )              ! Namelist namtra_qsr in reference     namelist 
    339337      READ  ( numnam_ref, namtra_qsr, IOSTAT = ios, ERR = 901) 
    … …  
    428426      ENDIF 
    429427      ! 
    430       IF( ln_timing )   CALL timing_stop('tra_qsr_init') 
    431       ! 
    432428   END SUBROUTINE tra_qsr_init 
    433429 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

    r9119 r9124  
    2727   USE trd_oce        ! trends: ocean variables 
    2828   USE trdtra         ! trends manager: tracers  
     29   USE wet_dry,  ONLY : ll_wd, rn_wdmin1, r_rn_wdmin1   ! Wetting and drying 
    2930#if defined key_asminc    
    3031   USE asminc         ! Assimilation increment 
    … …  
    3637   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    3738   USE timing         ! Timing 
    38    USE wet_dry,  ONLY : ll_wd, rn_wdmin1, r_rn_wdmin1 ! Wetting and drying 
    3939 
    4040   IMPLICIT NONE 
    … …  
    252252      ! 
    253253#endif 
    254  
    255254      ! 
    256255      !---------------------------------------- 
    … …  
    263262               DO ji = fs_2, fs_jpim1 
    264263                  zdep = 1._wp / e3t_n(ji,jj,jk)  
    265                   tsa(ji,jj,jk,jp_tem) = tsa(ji,jj,jk,jp_tem) - htsc_iscpl(ji,jj,jk,jp_tem)                       & 
    266                       &                                         * zdep 
    267                   tsa(ji,jj,jk,jp_sal) = tsa(ji,jj,jk,jp_sal) - htsc_iscpl(ji,jj,jk,jp_sal)                       & 
    268                       &                                         * zdep   
     264                  tsa(ji,jj,jk,jp_tem) = tsa(ji,jj,jk,jp_tem) - htsc_iscpl(ji,jj,jk,jp_tem) * zdep 
     265                  tsa(ji,jj,jk,jp_sal) = tsa(ji,jj,jk,jp_sal) - htsc_iscpl(ji,jj,jk,jp_sal) * zdep   
    269266               END DO   
    270267            END DO   

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf.F90

    r9094 r9124  
    5858      IF( ln_timing )   CALL timing_start('tra_zdf') 
    5959      ! 
     60      IF( kt == nit000 )  THEN 
     61         IF(lwp)WRITE(numout,*) 
     62         IF(lwp)WRITE(numout,*) 'tra_zdf : implicit vertical mixing on T & S' 
     63         IF(lwp)WRITE(numout,*) '~~~~~~~ ' 
     64      ENDIF 
     65      ! 
    6066      IF( neuler == 0 .AND. kt == nit000 ) THEN   ;   r2dt =      rdt   ! at nit000, =   rdt (restarting with Euler time stepping) 
    6167      ELSEIF( kt <= nit000 + 1           ) THEN   ;   r2dt = 2. * rdt   ! otherwise, = 2 rdt (leapfrog) 
    … …  
    134140      !!--------------------------------------------------------------------- 
    135141      ! 
    136       IF( ln_timing )   CALL timing_start('tra_zdf_imp') 
    137       ! 
    138       IF( kt == kit000 )  THEN 
    139          IF(lwp)WRITE(numout,*) 
    140          IF(lwp)WRITE(numout,*) 'tra_zdf_imp : implicit vertical mixing on ', cdtype 
    141          IF(lwp)WRITE(numout,*) '~~~~~~~~~~~ ' 
    142       ENDIF 
    143142      !                                               ! ============= ! 
    144143      DO jn = 1, kjpt                                 !  tracer loop  ! 
    … …  
    253252      END DO                                          !  end tracer loop  ! 
    254253      !                                               ! ================= ! 
    255       ! 
    256       IF( ln_timing )   CALL timing_stop('tra_zdf_imp') 
    257       ! 
    258254   END SUBROUTINE tra_zdf_imp 
    259255 
Note: See TracChangeset for help on using the changeset viewer.