- 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/p4zsms.F90
r7041 r7068 6 6 !! History : 1.0 ! 2004-03 (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 !! p4zsms : Time loop of passive tracers sms … … 546 542 END SUBROUTINE p4z_chk_mass 547 543 548 #else549 !!======================================================================550 !! Dummy module : No PISCES bio-model551 !!======================================================================552 CONTAINS553 SUBROUTINE p4z_sms( kt ) ! Empty routine554 INTEGER, INTENT( in ) :: kt555 WRITE(*,*) 'p4z_sms: You should not have seen this print! error?', kt556 END SUBROUTINE p4z_sms557 #endif558 559 544 !!====================================================================== 560 545 END MODULE p4zsms
Note: See TracChangeset
for help on using the changeset viewer.