- Timestamp:
- 2016-10-21T17:38:13+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90
r7041 r7068 6 6 !! History : 1.0 ! 2002 (O. Aumont) Original code 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) F90 8 !!----------------------------------------------------------------------9 #if defined key_pisces10 !!----------------------------------------------------------------------11 !! 'key_pisces' PISCES bio-model12 8 !!---------------------------------------------------------------------- 13 9 !! p4z_mort : Compute the mortality terms for phytoplankton … … 245 241 END SUBROUTINE p4z_mort_init 246 242 247 #else248 !!======================================================================249 !! Dummy module : No PISCES bio-model250 !!======================================================================251 CONTAINS252 SUBROUTINE p4z_mort ! Empty routine253 END SUBROUTINE p4z_mort254 #endif255 256 243 !!====================================================================== 257 244 END MODULE p4zmort
Note: See TracChangeset
for help on using the changeset viewer.