Changeset 3740 for LMDZ6/branches/Ocean_skin/libf/phylmd/phyredem.F90
- Timestamp:
- Jun 30, 2020, 9:14:36 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/phyredem.F90
r3628 r3740 27 27 ale_wake, ale_bl_stat, & 28 28 du_gwd_rando, du_gwd_front, u10m, v10m, & 29 treedrg, s_int, ds_ns, dt_ns 29 treedrg, s_int, ds_ns, dt_ns, sst_nff 30 30 USE geometry_mod, ONLY : longitude_deg, latitude_deg 31 31 USE iostart, ONLY: open_restartphy, close_restartphy, enddef_restartphy, put_field, put_var … … 342 342 343 343 if (activate_ocean_skin >= 1) then 344 if (activate_ocean_skin == 2 .and. type_ocean == 'couple') & 345 CALL put_field(pass, "S_int", "salinity at air-ocean interface", & 346 s_int) 344 if (activate_ocean_skin == 2 .and. type_ocean == 'couple') then 345 CALL put_field(pass, "S_int", "salinity at air-ocean interface", & 346 s_int) 347 CALL put_field(pass, "T1", "bulk SST of coupled ocean", sst_nff) 348 end if 349 347 350 CALL put_field(pass, "dS_ns", "delta salinity near surface", ds_ns) 348 351 CALL put_field(pass, "dT_ns", "delta temperature near surface", dT_ns)
Note: See TracChangeset
for help on using the changeset viewer.