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 6719 – NEMO

Changeset 6719


Ignore:
Timestamp:
2016-06-17T20:17:30+02:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 17-06-1016 -- debug MEDUSA update, CFC and DMS

Location:
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r6715 r6719  
    8282      ! 
    8383      INTEGER  ::   ji, jj, jn, jl, jm, js 
    84       INTEGER  ::   iyear_beg, iyear_end,iyear_tmp 
     84      INTEGER  ::   iyear_beg, iyear_end, iyear_tmp 
    8585      INTEGER  ::   im1, im2, ierr 
    8686      REAL(wp) ::   ztap, zdtap         
     
    284284      !! ** Purpose : sets constants for CFC model 
    285285      !!--------------------------------------------------------------------- 
    286       INTEGER :: jl, jn 
     286      INTEGER :: jl, jn, iyear_beg, iyear_tmp 
    287287 
    288288      ! coefficient for CFC11  
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90

    r5841 r6719  
    8484      REAL(wp), INTENT( in )    :: xqsr                 !! surface irradiance        (W/m2) 
    8585      REAL(wp), INTENT( in )    :: xdin                 !! surface DIN               (mmol N/m3) 
    86       REAL(wp), INTENT( inout ) :: dms_andr             !! DMS surface concentration (mol/m3)  
    87       REAL(wp), INTENT( inout ) :: dms_simo             !! DMS surface concentration (mol/m3)  
    88       REAL(wp), INTENT( inout ) :: dms_aran             !! DMS surface concentration (mol/m3)  
    89       REAL(wp), INTENT( inout ) :: dms_hall             !! DMS surface concentration (mol/m3)  
     86      REAL(wp), INTENT( inout ) :: dms_andr             !! DMS surface concentration (nmol/L)  
     87      REAL(wp), INTENT( inout ) :: dms_simo             !! DMS surface concentration (nmol/L)  
     88      REAL(wp), INTENT( inout ) :: dms_aran             !! DMS surface concentration (nmol/L)  
     89      REAL(wp), INTENT( inout ) :: dms_hall             !! DMS surface concentration (nmol/L)  
    9090! 
    9191      REAL(wp) :: CHL, cmr, sw_dms 
     
    116116           dms_andr = 2.29 
    117117        endif 
    118         dms_andr = 1.0e-6 * dms_andr 
    119118! 
    120119! AXY (13/03/15): Simo & Dachs (2002) 
     
    126125           dms_simo = fq2 
    127126        endif 
    128         dms_simo = 1.0e-6 * dms_simo 
    129127!            
    130128! AXY (13/03/15): Aranami & Tsunogai (2004) 
     
    136134           dms_aran = fq2 
    137135        endif 
    138         dms_aran = 1.0e-6 * dms_aran 
    139136!         
    140137! AXY (13/03/15): Halloran et al. (2010) 
     
    150147           dms_hall = fq3 
    151148        endif 
    152         dms_hall = 1.0e-6 * dms_hall 
    153149 
    154150  END SUBROUTINE trc_dms_medusa 
Note: See TracChangeset for help on using the changeset viewer.