- 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/p4zagg.F90
r7753 r9124 10 10 !! 3.6 ! 2015-05 (O. Aumont) PISCES quota 11 11 !!---------------------------------------------------------------------- 12 12 13 !!---------------------------------------------------------------------- 13 14 !! p4z_agg : Compute aggregation of particles … … 38 39 !! ** Method : - ??? 39 40 !!--------------------------------------------------------------------- 40 INTEGER, INTENT(in) :: kt, knt 41 INTEGER, INTENT(in) :: kt, knt ! 42 ! 41 43 INTEGER :: ji, jj, jk 42 44 REAL(wp) :: zagg, zagg1, zagg2, zagg3, zagg4 … … 49 51 !!--------------------------------------------------------------------- 50 52 ! 51 IF( nn_timing == 1 ) CALL timing_start('p4z_agg') 52 53 IF( ln_timing ) CALL timing_start('p4z_agg') 53 54 ! 54 55 ! Exchange between organic matter compartments due to coagulation/disaggregation … … 178 179 ENDIF 179 180 ! 180 IF( nn_timing == 1 )CALL timing_stop('p4z_agg')181 IF( ln_timing ) CALL timing_stop('p4z_agg') 181 182 ! 182 183 END SUBROUTINE p4z_agg
Note: See TracChangeset
for help on using the changeset viewer.