- Timestamp:
- 2016-10-21T17:38:13+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90
r7041 r7068 7 7 !! - ! 2000-12 (E. Kestenare) clean up 8 8 !! 2.0 ! 2007-12 (C. Deltel, G. Madec) F90 + simplifications 9 !!----------------------------------------------------------------------10 #if defined key_pisces11 !!----------------------------------------------------------------------12 !! 'key_pisces' LOBSTER bio-model13 9 !!---------------------------------------------------------------------- 14 10 !! p2z_sed : Compute loss of organic matter in the sediments … … 159 155 END SUBROUTINE p2z_sed_init 160 156 161 #else162 !!======================================================================163 !! Dummy module : No PISCES bio-model164 !!======================================================================165 CONTAINS166 SUBROUTINE p2z_sed( kt ) ! Empty routine167 INTEGER, INTENT( in ) :: kt168 WRITE(*,*) 'p2z_sed: You should not have seen this print! error?', kt169 END SUBROUTINE p2z_sed170 #endif171 172 157 !!====================================================================== 173 158 END MODULE p2zsed
Note: See TracChangeset
for help on using the changeset viewer.