- 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/p4zint.F90
r7753 r9124 33 33 !! 34 34 !!--------------------------------------------------------------------- 35 !36 35 INTEGER, INTENT( in ) :: kt ! ocean time-step index 37 36 ! … … 40 39 !!--------------------------------------------------------------------- 41 40 ! 42 IF( nn_timing == 1 )CALL timing_start('p4z_int')41 IF( ln_timing ) CALL timing_start('p4z_int') 43 42 ! 44 43 ! Computation of phyto and zoo metabolic rate … … 61 60 ENDIF 62 61 ! 63 IF( nn_timing == 1 )CALL timing_stop('p4z_int')62 IF( ln_timing ) CALL timing_stop('p4z_int') 64 63 ! 65 64 END SUBROUTINE p4z_int
Note: See TracChangeset
for help on using the changeset viewer.