Changeset 14072 for NEMO/trunk/src/OCE/SBC/sbc_oce.F90

Timestamp:

2020-12-04T08:48:38+01:00 (3 years ago)

Author:

laurent

Message:

Merging branch "2020/dev_r13648_ASINTER-04_laurent_bulk_ice", ticket #2369

File:

• NEMO/trunk/src/OCE/SBC/sbc_oce.F90 (modified) (4 diffs)

NEMO/trunk/src/OCE/SBC/sbc_oce.F90

@@ -73 +73 @@
    LOGICAL , PUBLIC ::   ln_charn       !: =T Chranock coefficient from wave model
    LOGICAL , PUBLIC ::   ln_taw         !: =T wind stress corrected by wave intake
-   LOGICAL , PUBLIC ::   ln_phioc       !: =T TKE surface BC from wave model 
+   LOGICAL , PUBLIC ::   ln_phioc       !: =T TKE surface BC from wave model
    LOGICAL , PUBLIC ::   ln_bern_srfc   !: Bernoulli head, waves' inuced pressure
    LOGICAL , PUBLIC ::   ln_breivikFV_2016 !: Breivik 2016 profile
@@ -153 +153 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   frq_m     !: mean (nn_fsbc time-step) fraction of solar net radiation absorbed in the 1st T level [-]
 
+   !!----------------------------------------------------------------------
+   !!                     Surface atmospheric fields
+   !!----------------------------------------------------------------------
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: q_air_zt       !: specific humidity of air at z=zt [kg/kg]ww
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: theta_air_zt   !: potential temperature of air at z=zt [K]
+
+
    !! * Substitutions
 #  include "do_loop_substitute.h90"
@@ -166 +173 @@
       !!                  ***  FUNCTION sbc_oce_alloc  ***
       !!---------------------------------------------------------------------
-      INTEGER :: ierr(5)
+      INTEGER :: ierr(6)
       !!---------------------------------------------------------------------
       ierr(:) = 0
@@ -188 +195 @@
       !
       ALLOCATE( e3t_m(jpi,jpj) , STAT=ierr(5) )
+      !
+      ALLOCATE( q_air_zt(jpi,jpj) , theta_air_zt(jpi,jpj) , STAT=ierr(6) ) !#LB
       !
       sbc_oce_alloc = MAXVAL( ierr )