Ignore:
Timestamp:
2017-09-14T17:42:14+02:00 (3 years ago)
Author:
marc
Message:

gmed:#346 Merging branches/NERC/dev_r5518_GO6_MEDUSA_conserv

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

    r8442 r8521  
    66   !! History : 
    77   !!   -   ! 2017-04 (M. Stringer)        Code taken from trcbio_medusa.F90 
     8   !!   -   ! 2017-08 (A. Yool)            Add slow-sinking detrius variables 
    89   !!---------------------------------------------------------------------- 
    910#if defined key_medusa 
     
    161162      fprn_ml(:,:) = 0.0        !! mixed layer PP diagnostics 
    162163      fprd_ml(:,:) = 0.0        !! mixed layer PP diagnostics 
     164      !! AXY (16/08/17) 
     165      fchl_ml(:,:) = 0.0   !! mixed layer chlorophyll diagnostics 
    163166      !!  
    164167      fslownflux(:,:) = 0.0  
    165168      fslowcflux(:,:) = 0.0  
     169      !! 
     170      !! AXY (08/08/17): zero slow detritus fluxes 
     171      fslowsink(:,:)  = 0.0 
     172# if defined key_roam 
     173      fslowsinkc(:,:) = 0.0 
     174# endif       
    166175      !! 
    167176      !! allocate and initiate 2D diag 
Note: See TracChangeset for help on using the changeset viewer.