Changeset 5266 for branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90
- Timestamp:
- 2015-05-13T10:37:43+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90
r4147 r5266 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) F90 8 8 !!---------------------------------------------------------------------- 9 #if defined key_pisces || defined key_pisces_reduced 9 #if defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota 10 10 !!---------------------------------------------------------------------- 11 11 !! 'key_pisces' PISCES bio-model … … 14 14 !!---------------------------------------------------------------------- 15 15 USE par_pisces 16 USE p5zsms 16 17 USE p4zsms 17 18 USE p2zsms … … 48 49 !!--------------------------------------------------------------------- 49 50 ! 50 IF( lk_p4z ) THEN ; CALL p4z_sms( kt ) ! PISCES 51 ELSE ; CALL p2z_sms( kt ) ! LOBSTER 52 ENDIF 51 SELECT CASE ( nn_p4z ) 52 53 CASE(1) ; CALL p2z_sms( kt ) ! LOBSTER 54 CASE(2) ; CALL p4z_sms( kt ) ! PISCES 55 CASE(3) ; CALL p5z_sms( kt ) ! PISCES with variable stoichiometry 56 57 END SELECT 53 58 54 59 !
Note: See TracChangeset
for help on using the changeset viewer.