New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10047 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90 – NEMO

Ignore:
Timestamp:
2018-08-08T17:12:35+02:00 (6 years ago)
Author:
jpalmier
Message:

merge with GO6_package_branch 9385-10020 ; plus debug OMIP_DIC

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90

    r10045 r10047  
    7575# endif 
    7676                                   zpds, zphd, zphn 
    77       USE dom_oce,           ONLY: e3t_0, e3t_n, gphit, mbathy, tmask 
     77      USE dom_oce,           ONLY: e3t_0, gphit, mbathy, tmask 
     78# if defined key_vvl 
     79      USE dom_oce,           ONLY: e3t_n 
     80# endif 
    7881      USE in_out_manager,    ONLY: lwp, numout 
    7982      USE lib_mpp,           ONLY: ctl_stop 
     
    8689                                   jpdic_lc, jpdin_lc, jpdtc_lc, jpfer_lc,   &  
    8790                                   jpoxy_lc, jppds_lc, jpphd_lc, jpphn_lc,   & 
    88                                    jpsil_lc, jpzme_lc, jpzmi_lc 
     91# if defined key_omip_dic 
     92                                   jpomd, jpomd_lc,                          & 
     93# endif 
     94                                   jpsil_lc, jpzme_lc, jpzmi_lc              
    8995      USE par_oce,           ONLY: jpi, jpim1, jpj, jpjm1, jpk 
    9096      USE par_trc,           ONLY: jptra 
     
    271277                             ! mort. loss 
    272278                         ((1.0 - xfdfrac1) * fdpds(ji,jj)) +                 & 
    273                              ! egestion of grazed Si 
     279                             ! egestion of grazed Si 
    274280                         ((1.0 - xfdfrac3) * fgmepds(ji,jj)) +               & 
    275281                             ! fast diss. and metab. losses 
Note: See TracChangeset for help on using the changeset viewer.