Changeset 5050 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Jul 15, 2024, 11:20:29 AM (2 months ago)

Author:

evignon

Message:

renommage des tendances liees a la sublimation et sedimentation de neige soufflee

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• phys_local_var_mod.F90 (modified) (3 diffs)
• physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

@@ -90 +90 @@
       REAL, SAVE, ALLOCATABLE :: d_t_vdf_x(:,:), d_q_vdf_x(:,:)
       !$OMP THREADPRIVATE( d_t_vdf_x, d_q_vdf_x)
-      REAL, SAVE, ALLOCATABLE :: d_t_bs(:,:), d_q_bs(:,:), d_qbs_bs(:,:)
-      !$OMP THREADPRIVATE( d_t_bs,d_q_bs, d_qbs_bs)
+      REAL, SAVE, ALLOCATABLE :: d_t_bsss(:,:), d_q_bsss(:,:), d_qbs_bsss(:,:)
+      !$OMP THREADPRIVATE( d_t_bsss,d_q_bsss, d_qbs_bsss)
 !>nrlmd+jyg
       REAL, SAVE, ALLOCATABLE :: d_t_oro(:,:)
@@ -850 +850 @@
       ALLOCATE(d_t_vdf(klon,klev),d_q_vdf(klon,klev),d_t_diss(klon,klev))
       ALLOCATE (d_qbs_vdf(klon,klev))
-      ALLOCATE(d_t_bs(klon,klev),d_q_bs(klon,klev),d_qbs_bs(klon,klev))
+      ALLOCATE(d_t_bsss(klon,klev),d_q_bsss(klon,klev),d_qbs_bsss(klon,klev))
       ALLOCATE(d_t_vdf_w(klon,klev),d_q_vdf_w(klon,klev))
       ALLOCATE(d_t_vdf_x(klon,klev),d_q_vdf_x(klon,klev))
@@ -1288 +1288 @@
       DEALLOCATE(d_t_vdf,d_q_vdf,d_t_diss)
       DEALLOCATE(d_qbs_vdf)
-      DEALLOCATE(d_t_bs,d_q_bs,d_qbs_bs)
+      DEALLOCATE(d_t_bsss,d_q_bsss,d_qbs_bsss)
 #ifdef ISO
       deallocate(xt_seri,xtl_seri,xts_seri,xtbs_seri)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -224 +224 @@
        d_ts, &
        !
-       d_t_bs,d_q_bs,d_qbs_bs, &
+       d_t_bsss,d_q_bsss,d_qbs_bsss, &
        !
 !       d_t_oli,d_u_oli,d_v_oli, &
@@ -3525 +3525 @@
     ! Blowing snow sublimation and sedimentation
 
-    d_t_bs(:,:)=0.
-    d_q_bs(:,:)=0.
-    d_qbs_bs(:,:)=0.
+    d_t_bsss(:,:)=0.
+    d_q_bsss(:,:)=0.
+    d_qbs_bsss(:,:)=0.
     bsfl(:,:)=0.
     bs_fall(:)=0.
@@ -3533 +3533 @@
 
      CALL call_blowing_snow_sublim_sedim(klon,klev,phys_tstep,t_seri,q_seri,qbs_seri,pplay,paprs, &
-                                        d_t_bs,d_q_bs,d_qbs_bs,bsfl,bs_fall)
+                                        d_t_bsss,d_q_bsss,d_qbs_bsss,bsfl,bs_fall)
 
      CALL add_phys_tend &
-               (du0,dv0,d_t_bs,d_q_bs,dql0,dqi0,d_qbs_bs,paprs,&
+               (du0,dv0,d_t_bsss,d_q_bsss,dql0,dqi0,d_qbs_bsss,paprs,&
                'bs',abortphy,flag_inhib_tend,itap,0  &
 #ifdef ISO