Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/disvert_noterre.f90

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/disvert_noterre.f90 (modified) (4 diffs)

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

@@ -13 +13 @@
   USE lmdz_iniprint, ONLY: lunout, prt_level
 
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
 
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
-  !
+
+
+
   !=======================================================================
   !    Discretisation verticale en coordonnée hybride (ou sigma)
-  !
+
   !=======================================================================
-  !
+
   !   declarations:
   !   -------------
-  !
-  !
+
+
   INTEGER :: l,ll
   REAL :: snorm
@@ -45 +47 @@
   CHARACTER(LEN=*),parameter :: modname="disvert_noterre"
 
-  !
-  !-----------------------------------------------------------------------
-  !
+
+  !-----------------------------------------------------------------------
+
   ! Initializations:
   !  pi=2.*ASIN(1.) ! already done in iniconst
@@ -113 +115 @@
         ENDDO
      END IF
-  !
+
      snorm=(1.-.5*sig(2)+kappa*(1.-sig(2)))*s(1)+.5*sig(2)*s(2)
      DO l = 1, llm
@@ -161 +163 @@
   !    ....  Calculs  de ap(l) et de bp(l)  ....
   !    .........................................
-  !
+
   !   .....  pa et preff sont lus  sur les fichiers start par dynetat0 .....
   !-----------------------------------------------------------------------