Changeset 3294 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zbio.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zbio.F90
r2715 r3294 14 14 !! compartments of PISCES 15 15 !!---------------------------------------------------------------------- 16 USE oce_trc ! 17 USE trc !18 USE sms_pisces ! 19 USE p4zsink ! 20 USE p4zopt ! 21 USE p4zlim ! 22 USE p4zprod ! 23 USE p4zmort ! 24 USE p4zmicro ! 25 USE p4zmeso ! 26 USE p4zrem ! 27 USE prtctl_trc 28 USE iom 16 USE oce_trc ! shared variables between ocean and passive tracers 17 USE trc ! passive tracers common variables 18 USE sms_pisces ! PISCES Source Minus Sink variables 19 USE p4zsink ! vertical flux of particulate matter due to sinking 20 USE p4zopt ! optical model 21 USE p4zlim ! Co-limitations of differents nutrients 22 USE p4zprod ! Growth rate of the 2 phyto groups 23 USE p4zmort ! Mortality terms for phytoplankton 24 USE p4zmicro ! Sources and sinks of microzooplankton 25 USE p4zmeso ! Sources and sinks of mesozooplankton 26 USE p4zrem ! Remineralisation of organic matter 27 USE prtctl_trc ! print control for debugging 28 USE iom ! I/O manager 29 29 30 30 IMPLICIT NONE … … 62 62 63 63 !!--------------------------------------------------------------------- 64 64 ! 65 IF( nn_timing == 1 ) CALL timing_start('p4z_bio') 66 ! 65 67 ! ASSIGN THE SHEAR RATE THAT IS USED FOR AGGREGATION 66 68 ! OF PHYTOPLANKTON AND DETRITUS … … 129 131 ENDIF 130 132 ! 133 IF( nn_timing == 1 ) CALL timing_stop('p4z_bio') 134 ! 131 135 END SUBROUTINE p4z_bio 132 136
Note: See TracChangeset
for help on using the changeset viewer.