- 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/P2Z/p2zbio.F90
r7041 r7068 8 8 !! - ! 2001-03 (M. Levy) LNO3 + dia2d 9 9 !! 2.0 ! 2007-12 (C. Deltel, G. Madec) F90 10 !!----------------------------------------------------------------------11 #if defined key_pisces12 !!----------------------------------------------------------------------13 !! 'key_pisces' LOBSTER bio-model14 10 !!---------------------------------------------------------------------- 15 11 !! p2z_bio : … … 506 502 END SUBROUTINE p2z_bio_init 507 503 508 #else509 !!======================================================================510 !! Dummy module : No PISCES bio-model511 !!======================================================================512 CONTAINS513 SUBROUTINE p2z_bio( kt ) ! Empty routine514 INTEGER, INTENT( in ) :: kt515 WRITE(*,*) 'p2z_bio: You should not have seen this print! error?', kt516 END SUBROUTINE p2z_bio517 #endif518 519 504 !!====================================================================== 520 505 END MODULE p2zbio
Note: See TracChangeset
for help on using the changeset viewer.