Changeset 15473 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_dsst_CO2/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.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/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_FOAMv14_dsst_CO2/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -57 +57 @@
    USE timing          ! preformance summary
    USE wrk_nemo        ! working array
+   USE diurnal_bulk    ! diurnal warm layer
+   USE cool_skin       ! Cool skin
 
    IMPLICIT NONE
@@ -144 +146 @@
          CALL dia_wri_state( 'output.init', kt )
          ninist = 0
+      ENDIF
+      
+      IF(ln_diurnal) THEN
+         CALL iom_put( "sst_wl"   , x_dsst               )    ! warm layer
+         CALL iom_put( "sst_cs"   , x_csdsst             )    ! cool skin
+         !CALL iom_put( "temp_3m"  , tsn(:,:,4,jp_tem)    )    ! temperature at ~3m
       ENDIF