Changeset 3151 for trunk/LMDZ.MARS/libf

Timestamp:

Dec 7, 2023, 6:02:10 PM (13 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/libf/phymars

Files:

• pbl_parameters.F (deleted)
• pbl_parameters_mod.F90 (added)
• physiq_mod.F (modified) (2 diffs)
• vdif_cd.F (deleted)

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.