Ignore:
Timestamp:
2019-12-02T10:02:07+01:00 (17 months ago)
Author:
gsamson
Message:

dev_ASINTER-01-05_merged: update sbcblk, bugfix with latent heat sign and update orca2_ice_abl namelist_cfg (tickets #2159 and #2131)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_ASINTER-01-05_merged/src/ABL/sbcabl.F90

    r12015 r12021  
    2222   USE sbc_oce        ! Surface boundary condition: ocean fields 
    2323   USE sbcblk         ! Surface boundary condition: bulk formulae 
     24   USE sbcblk_phy     ! Surface boundary condition: bulk formulae 
    2425   USE dom_oce, ONLY  : tmask 
    2526   ! 
     
    294295         tke_abl(:,:,:,nt_a     ) = 0._wp 
    295296      ENDIF 
     297 
     298      rhoa(:,:) = rho_air( tq_abl(:,:,2,nt_n,jp_ta), tq_abl(:,:,2,nt_n,jp_qa), sf(jp_slp)%fnow(:,:,1) ) !!GS: rhoa must be (re)computed here here to avoid division by zero in blk_ice_1 (TBI) 
    296299      
    297300   END SUBROUTINE sbc_abl_init 
Note: See TracChangeset for help on using the changeset viewer.