Changeset 8132 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90

Timestamp:

2017-06-02T20:06:30+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- debug DMS update ; add surf Chl coupling for the atm component

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90 (modified) (3 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90

@@ -28 +28 @@
    USE trcsed_medusa
    USE sbc_oce, ONLY: lk_oasis
-   USE oce,     ONLY: CO2Flux_out_cpl, DMS_out_cpl  !! Coupling variable
+   USE oce,     ONLY: CO2Flux_out_cpl, DMS_out_cpl, chloro_out_cpl  !! Coupling variable
 
 
@@ -265 +265 @@
       !!---------------------------------------------------------------------
       !!
-      zb_co2_flx(:,:)  = 0.0  !! CHN
+      zb_co2_flx(:,:)  = 0.0  !! CO2 flx
       zn_co2_flx(:,:)  = 0.0
       za_co2_flx(:,:)  = 0.0
-      zb_dms_srf(:,:)  = 0.0  !! CHD
+      zb_dms_srf(:,:)  = 0.0  !! DMS srf
       zn_dms_srf(:,:)  = 0.0
       za_dms_srf(:,:)  = 0.0
+      zn_chl_srf(:,:)  = 0.0  !! Chl srf
       !!
       IF(lwp) WRITE(numout,*) ' trc_ini_medusa: DMS and CO2 flux (UKESM) initialised to zero'
@@ -277 +278 @@
          CO2Flux_out_cpl(:,:) =  zn_co2_flx(:,:)   !! Coupling variable
          DMS_out_cpl(:,:)     =  zn_dms_srf(:,:)   !! Coupling variable
+         chloro_out_cpl(:,:)  =  zn_chl_srf(:,:)   !! Coupling variable
       END IF
       !!