Changeset 1125 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/ocean_cpl_mod.F90
- Timestamp:
- Mar 17, 2009, 11:32:56 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/ocean_cpl_mod.F90
r1067 r1125 259 259 260 260 CALL cpl_receive_seaice_fields(knon, knindex, & 261 tsurf_cpl, alb_cpl )261 tsurf_cpl, alb_cpl, u0, v0) 262 262 263 263 alb1_new(1:knon) = alb_cpl(1:knon) … … 273 273 beta = 1.0 274 274 275 ! Suppose zero surface speed 276 u0(:)=0.0 277 v0(:)=0.0 278 u1_lay(:) = u1(:) - u0(:) 279 v1_lay(:) = v1(:) - v0(:) 275 DO i = 1, knon 276 u1_lay(i) = u1(i) - u0(i) 277 v1_lay(i) = v1(i) - v0(i) 278 END DO 280 279 281 280 CALL calcul_fluxs(knon, is_sic, dtime, &
Note: See TracChangeset
for help on using the changeset viewer.