Changeset 14235 for NEMO/trunk/src/ABL/sbcabl.F90
- Timestamp:
- 2020-12-21T14:22:03+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ABL/sbcabl.F90
r14072 r14235 363 363 & sf(jp_hpgi)%fnow(:,:,:), sf(jp_hpgj)%fnow(:,:,:), & ! <<= in 364 364 & zcd_du, zsen, zevp, & ! <=> in/out 365 & wndm, utau, vtau, taum& ! =>> out365 & zlat, wndm, utau, vtau, taum & ! =>> out 366 366 #if defined key_si3 367 367 & , tm_su, u_ice, v_ice, zssqi, zcd_dui & ! <<= in … … 377 377 CALL blk_oce_2( tq_abl(:,:,2,nt_n,jp_ta), sf(jp_qlw )%fnow(:,:,1), & 378 378 & sf(jp_prec)%fnow(:,:,1) , sf(jp_snow)%fnow(:,:,1), & 379 & tsk_m, zsen, zlat, zevp 379 & tsk_m, zsen, zlat, zevp ) 380 380 381 381 CALL abl_rst_opn( kt ) ! Open abl restart file (if necessary) … … 384 384 #if defined key_si3 385 385 ! Avoid a USE abl in icesbc module 386 sf(jp_tair)%fnow(:,:,1) = tq_abl(:,:,2,nt_n,jp_ta); sf(jp_humi)%fnow(:,:,1)= tq_abl(:,:,2,nt_n,jp_qa)386 theta_air_zt = tq_abl(:,:,2,nt_n,jp_ta) ; q_air_zt = tq_abl(:,:,2,nt_n,jp_qa) 387 387 #endif 388 388 END IF
Note: See TracChangeset
for help on using the changeset viewer.