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/TOP_SRC/PISCES/P4Z/p4zsink.F90 – 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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90

    r7753 r9124  
    6969      !!--------------------------------------------------------------------- 
    7070      ! 
    71       IF( nn_timing == 1 )  CALL timing_start('p4z_sink') 
     71      IF( ln_timing )   CALL timing_start('p4z_sink') 
    7272 
    7373 
     
    261261      ENDIF 
    262262      ! 
    263       IF( nn_timing == 1 )  CALL timing_stop('p4z_sink') 
     263      IF( ln_timing )   CALL timing_stop('p4z_sink') 
    264264      ! 
    265265   END SUBROUTINE p4z_sink 
    266266 
     267 
    267268   SUBROUTINE p4z_sink_init 
    268269      !!---------------------------------------------------------------------- 
     
    270271      !!---------------------------------------------------------------------- 
    271272      INTEGER :: jk 
    272  
     273      !!---------------------------------------------------------------------- 
     274      ! 
    273275      ik100 = 10        !  last level where depth less than 100 m 
    274276      DO jk = jpkm1, 1, -1 
     
    282284      ! 
    283285   END SUBROUTINE p4z_sink_init 
     286 
    284287 
    285288   SUBROUTINE p4z_sink2( pwsink, psinkflx, jp_tra, kiter ) 
     
    294297      !!      transport term, i.e.  div(u*tra). 
    295298      !!--------------------------------------------------------------------- 
    296       ! 
    297299      INTEGER , INTENT(in   )                         ::   jp_tra    ! tracer index index       
    298300      INTEGER , INTENT(in   )                         ::   kiter     ! number of iterations for time-splitting  
    299301      REAL(wp), INTENT(in   ), DIMENSION(jpi,jpj,jpk) ::   pwsink    ! sinking speed 
    300302      REAL(wp), INTENT(inout), DIMENSION(jpi,jpj,jpk) ::   psinkflx  ! sinking fluxe 
    301       !! 
     303      ! 
    302304      INTEGER  ::   ji, jj, jk, jn 
    303305      REAL(wp) ::   zigma,zew,zign, zflx, zstep 
     
    305307      !!--------------------------------------------------------------------- 
    306308      ! 
    307       IF( nn_timing == 1 )  CALL timing_start('p4z_sink2') 
     309      IF( ln_timing )   CALL timing_start('p4z_sink2') 
    308310      ! 
    309311      ! Allocate temporary workspace 
     
    391393      CALL wrk_dealloc( jpi, jpj, jpk, ztraz, zakz, zwsink2, ztrb ) 
    392394      ! 
    393       IF( nn_timing == 1 )  CALL timing_stop('p4z_sink2') 
     395      IF( ln_timing )  CALL timing_stop('p4z_sink2') 
    394396      ! 
    395397   END SUBROUTINE p4z_sink2 
     
    401403      !!---------------------------------------------------------------------- 
    402404      INTEGER :: ierr(3) 
    403  
     405      !!---------------------------------------------------------------------- 
     406      ! 
    404407      ierr(:) = 0 
    405408      ! 
Note: See TracChangeset for help on using the changeset viewer.