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 6806 for branches/NERC – NEMO

Changeset 6806 for branches/NERC


Ignore:
Timestamp:
2016-07-14T13:16:48+02:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 14-07-2016 -- Bonnes fetes aux Frenchies

-- convert CO2 flux to kg/m2/s

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r6744 r6806  
    305305      REAL(wp) ::    f_fco2w, f_BetaD, f_rhosw, f_opres, f_insitut, f_pco2atm, f_fco2atm 
    306306      REAL(wp) ::    f_schmidtco2, f_kwco2, f_K0, f_co2starair, f_dpco2, f_kwo2 
     307      !! jpalm 14-07-2016: convert CO2flux diag in kg/m2/s 
     308      REAL, PARAMETER :: weight_CO2_mol = 0.0440095 
     309      REAL, PARAMETER :: secs_in_day = 86400.0 
     310      REAL, PARAMETER :: CO2flux_conv = weight_CO2_mol / secs_in_day 
     311 
    307312      !! 
    308313      INTEGER  ::    iters 
     
    43564361                     ENDIF 
    43574362                     IF( med_diag%CO2FLUX%dgsave ) THEN 
     4363                         !! convert from  mol/m2/day to kg/m2/s 
     4364                         f_co2flux2d(:,:) = CO2flux_conv * f_co2flux2d(:,:)  
    43584365                         CALL lbc_lnk(f_co2flux2d(:,:),'T',1. ) 
    43594366                         CALL iom_put( "CO2FLUX"  , f_co2flux2d ) 
Note: See TracChangeset for help on using the changeset viewer.