- Timestamp:
- 2017-09-27T16:29:24+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/RK3_SRC/ZDF/zdfmxl.F90
r8367 r8568 82 82 !!---------------------------------------------------------------------- 83 83 ! 84 IF( nn_timing == 1 )CALL timing_start('zdf_mxl')84 IF( ln_timing ) CALL timing_start('zdf_mxl') 85 85 ! 86 86 IF( kt == nit000 ) THEN … … 141 141 IF(ln_ctl) CALL prt_ctl( tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmlp, clinfo2=' hmlp : ', ovlap=1 ) 142 142 ! 143 IF( nn_timing == 1 )CALL timing_stop('zdf_mxl')143 IF( ln_timing ) CALL timing_stop('zdf_mxl') 144 144 ! 145 145 END SUBROUTINE zdf_mxl
Note: See TracChangeset
for help on using the changeset viewer.