Changeset 4370 for LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90
- Timestamp:
- Dec 6, 2022, 4:23:49 PM (22 months ago)
- Location:
- LMDZ6/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk
- Property svn:mergeinfo changed
/LMDZ6/branches/Ocean_skin merged: 4013,4020-4021,4024-4025,4368-4369
- Property svn:mergeinfo changed
-
LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90
r3906 r4370 20 20 z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, & 21 21 tsurf_new, dflux_s, dflux_l, lmt_bils, & 22 flux_u1, flux_v1, delta_sst, delta_sal, ds_ns, dt_ns, dter, dser, tkt, tks,&23 taur, sss)22 flux_u1, flux_v1, delta_sst, delta_sal, ds_ns, dt_ns, dter, dser, & 23 dt_ds, tkt, tks, taur, sss) 24 24 25 25 use albedo, only: alboc, alboc_cd … … 94 94 ! minus foundation temperature. (Can be negative.) In K. 95 95 96 REAL, intent(inout):: dter(:) ! (knon) 97 ! Temperature variation in the diffusive microlayer, that is 98 ! ocean-air interface temperature minus subskin temperature. In 99 ! K. 100 101 REAL, intent(inout):: dser(:) ! (knon) 102 ! Salinity variation in the diffusive microlayer, that is 103 ! ocean-air interface salinity minus subskin salinity. In ppt. 104 105 real, intent(inout):: dt_ds(:) ! (knon) 106 ! (tks / tkt) * dTer, in K 107 96 108 ! Output variables 97 109 !************************************************************************** … … 109 121 REAL, DIMENSION(klon), INTENT(OUT) :: flux_u1, flux_v1 110 122 111 REAL, intent(out):: dter(:) ! (knon)112 ! Temperature variation in the diffusive microlayer, that is113 ! ocean-air interface temperature minus subskin temperature. In114 ! K.115 116 REAL, intent(out):: dser(:) ! (knon)117 ! Salinity variation in the diffusive microlayer, that is118 ! ocean-air interface salinity minus subskin salinity. In ppt.119 120 123 REAL, intent(out):: tkt(:) ! (knon) 121 124 ! épaisseur (m) de la couche de diffusion thermique (microlayer) … … 192 195 qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, & 193 196 tsurf_new, dflux_s, dflux_l, sens_prec_liq, sss, delta_sal, rhoa, & 194 delta_sst )197 delta_sst, dTer, dSer, dt_ds) 195 198 196 199 CASE('slab') … … 331 334 delta_sst = t_int - tsurf_new(:knon) 332 335 delta_sal = s_int - sss(:knon) 333 if (activate_ocean_skin >= 2) tsurf_new(:knon) = t_int 336 337 if (activate_ocean_skin == 2) then 338 tsurf_new(:knon) = t_int 339 if (type_ocean == 'couple') dt_ds = (tks / tkt) * dter 340 end if 334 341 end if 335 342
Note: See TracChangeset
for help on using the changeset viewer.