Changeset 12021 for NEMO/branches/2019/dev_ASINTER-01-05_merged/src/ABL

Timestamp:

2019-12-02T10:02:07+01:00 (4 years 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:

• NEMO/branches/2019/dev_ASINTER-01-05_merged/src/ABL/sbcabl.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_ASINTER-01-05_merged/src/ABL/sbcabl.F90

@@ -22 +22 @@
    USE sbc_oce        ! Surface boundary condition: ocean fields
    USE sbcblk         ! Surface boundary condition: bulk formulae
+   USE sbcblk_phy     ! Surface boundary condition: bulk formulae
    USE dom_oce, ONLY  : tmask
    !
@@ -294 +295 @@
          tke_abl(:,:,:,nt_a     ) = 0._wp
       ENDIF
+
+      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)
      
    END SUBROUTINE sbc_abl_init