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

branches/UKMO/dev_r5518_GO6_package_FOAMv14_dsst_CO2/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -253 +253 @@
       ENDIF
 
+      ! Cool skin
+      IF ( ln_diurnal ) THEN 
+         IF ( ln_blk_core ) THEN
+            CALL diurnal_sst_coolskin_step(qns(:,:)+(rn_abs*qsr(:,:)), taum, rhop(:,:,1), rdt)
+         ELSE
+            CALL diurnal_sst_coolskin_step(qns, taum, rhop(:,:,1), rdt)
+         ENDIF
+      ENDIF
+
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       ! diagnostics and outputs             (ua, va, tsa used as workspace)
@@ -266 +275 @@
       !
       IF( ln_crs     )      CALL crs_fld( kstp )         ! ocean model: online field coarsening & output
+
+      !Diurnal warm layer model       
+      IF ( ln_diurnal ) THEN
+         IF ( ln_blk_core ) THEN
+            IF( kstp == nit000 )THEN 
+               CALL diurnal_sst_takaya_step( & 
+                  &    qsr(:,:)-(rn_abs*qsr(:,:)), qns(:,:)+(rn_abs*qsr(:,:)), &
+                  &    taum, rhop(:,:,1), &
+                  &    rdt, ld_calcfrac = .TRUE.) 
+            ELSE 
+               CALL diurnal_sst_takaya_step( & 
+                  &    qsr(:,:)-(rn_abs*qsr(:,:)), qns(:,:)+(rn_abs*qsr(:,:)), &
+                  &    taum, rhop(:,:,1), rdt ) 
+            ENDIF
+         ELSE
+            IF( kstp == nit000 )THEN 
+               CALL diurnal_sst_takaya_step( & 
+                  &    qsr, qns, taum, rhop(:,:,1), &
+                  &    rdt, ld_calcfrac = .TRUE.) 
+            ELSE 
+               CALL diurnal_sst_takaya_step( & 
+                  &    qsr, qns, taum, rhop(:,:,1), rdt ) 
+            ENDIF
+         ENDIF
+      ENDIF
 
 #if defined key_top