Changeset 14072 for NEMO/trunk/src/ABL/sbcabl.F90
- Timestamp:
- 2020-12-04T08:48:38+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ABL/sbcabl.F90
r13214 r14072 22 22 USE sbc_oce ! Surface boundary condition: ocean fields 23 23 USE sbcblk ! Surface boundary condition: bulk formulae 24 USE sbc blk_phy ! Surface boundary condition: bulk formulae24 USE sbc_phy ! Catalog of functions for physical/meteorological parameters in the marine boundary layer 25 25 USE dom_oce, ONLY : tmask 26 26 ! … … 175 175 IF(nn_amxl==0) WRITE(numout,*) 'Deardorff 80 length-scale ' 176 176 IF(nn_amxl==1) WRITE(numout,*) 'Modified Deardorff 80 length-scale ' 177 IF(nn_amxl==2) WRITE(numout,*) 'Bougeault and Lacarrere length-scale ' 178 IF(nn_amxl==3) WRITE(numout,*) 'Rodier et al. length-scale ' 177 IF(nn_amxl==2) WRITE(numout,*) 'Bougeault and Lacarrere length-scale ' 178 IF(nn_amxl==3) WRITE(numout,*) 'Rodier et al. length-scale ' 179 179 WRITE(numout,*) ' Minimum value of atmospheric TKE = ',tke_min,' m^2 s^-2' 180 180 WRITE(numout,*) ' Minimum value of atmospheric mixing length = ',mxl_min,' m' … … 320 320 INTEGER , INTENT(in) :: kt ! ocean time step 321 321 !! 322 REAL(wp), DIMENSION(jpi,jpj) :: zssq, zcd_du, zsen, z evp322 REAL(wp), DIMENSION(jpi,jpj) :: zssq, zcd_du, zsen, zlat, zevp 323 323 #if defined key_si3 324 324 REAL(wp), DIMENSION(jpi,jpj) :: zssqi, zcd_dui, zseni, zevpi … … 344 344 & sf(jp_uoatm)%fnow(:,:,1), sf(jp_voatm)%fnow(:,:,1), & ! <<= in 345 345 & sf(jp_qsr )%fnow(:,:,1) , sf(jp_qlw )%fnow(:,:,1) , & ! <<= in 346 & tsk_m, zssq, zcd_du, zsen, z evp) ! =>> out346 & tsk_m, zssq, zcd_du, zsen, zlat, zevp ) ! =>> out 347 347 348 348 #if defined key_si3 … … 356 356 !! 3 - Advance ABL variables from now (n) to after (n+1) 357 357 !!------------------------------------------------------------------------------------------- 358 358 359 359 CALL abl_stp( kt, tsk_m, ssu_m, ssv_m, zssq, & ! <<= in 360 360 & sf(jp_wndi)%fnow(:,:,:), sf(jp_wndj)%fnow(:,:,:), & ! <<= in … … 375 375 !!------------------------------------------------------------------------------------------- 376 376 377 CALL blk_oce_2( tq_abl(:,:,2,nt_n,jp_ta), & 378 & sf(jp_qsr )%fnow(:,:,1) , sf(jp_qlw )%fnow(:,:,1), & 377 CALL blk_oce_2( tq_abl(:,:,2,nt_n,jp_ta), sf(jp_qlw )%fnow(:,:,1), & 379 378 & sf(jp_prec)%fnow(:,:,1) , sf(jp_snow)%fnow(:,:,1), & 380 & tsk_m, zsen, z evp )381 379 & tsk_m, zsen, zlat, zevp ) 380 382 381 CALL abl_rst_opn( kt ) ! Open abl restart file (if necessary) 383 382 IF( lrst_abl ) CALL abl_rst_write( kt ) ! -- abl restart file
Note: See TracChangeset
for help on using the changeset viewer.