Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/yamada4.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/yamada4.F90 (modified) (9 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/yamada4.F90

@@ -12 +12 @@
   IMPLICIT NONE
   ! ************************************************************************************************
-  !
+
   ! yamada4: subroutine qui calcule le transfert turbulent avec une fermeture d'ordre 2 ou 2.5
-  ! 
+
   ! Reference: Simulation of nocturnal drainage flows by a q2l Turbulence Closure Model
   !            Yamada T.
   !            J. Atmos. Sci, 40, 91-106, 1983
-  !
+
   !************************************************************************************************
   ! Input :
@@ -39 +39 @@
   ! ustar: vitesse de friction calcul??e par une formule diagnostique 
   ! iflag_pbl: flag pour choisir des options du sch??ma de turbulence
-  !
+
   !             iflag_pbl doit valoir entre 6 et 9
   !             l=6, on prend  systematiquement une longueur d'equilibre
@@ -49 +49 @@
   !             iflag_pbl=10/11 :  New scheme M2 and N2 explicit and dissiptation exact
   !             iflag_pbl=12 = 11 with vertical diffusion off q2
-  !
+
   !             2013/04/01 (FH hourdin@lmd.jussieu.fr)
   !             Correction for very stable PBLs (iflag_pbl=10 and 11)
@@ -60 +60 @@
   !             2020/10/01 (EV)
   !               On ajoute la dissipation de la TKE en diagnostique de sortie
-  !                  
+
   ! Inpout/Output :
   !==============
@@ -75 +75 @@
   ! kn : diffusivite turbulente des scalaires (au bas de chaque couche)
   ! (en sortie : la valeur a la fin du pas de temps)
-  !
+
   !.......................................................................
 
@@ -544 +544 @@
   ! longueur de m??lange minimale
   !====================================================================
-  !
+
   ! Reference: Local versus Nonlocal boundary-layer diffusion in a global climate model
   !            Holtslag A.A.M. and Boville B.A.
@@ -631 +631 @@
  ! Estimations de w'2 et T'2 d'apres Abdela et McFarlane
  !======================================================
- !
+
  ! Reference: A New Second-Order Turbulence Closure Scheme for the Planetary Boundary Layer
  !            Abdella K and McFarlane N
@@ -718 +718 @@
 !             avec un schema implicite en temps avec 
 !             inversion d'un syst??me tridiagonal
-! 
+
 !     Reference: Description of the interface with the surface and 
 !                the computation of the turbulet diffusion in LMDZ
 !                Technical note on LMDZ
 !                Dufresne, J-L, Ghattas, J. and Grandpeix, J-Y
-!
+
 !============================================================================
 ! Declarations
@@ -892 +892 @@
 ! L'id??e est la suivante: plus il y a de relief, plus il y a du m??lange
 ! induit par les circulations meso et submeso ??chelles.
-!
+
 ! References: * The vertical distribution of wind and turbulent exchange in a neutral atmosphere
 !               Blackadar A.K.
 !               J. Geophys. Res., 64, No 8, 1962
-!
+
 !             * An evaluation of neutral and convective planetary boundary-layer parametrisations relative 
 !               to large eddy simulations
 !               Ayotte K et al 
 !               Boundary Layer Meteorology, 79, 131-175, 1996
-!
-!
+
+
 !             * Local Similarity in the Stable Boundary Layer and Mixing length Approaches: consistency of concepts
 !               Van de Wiel B.J.H et al
 !               Boundary-Lay Meteorol, 128, 103-166, 2008
-!
-!
+
+
 ! Histoire:
 !----------
 ! * premi??re r??daction, Etienne et Frederic, 09/06/2016
-!
+
 ! ***********************************************************************