Changeset 12574 for NEMO/branches/UKMO/NEMO_4.0.1_GO8_package/src/SAS/sbcssm.F90

Timestamp:

2020-03-19T15:52:52+01:00 (4 years ago)

Author:

cguiavarch

Message:

Add Equation of State tag to salinity and temperature outputs and cell_methods attribute for mean_nemo (mean_nemo_wrapper not needed anymore)

File:

• NEMO/branches/UKMO/NEMO_4.0.1_GO8_package/src/SAS/sbcssm.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_GO8_package/src/SAS/sbcssm.F90

@@ -77 +77 @@
       REAL(wp) ::   ztinta     ! ratio applied to after  records when doing time interpolation
       REAL(wp) ::   ztintb     ! ratio applied to before records when doing time interpolation
-      !!----------------------------------------------------------------------
+      CHARACTER(len=4),SAVE :: stype
+      !!---------------------------------------------------------------------
+      IF( kt == nit000 ) THEN
+         IF( ln_TEOS10 ) THEN
+            stype='abs'   ! teos-10: using absolute salinity (sst is converted to potential temperature for the surface module)
+         ELSE IF( ln_EOS80  ) THEN
+            stype='pra'   ! eos-80: using practical salinity
+         ELSE IF ( ln_SEOS) THEN
+            stype='seos' ! seos using Simplified Equation of state (sst is converted to potential temperature for the surface module)
+         ENDIF
+      ENDIF
       !
       IF( ln_timing )   CALL timing_start( 'sbc_ssm')
@@ -144 +154 @@
          CALL iom_put( 'ssu_m', ssu_m )
          CALL iom_put( 'ssv_m', ssv_m )
-         CALL iom_put( 'sst_m', sst_m )
-         CALL iom_put( 'sss_m', sss_m )
+         CALL iom_put( 'sst_m_pot', sst_m )
+         CALL iom_put( 'sss_m_'//stype, sss_m )
          CALL iom_put( 'ssh_m', ssh_m )
          IF( .NOT.ln_linssh )   CALL iom_put( 'e3t_m', e3t_m )