Changeset 2254 for LMDZ5/trunk/libf/phylmd/surf_landice_mod.F90
- Timestamp:
- Apr 3, 2015, 12:16:36 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/surf_landice_mod.F90
r2243 r2254 179 179 tsoil0(i,:)=tsoil(i,:) 180 180 END DO 181 182 183 181 ! Martin 182 PRINT*, 'on appelle surf_sisvat' 183 ! Martin 184 184 CALL surf_sisvat(knon, rlon, rlat, knindex, itime, dtime, debut, lafin, & 185 185 rmu0, swdown, lwdown, pexner, ps, p1lay, & … … 241 241 242 242 CALL calcul_fluxs(knon, is_lic, dtime, & 243 tsurf, p1lay, cal, beta, cdragh, ps, &243 tsurf, p1lay, cal, beta, cdragh, cdragh, ps, & 244 244 precip_rain, precip_snow, snow, qsurf, & 245 245 radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, & 246 AcoefH, AcoefQ, BcoefH, BcoefQ, &246 1.,AcoefH, AcoefQ, BcoefH, BcoefQ, & 247 247 tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l) 248 248
Note: See TracChangeset
for help on using the changeset viewer.