Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/exner_milieu_loc_m.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 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/dyn3dmem/exner_milieu_loc_m.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/exner_milieu_loc_m.F90

@@ -6 +6 @@
 
   SUBROUTINE  exner_milieu_loc ( ngrid, ps, p, pks, pk, pkf )
-    !
+
     !     Auteurs :  F. Forget , Y. Wanherdrick
     ! P.Le Van  , Fr. Hourdin  .
     !    ..........
-    !
+
     !    ....  ngrid, ps,p             sont des argum.d'entree  au sous-prog ...
     !    ....  pks,pk,pkf   sont des argum.de sortie au sous-prog ...
-    !
+
     !   ************************************************************************
     !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des 
@@ -21 +21 @@
     !  .. N.B : Au sommet de l'atmosphere,  p(llm+1) = 0. , et ps et pks sont
     !    la pression et la fonction d'Exner  au  sol  .
-    !
+
     !     WARNING : CECI est une version speciale de exner_hyb originale
     !               Utilise dans la version martienne pour pouvoir 
@@ -28 +28 @@
     !              energie totale/ interne / potentielle (F.Forget 2001)
     !    ( voir note de Fr.Hourdin )  ,
-    !
+
     USE parallel_lmdz
     USE mod_filtreg_p
@@ -35 +35 @@
     
     IMPLICIT NONE
-    !
+
     include "dimensions.h"
     include "paramet.h"
@@ -117 +117 @@
 
     !$OMP BARRIER
-    !
-    !
+
+
     !    .... Calcul de pk  pour la couche l 
     !    --------------------------------------------
-    !
+
     dum1 = cpp * (2*preff)**(-kappa) 
     DO l = 1, llm-1