Ignore:
Timestamp:
2017-04-13T18:05:31+02:00 (3 years ago)
Author:
marc
Message:

Moved initialisation from trcbio_medusa.F90 into bio_medusa_init.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r7709 r7912  
    296296      USE trdmxl_trc    , ONLY:   trd_mxl_trc_alloc 
    297297#endif 
     298# if defined key_medusa 
     299      USE bio_medusa_mod, ONLY:   bio_medusa_alloc 
     300# endif 
     301 
    298302      ! 
    299303      INTEGER :: ierr 
     
    308312      ierr = ierr + trd_mxl_trc_alloc() 
    309313#endif 
     314#if defined key_medusa 
     315      ierr = ierr + bio_medusa_alloc() 
     316#endif 
    310317      ! 
    311318      IF( lk_mpp    )   CALL mpp_sum( ierr ) 
Note: See TracChangeset for help on using the changeset viewer.