Changeset 3151

Timestamp:

Dec 7, 2023, 6:02:10 PM (14 months ago)

Author:

llange

Message:

Mars PCM
Switching pbl_parameter.F into a module. Cleaning of unused variables/sections in it.
Correction in the computations of ustar, thetastar as it was done in a different way compare to vdif_cd. It is now self-consistent.
Maybe pbl_surface in the MCD needs also to be changed ? In discussion with Ehouarn and Aymeric.
LL

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/phymars/pbl_parameters.F (deleted)
• libf/phymars/pbl_parameters_mod.F90 (added)
• libf/phymars/physiq_mod.F (modified) (2 diffs)
• libf/phymars/vdif_cd.F (deleted)

trunk/LMDZ.MARS/changelog.txt

@@ -4386 +4386 @@
 Some cleaning have also been made (remove commented lines, outputs, etc.)
 VDIFC: minor fix: zcdv_true zcdh_true are out and not in variables.
+
+== 07/12/2023 == LL
+
+Switching pbl_parameter.F into a module. Cleaning of unused variables/sections in it.
+Correction in the computations of ustar, thetastar as it was done in a different way compare to vdif_cd. It is now self-consistent.
+Maybe pbl_surface in the MCD needs also to be changed ? In discussion with Ehouarn and Aymeric.

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -123 +123 @@
      &                        ini_comslope_h
       use write_output_mod, only: write_output
+      use pbl_parameters_mod, only: pbl_parameters
       IMPLICIT NONE
 c=======================================================================
@@ -2563 +2564 @@
            call pbl_parameters(ngrid,nlayer,ps,zplay,z0,
      & g,zzlay,zzlev,zu,zv,wstar,hfmax_th,zmax_th,tsurf(:,iflat),
-     & zh,z_out,n_out,T_out,u_out,ustar,tstar,L_mo,vhf,vvv)
+     & zh,z_out,n_out,T_out,u_out,ustar,tstar,vhf,vvv)
                    ! pourquoi ustar recalcule ici? fait dans vdifc.