- 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/p4zche.F90
r7753 r9124 155 155 REAL(wp) :: zst , zft , zcks , zckf , zaksp1 156 156 REAL(wp) :: total2free, free2SWS, total2SWS, SWS2total 157 158 157 !!--------------------------------------------------------------------- 159 158 ! 160 IF( nn_timing == 1 )CALL timing_start('p4z_che')159 IF( ln_timing ) CALL timing_start('p4z_che') 161 160 ! 162 161 ! Computation of chemical constants require practical salinity … … 447 446 END DO 448 447 ! 449 IF( nn_timing == 1) CALL timing_stop('p4z_che')448 IF( ln_timing ) CALL timing_stop('p4z_che') 450 449 ! 451 450 END SUBROUTINE p4z_che 451 452 452 453 453 SUBROUTINE ahini_for_at(p_hini) … … 470 470 REAL(wp) :: za2, za1, za0 471 471 REAL(wp) :: p_dictot, p_bortot, p_alkcb 472 473 IF( nn_timing == 1 ) CALL timing_start('ahini_for_at') 472 !!--------------------------------------------------------------------- 473 474 IF( ln_timing ) CALL timing_start('ahini_for_at') 474 475 ! 475 476 DO jk = 1, jpk … … 512 513 END DO 513 514 ! 514 IF( nn_timing == 1) CALL timing_stop('ahini_for_at')515 IF( ln_timing ) CALL timing_stop('ahini_for_at') 515 516 ! 516 517 END SUBROUTINE ahini_for_at 517 518 518 519 !=============================================================================== 520 519 521 SUBROUTINE anw_infsup( p_alknw_inf, p_alknw_sup ) 520 522 … … 564 566 REAL(wp), POINTER, DIMENSION(:,:,:) :: zalknw_inf, zalknw_sup, rmask, zh_min, zh_max, zeqn_absmin 565 567 566 IF( nn_timing == 1) CALL timing_start('solve_at_general')568 IF( ln_timing ) CALL timing_start('solve_at_general') 567 569 ! Allocate temporary workspace 568 570 CALL wrk_alloc( jpi, jpj, jpk, zalknw_inf, zalknw_sup, rmask ) … … 801 803 802 804 803 IF( nn_timing == 1 ) CALL timing_stop('solve_at_general') 804 805 805 IF( ln_timing ) CALL timing_stop('solve_at_general') 806 ! 806 807 END SUBROUTINE solve_at_general 808 807 809 808 810 INTEGER FUNCTION p4z_che_alloc()
Note: See TracChangeset
for help on using the changeset viewer.