Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_comdissnew.f90

Timestamp:

Jul 26, 2024, 5:56:37 PM (3 months ago)

Author:

abarral

Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_comdissnew.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/dyn3d_common/comdissnew.h) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_comdissnew.f90

@@ +1 @@
+! Replaces comdissnew.h
 
-! $Id$
+MODULE lmdz_comdissnew
+  IMPLICIT NONE; PRIVATE
+  PUBLIC lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
+          tetagrot, tetatemp, coefdis, vert_prof_dissip
 
+  LOGICAL lstardis
+  INTEGER nitergdiv, nitergrot, niterh
 
-!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
-!                 veillez à n'utiliser que des ! pour les commentaires
-!                 et à bien positionner les & des lignes de continuation
-!                 (les placer en colonne 6 et en colonne 73)
+  INTEGER vert_prof_dissip ! vertical profile of horizontal dissipation
+  !     Allowed values:
+  !     0: rational fraction, function of pressure
+  !     1: tanh of altitude
 
-!-----------------------------------------------------------------------
-! INCLUDE 'comdissnew.h'
-
-      COMMON/comdissnew/ lstardis,nitergdiv,nitergrot,niterh,tetagdiv,  &
-                         tetagrot,tetatemp,coefdis, vert_prof_dissip
-
-      LOGICAL lstardis
-      INTEGER nitergdiv, nitergrot, niterh
-
-      INTEGER vert_prof_dissip ! vertical profile of horizontal dissipation
-!     Allowed values:
-!     0: rational fraction, function of pressure
-!     1: tanh of altitude
-
-      REAL     tetagdiv, tetagrot,  tetatemp, coefdis
-
-! ... Les parametres de ce common comdissnew sont  lues par defrun_new 
-!              sur le fichier  run.def    ....
-
-!-----------------------------------------------------------------------
+  REAL     tetagdiv, tetagrot, tetatemp, coefdis
+  ! ... Les parametres de ce common comdissnew sont  lues par defrun_new
+  !              sur le fichier  run.def    ....
+END MODULE lmdz_comdissnew