Changeset 3890

Timestamp:

May 5, 2021, 5:15:06 PM (3 years ago)

Author:

jyg

Message:

update to commit 3888

Location:

LMDZ6/trunk/libf/phylmd

Files:

• dyn1d/old_lmdz1d.F90 (modified) (1 diff)
• phyetat0.F90 (modified) (2 diffs)
• phyredem.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90

@@ -656 +656 @@
       qsol = qsolinp
       qsurf = fq_sat(tsurf,psurf/100.)
+      beta_surf = 1.
       beta_aridity(:,:) = beta_surf
       day1= day_ini

LMDZ6/trunk/libf/phylmd/phyetat0.F90

@@ -16 +16 @@
        rnebcon, rugoro, sig1, snow_fall, solaire_etat0, sollw, sollwdown, &
        solsw, solswfdiff, t_ancien, u_ancien, v_ancien, w01, wake_cstar, wake_deltaq, &
-       wake_deltat, wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, &
+       wake_deltat, wake_delta_pbl_TKE, delta_tsurf, beta_aridity, wake_fip, wake_pe, &
        wake_s, wake_dens, zgam, zmax0, zmea, zpic, zsig, &
        zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, u10m, v10m, treedrg, &
@@ -396 +396 @@
   IF (iflag_pbl>1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1 ) then
     found=phyetat0_srf(klev+1,wake_delta_pbl_tke,"DELTATKE","Del TKE wk/env",0.)
-    found=phyetat0_srf(1,delta_tsurf,"DELTA_TSURF","Delta Ts wk/env ",0.)
+!!    found=phyetat0_srf(1,delta_tsurf,"DELTA_TSURF","Delta Ts wk/env ",0.)
+    found=phyetat0_srf(1,delta_tsurf,"DELTATS","Delta Ts wk/env ",0.)
+!!    found=phyetat0_srf(1,beta_aridity,"BETA_S","Aridity factor ",1.)
+    found=phyetat0_srf(1,beta_aridity,"BETAS","Aridity factor ",1.)
   ENDIF   !(iflag_pbl>1 .AND. iflag_wake>=1 .AND. iflag_pbl_split >=1 )
 

LMDZ6/trunk/libf/phylmd/phyredem.F90

@@ -161 +161 @@
     CALL put_field_srf1(pass,"TS","Temperature",ftsol(:,:))
 
-    CALL put_field_srf1(pass,"DELTA_TS","w-x surface temperature difference", delta_tsurf(:,:))
-
-    CALL put_field_srf1(pass,"BETA_S","Aridity factor", beta_aridity(:,:))
+!!    CALL put_field_srf1(pass,"DELTA_TS","w-x surface temperature difference", delta_tsurf(:,:))
+    CALL put_field_srf1(pass,"DELTATS","w-x surface temperature difference", delta_tsurf(:,:))
+
+!    CALL put_field_srf1(pass,"BETA_S","Aridity factor", beta_aridity(:,:))
+    CALL put_field_srf1(pass,"BETAS","Aridity factor", beta_aridity(:,:))
 !    End surface variables