Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmdiso

Timestamp:

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

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/phylmdiso

Files:

• isotopes_routines_mod.F90 (modified) (1 diff)
• lmdz_concvl.F90 (modified) (3 diffs)
• lmdz_cv30.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

@@ -18086 +18086 @@
         USE isotopes_verif_mod
 #endif
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
       IMPLICIT NONE
 
- include "dimensions.h"  ! pour avoir iim et jjm
+   ! pour avoir iim et jjm
 
 !     Arguments

LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_concvl.F90

@@ -66 +66 @@
   USE lmdz_clesphys
   USE lmdz_conema3
-
   USE lmdz_yomcst
+  USE lmdz_yomcst2
+  USE lmdz_cv3_inip, ONLY: cv3_inip
 
   IMPLICIT NONE
@@ -298 +299 @@
 !$OMP THREADPRIVATE(itap, igout)
 
- include "YOMCST2.h"
-
   IF (first) THEN
 ! Allocate some variables LF 04/2008
@@ -347 +346 @@
 
     IF (iflag_con==3) THEN
-!      CALL cv3_inicp()
       CALL cv3_inip()
     END IF

LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_cv30.F90

@@ -6044 +6044 @@
           !jyg             epm(i,j,k)=1.-(1.-ep(i,j))*clw(i,j)/elij(i,k,j)
           epm(i, j, k) = 1. - (1.-ep(i,j))*clw(i, j)/max(elij(i,k,j), 1.E-16)
-          !
+
           epm(i, j, k) = max(epm(i,j,k), 0.0)
         END IF