Changeset 4370 for LMDZ6/trunk/libf/phylmd/phyetat0_mod.F90

Timestamp:

Dec 6, 2022, 4:23:49 PM (2 years ago)

Author:

lguez

Message:

Merge branch Ocean_skin back into trunk

Location:

LMDZ6/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/phyetat0_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phyetat0_mod.F90

@@ -27 +27 @@
        wake_s, wake_dens, awake_dens, cv_gen, zgam, zmax0, zmea, zpic, zsig, &
        zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, u10m, v10m, treedrg, &
-       ale_wake, ale_bl_stat, ds_ns, dt_ns, delta_sst, delta_sal, ratqs_inter
+       ale_wake, ale_bl_stat, ds_ns, dt_ns, delta_sst, delta_sal, dter, dser, &
+       dt_ds, ratqs_inter
 !FC
   USE geometry_mod,     ONLY: longitude_deg, latitude_deg
@@ -558 +559 @@
         found = phyetat0_get(delta_sst, "delta_SST", &
              "ocean-air interface temperature minus bulk SST", 0.)
+        found = phyetat0_get(dter, "dter", &
+             "ocean-air interface temperature minus subskin temperature", 0.)
+        found = phyetat0_get(dser, "dser", &
+             "ocean-air interface salinity minus subskin salinity", 0.)
+        found = phyetat0_get(dt_ds, "dt_ds", "(tks / tkt) * dTer", 0.)
+
+        where (pctsrf(:, is_oce) == 0.)
+           delta_sst = missing_val
+           delta_sal = missing_val
+           dter = missing_val
+           dser = missing_val
+           dt_ds = missing_val
+        end where
      end if