Changeset 4020 for LMDZ6/branches/Ocean_skin/libf/phylmd/ocean_cpl_mod.F90
- Timestamp:
- Nov 26, 2021, 8:27:26 AM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/ocean_cpl_mod.F90
r3767 r4020 56 56 qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, & 57 57 tsurf_new, dflux_s, dflux_l, sens_prec_liq, sss, delta_sal, rhoa, & 58 delta_sst )58 delta_sst, dTer, dSer, dt_ds) 59 59 60 60 ! … … 103 103 ! only if activate_ocean_skin >= 1. 104 104 105 REAL, intent(in):: dter(:) ! (knon) 106 ! Temperature variation in the diffusive microlayer, that is 107 ! ocean-air interface temperature minus subskin temperature. In 108 ! K. 109 110 REAL, intent(in):: dser(:) ! (knon) 111 ! Salinity variation in the diffusive microlayer, that is 112 ! ocean-air interface salinity minus subskin salinity. In ppt. 113 114 real, intent(in):: dt_ds(:) ! (knon) 115 ! (tks / tkt) * dTer, in K 116 105 117 ! In/Output arguments 106 118 !**************************************************************************************** … … 219 231 fluxsens, precip_rain, precip_snow, evap, tsurf_new, fder_new, alb1, & 220 232 flux_u1, flux_v1, windsp, sens_prec_liq, sens_prec_sol, lat_prec_liq, & 221 lat_prec_sol, delta_sst, delta_sal )233 lat_prec_sol, delta_sst, delta_sal, dTer, dSer, dt_ds) 222 234 223 235 END SUBROUTINE ocean_cpl_noice
Note: See TracChangeset
for help on using the changeset viewer.