- 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/p4zbio.F90
r7753 r9124 56 56 !!--------------------------------------------------------------------- 57 57 INTEGER, INTENT(in) :: kt, knt 58 ! 58 59 INTEGER :: ji, jj, jk, jn 59 60 CHARACTER (len=25) :: charout 60 61 61 !!--------------------------------------------------------------------- 62 62 ! 63 IF( nn_timing == 1 )CALL timing_start('p4z_bio')63 IF( ln_timing ) CALL timing_start('p4z_bio') 64 64 ! 65 65 ! ASSIGN THE SHEAR RATE THAT IS USED FOR AGGREGATION … … 112 112 ENDIF 113 113 ! 114 IF( nn_timing == 1 )CALL timing_stop('p4z_bio')114 IF( ln_timing ) CALL timing_stop('p4z_bio') 115 115 ! 116 116 END SUBROUTINE p4z_bio
Note: See TracChangeset
for help on using the changeset viewer.