Changeset 3628 for LMDZ6/branches/Ocean_skin/libf/phylmd/phyetat0.F90
- Timestamp:
- Feb 4, 2020, 10:36:32 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/phyetat0.F90
r3626 r3628 19 19 wake_s, wake_dens, zgam, zmax0, zmea, zpic, zsig, & 20 20 zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, u10m, v10m, treedrg, & 21 ale_wake, ale_bl_stat, ds_ns, dt_ns21 ale_wake, ale_bl_stat, s_int, ds_ns, dt_ns 22 22 !FC 23 23 USE geometry_mod, ONLY : longitude_deg, latitude_deg … … 541 541 542 542 if (activate_ocean_skin >= 1) then 543 found = phyetat0_get(1, ds_ns, "ds_ns", "delta salinity near surface", 0.) 543 if (activate_ocean_skin == 2 .and. type_ocean == 'couple') found & 544 = phyetat0_get(1, s_int, "S_int", "salinity at air-ocean interface", & 545 35.) 546 found = phyetat0_get(1, ds_ns, "dS_ns", "delta salinity near surface", 0.) 544 547 found = phyetat0_get(1, dt_ns, "dT_ns", "delta temperature near surface", & 545 548 0.) 546 549 547 550 where (pctsrf(:, is_oce) == 0.) 551 s_int = missing_val 548 552 ds_ns = missing_val 549 553 dt_ns = missing_val
Note: See TracChangeset
for help on using the changeset viewer.