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 10196 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90 – NEMO

Ignore:
Timestamp:
2018-10-16T12:15:14+02:00 (5 years ago)
Author:
jpalmier
Message:

add DMS flux --

File:
1 edited

Legend:

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

    r10047 r10196  
    99   !!   -   ! 2017-08 (A. Yool)            Slow detritus, ML-avg chl variables 
    1010   !!   -   ! 2018-08 (A. Yool)            add OMIP preindustrial DIC 
     11   !!   -   ! 2018-10 (A. Yool)            Add air-sea DMS flux 
    1112   !!---------------------------------------------------------------------- 
    1213#if defined key_medusa 
     
    184185 
    185186   !! Add DMS in MEDUSA for UKESM1 model 
    186    REAL(wp)                              :: dms_surf,dms_andm 
     187   REAL(wp)                              :: dms_surf,dms_andm,dms_flux 
    187188   !! AXY (13/03/15): add in other DMS calculations 
    188189   REAL(wp)                              :: dms_andr,dms_simo,dms_aran,dms_hall 
     
    240241   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_andr2d, dms_simo2d, dms_aran2d 
    241242   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_hall2d, dms_andm2d, dms_surf2d 
     243   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_flux2d 
    242244   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: iben_n2d, iben_fe2d, iben_c2d 
    243245   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: iben_si2d, iben_ca2d, oben_n2d 
Note: See TracChangeset for help on using the changeset viewer.