Changeset 189 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2004-12-22T16:31:28+01:00 (20 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/trc_oce.F90
r187 r189 2 2 !!====================================================================== 3 3 !! *** MODULE trc_oce *** 4 !! Dummy module5 4 !! Ocean passive tracer : share SMS/Ocean variables 6 5 !!====================================================================== … … 8 7 !! 9.0 ! 04-03 (C. Ethe) F90: Free form and module 9 8 !!---------------------------------------------------------------------- 10 9 #if defined key_passivetrc && defined key_trc_pisces 10 !!---------------------------------------------------------------------- 11 !! OPA 9.0 , LODYC-IPSL (2003) 12 !!---------------------------------------------------------------------- 13 USE sms , ONLY : & 14 etot3 => etot3 !!: Biological fluxes for light 15 !! Shared module variables 16 LOGICAL, PUBLIC, PARAMETER :: lk_qsr_sms = .TRUE. 17 #else 11 18 !!---------------------------------------------------------------------- 12 19 !! Default option No Biological fluxes for light … … 16 23 REAL(wp), PUBLIC , DIMENSION (jpi,jpj,jpk) :: & 17 24 etot3 25 #endif 18 26 19 27 END MODULE trc_oce
Note: See TracChangeset
for help on using the changeset viewer.