Changeset 5142 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_cv.F90

Timestamp:

Jul 29, 2024, 3:07:34 PM (8 weeks ago)

Author:

abarral

Message:

Put cvparam.h, fcg_gcssold.h, planete.h, tsoilnudge.h, YOECUMF.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_cv.F90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv_routines.F90) (14 diffs)

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

@@ -1 +1 @@
 ! $Id$
+
+MODULE lmdz_cv
+  !------------------------------------------------------------
+  ! Parameters for convectL:
+  ! (includes - microphysical parameters,
+  !                     - parameters that control the rate of approach
+  !               to quasi-equilibrium)
+  !                     - noff & minorig (previously in input of convect1)
+  !------------------------------------------------------------
+
+  IMPLICIT NONE; PRIVATE
+  PUBLIC elcrit, tlcrit, entp, sigs, sigd, omtrain, omtsnow, coeffr, coeffs &
+          , dtmax, cu, betad, alpha, damp, delta, noff, minorig, nl, nlp, nlm, &
+          cv_param, cv_prelim, cv_feed, cv_undilute1, cv_trigger, cv_compress, &
+          cv_undilute2, cv_closure, cv_mixing, cv_unsat, cv_yield, cv_uncompress
+
+  INTEGER noff, minorig, nl, nlp, nlm
+  REAL elcrit, tlcrit
+  REAL entp
+  REAL sigs, sigd
+  REAL omtrain, omtsnow, coeffr, coeffs
+  REAL dtmax
+  REAL cu
+  REAL betad
+  REAL alpha, damp
+  REAL delta
+
+  !$OMP THREADPRIVATE(elcrit, tlcrit, entp, sigs, sigd, omtrain, omtsnow, coeffr, coeffs &
+  !$OMP      , dtmax, cu, betad, alpha, damp, delta, noff, minorig, nl, nlp, nlm)
+
+CONTAINS
 
 SUBROUTINE cv_param(nd)
@@ -35 +66 @@
   ! ***                   (DAMP MUST BE LESS THAN 1)                 ***
 
-  include "cvparam.h"
-  INTEGER nd
+    INTEGER nd
   CHARACTER (LEN = 20) :: modname = 'cv_routines'
   CHARACTER (LEN = 80) :: abort_message
@@ -93 +123 @@
   REAL cpx(len, nd)
 
-  include "cvparam.h"
-
+  
   DO k = 1, nlp
     DO i = 1, len
@@ -136 +165 @@
   ! ================================================================
 
-  include "cvparam.h"
-
+  
   ! inputs:
   INTEGER len, nd
@@ -254 +282 @@
   IMPLICIT NONE
 
-  include "cvparam.h"
-
+  
   ! inputs:
   INTEGER len, nd
@@ -367 +394 @@
   ! -------------------------------------------------------------------
 
-  include "cvparam.h"
-
+  
   ! inputs:
   INTEGER len, nd, icb(len)
@@ -394 +420 @@
   IMPLICIT NONE
 
-  include "cvparam.h"
-
+  
   ! inputs:
   INTEGER len, ncum, nd, nloc
@@ -488 +513 @@
   ! ---------------------------------------------------------------------
 
-  include "cvparam.h"
-
+  
   ! inputs:
   INTEGER ncum, nd, nloc
@@ -775 +799 @@
   REAL work(nloc)
 
-  include "cvparam.h"
-
+  
   ! -------------------------------------------------------------------
   ! Compute icbmax.
@@ -842 +865 @@
   IMPLICIT NONE
 
-  include "cvparam.h"
-
+  
   ! inputs:
   INTEGER ncum, nd, nloc
@@ -1092 +1114 @@
   IMPLICIT NONE
 
-  include "cvparam.h"
-
+  
   ! inputs:
   INTEGER ncum, nd, nloc
@@ -1292 +1313 @@
   IMPLICIT NONE
 
-  include "cvparam.h"
-
+  
   ! inputs
   INTEGER ncum, nd, nloc
@@ -1657 +1677 @@
   IMPLICIT NONE
 
-  include "cvparam.h"
-
+  
   ! inputs:
   INTEGER len, ncum, nd, nloc
@@ -1697 +1716 @@
 END SUBROUTINE cv_uncompress
 
+
+END MODULE lmdz_cv