Changeset 7068 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90
- 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/trcsms_pisces.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 !! trcsms_pisces : Time loop of passive tracers sms … … 56 52 END SUBROUTINE trc_sms_pisces 57 53 58 #else59 !!======================================================================60 !! Dummy module : No PISCES bio-model61 !!======================================================================62 CONTAINS63 SUBROUTINE trc_sms_pisces( kt ) ! Empty routine64 INTEGER, INTENT( in ) :: kt65 WRITE(*,*) 'trc_sms_pisces: You should not have seen this print! error?', kt66 END SUBROUTINE trc_sms_pisces67 #endif68 69 54 !!====================================================================== 70 55 END MODULE trcsms_pisces
Note: See TracChangeset
for help on using the changeset viewer.