Changeset 15473 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_dsst_CO2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

Timestamp:

2021-11-05T12:40:18+01:00 (3 years ago)

Author:

dford

Message:

Use cool skin SST in air-sea CO2 flux calculations.

File:

• branches/UKMO/dev_r5518_GO6_package_FOAMv14_dsst_CO2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_FOAMv14_dsst_CO2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

@@ -96 +96 @@
       USE lib_mpp,           ONLY: ctl_stop
       USE trcstat,           ONLY: trc_rst_dia_stat 
+      USE cool_skin,         ONLY: x_csdsst
 
    !!* Substitution
@@ -228 +229 @@
                !!                 chemistry package; note that depth is set to
                !!                 zero in this call
-               CALL mocsy_interface(ztmp(ji,jj),zsal(ji,jj),zalk(ji,jj),     &
+               CALL mocsy_interface(ztmp(ji,jj)+x_csdsst(ji,jj),zsal(ji,jj),zalk(ji,jj),     &
                                     zdic(ji,jj),zsil(ji,jj),zpho(ji,jj),     &
                                     f_pp0(ji,jj),0.0,                        &