Ignore:
Timestamp:
2017-09-01T16:55:53+02:00 (3 years ago)
Author:
jpalmier
Message:

JPALM — gmed ticket #346 : improve MEDUSA conservation — import BBL bug fix from NEMO ticket #1932 to GO6 branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_MEDUSA_conserv/NEMOGCM/NEMO/TOP_SRC/MEDUSA/phytoplankton.F90

    r8441 r8489  
    66   !! History : 
    77   !!   -   ! 2017-04 (M. Stringer)        Code taken from trcbio_medusa.F90 
     8   !!   -   ! 2017-08 (A. Yool)            Mean mixed layer chlorophyll 
    89   !!---------------------------------------------------------------------- 
    910#if defined key_medusa 
     
    4243                                   zchd, zchn, zdet, zdin, zdtc,         & 
    4344                                   zfer, zpds, zphd, zphn, zsil,         & 
    44                                    zzme, zzmi 
     45                                   zzme, zzmi, fchl_ml 
    4546      USE dom_oce,           ONLY: e3t_0, e3t_n, gdepw_0, gdepw_n, tmask 
    4647      USE in_out_manager,    ONLY: lwp, numout 
     
    373374               fprd_ml(ji,jj) = fprd_ml(ji,jj) + (fprd(ji,jj) * zphd(ji,jj) * & 
    374375                                                  fse3t(ji,jj,jk) * fq0) 
     376          !! AXY (16/08/17) 
     377          fchl_ml(ji,jj) = fchl_ml(ji,jj) + ((zchn(ji,jj) + zchd(ji,jj)) * & 
     378                                             (fse3t(ji,jj,jk) * fq0) / hmld(ji,jj)) 
    375379            ENDIF 
    376380         ENDDO 
Note: See TracChangeset for help on using the changeset viewer.