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

branches/UKMO/dev_r5518_GO6_package_FOAMv14_dsst_CO2/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -27 +27 @@
    USE sbc_oce         ! for icesheet freshwater input variables
    USE timing
+   USE diurnal_bulk    ! diurnal SST
 
    IMPLICIT NONE
@@ -136 +137 @@
       !!----------------------------------------------------------------------
                      IF(nn_timing == 2)  CALL timing_start('iom_rstput')
+                     IF( ln_diurnal ) CALL iom_rstput( kt, nitrst, numrow, 'Dsst', x_dsst    ) 
                      CALL iom_rstput( kt, nitrst, numrow, 'rdt'    , rdt       )   ! dynamics time step
                      CALL iom_rstput( kt, nitrst, numrow, 'rdttra1', rdttra(1) )   ! surface tracer time step
@@ -260 +262 @@
          neuler = 0
       ENDIF
+      IF( ln_diurnal ) THEN
+         IF( iom_varid( numror, 'Dsst', ldstop = .FALSE. ) > 0 ) THEN
+            CALL iom_get( numror, jpdom_autoglo, 'Dsst' , x_dsst  )
+         ELSE
+            x_dsst(:,:) = 0.0
+         ENDIF
+      ENDIF
       !
       CALL iom_get( numror, jpdom_autoglo, 'un'     , un      )   ! now    fields