- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r7970 r9124 18 18 USE prtctl_trc ! print control for debugging 19 19 20 21 20 IMPLICIT NONE 22 21 PRIVATE … … 59 58 !! ** Method : - ??? 60 59 !!--------------------------------------------------------------------- 61 !62 60 INTEGER, INTENT(in) :: kt, knt ! ocean time step 63 61 ! … … 72 70 !!--------------------------------------------------------------------- 73 71 ! 74 IF( nn_timing == 1) CALL timing_start('p4z_opt')72 IF( ln_timing ) CALL timing_start('p4z_opt') 75 73 ! 76 74 ! Allocate temporary workspace … … 250 248 CALL wrk_dealloc( jpi, jpj, jpk, zpar , ze0, ze1, ze2, ze3, zchl3d ) 251 249 ! 252 IF( nn_timing == 1) CALL timing_stop('p4z_opt')250 IF( ln_timing ) CALL timing_stop('p4z_opt') 253 251 ! 254 252 END SUBROUTINE p4z_opt 253 255 254 256 255 SUBROUTINE p4z_opt_par( kt, pqsr, pe1, pe2, pe3, pe0, pqsr100 ) … … 334 333 !! 335 334 !!---------------------------------------------------------------------- 336 !! * arguments337 335 INTEGER , INTENT(in) :: kt ! ocean time step 338 339 !! * local declarations 336 ! 340 337 INTEGER :: ji,jj 341 338 REAL(wp) :: zcoef 342 339 !!--------------------------------------------------------------------- 343 340 ! 344 IF( nn_timing == 1) CALL timing_start('p4z_optsbc')341 IF( ln_timing ) CALL timing_start('p4z_optsbc') 345 342 ! 346 343 ! Compute par_varsw at nit000 or only if there is more than 1 time record in par coefficient file … … 352 349 ENDIF 353 350 ! 354 IF( nn_timing == 1) CALL timing_stop('p4z_optsbc')351 IF( ln_timing ) CALL timing_stop('p4z_optsbc') 355 352 ! 356 353 END SUBROUTINE p4z_opt_sbc 354 357 355 358 356 SUBROUTINE p4z_opt_init … … 365 363 !! ** Input : external ascii and netcdf files 366 364 !!---------------------------------------------------------------------- 367 !368 365 INTEGER :: numpar 369 366 INTEGER :: ierr … … 375 372 ! 376 373 NAMELIST/nampisopt/cn_dir, sn_par, ln_varpar, parlux 377 378 !!---------------------------------------------------------------------- 379 380 IF( nn_timing == 1 ) CALL timing_start('p4z_opt_init') 374 !!---------------------------------------------------------------------- 381 375 382 376 REWIND( numnatp_ref ) ! Namelist nampisopt in reference namelist : Pisces attenuation coef. and PAR … … 434 428 IF( ln_qsr_bio ) etot3 (:,:,:) = 0._wp 435 429 ! 436 IF( nn_timing == 1 ) CALL timing_stop('p4z_opt_init')437 !438 430 END SUBROUTINE p4z_opt_init 439 431
Note: See TracChangeset
for help on using the changeset viewer.