Ignore:
Timestamp:
2017-08-08T14:11:22+02:00 (3 years ago)
Author:
jpalmier
Message:

JPALM — 08-08-2017 — clean trcbio_medusa split only - running this time

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r8356 r8419  
    295295      USE trdmxl_trc    , ONLY:   trd_mxl_trc_alloc 
    296296#endif 
     297# if defined key_medusa 
     298      USE bio_medusa_mod, ONLY:   bio_medusa_alloc 
     299# endif 
     300 
    297301      ! 
    298302      INTEGER :: ierr 
     
    307311      ierr = ierr + trd_mxl_trc_alloc() 
    308312#endif 
     313#if defined key_medusa 
     314      ierr = ierr + bio_medusa_alloc() 
     315#endif 
    309316      ! 
    310317      IF( lk_mpp    )   CALL mpp_sum( ierr ) 
Note: See TracChangeset for help on using the changeset viewer.