Changeset 5303 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Oct 30, 2024, 6:34:05 PM (3 months ago)

Author:

abarral

Message:

Turn compar1d.h date_cas.h into module
Move fcg_racmo.h to obsolete

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• cv_routines.f90 (modified) (18 diffs)
• cvparam_mod_h.f90 (moved) (moved from LMDZ6/trunk/libf/phylmdiso/cvparam.h) (1 diff)

LMDZ6/trunk/libf/phylmdiso/cv_routines.f90

@@ -4 +4 @@
 SUBROUTINE cv_param(nd)
   USE cvthermo_mod_h
+  USE cvparam_mod_h
   IMPLICIT NONE
 
@@ -37 +38 @@
   ! ***                   (DAMP MUST BE LESS THAN 1)                 ***
 
-  include "cvparam.h"
   INTEGER nd
   CHARACTER (LEN=20) :: modname = 'cv_routines'
@@ -77 +77 @@
 SUBROUTINE cv_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm)
   USE cvthermo_mod_h
+  USE cvparam_mod_h
   IMPLICIT NONE
 
@@ -94 +95 @@
   INTEGER k, i
   REAL cpx(len, nd)
-
-  include "cvparam.h"
-
 
   DO k = 1, nlp
@@ -134 +132 @@
 SUBROUTINE cv_feed(len, nd, t, q, qs, p, hm, gz, nk, icb, icbmax, iflag, tnk, &
     qnk, gznk, plcl)
-  IMPLICIT NONE
+USE cvparam_mod_h
+    IMPLICIT NONE
 
   ! ================================================================
@@ -140 +139 @@
   ! ================================================================
 
-  include "cvparam.h"
 
   ! inputs:
@@ -255 +253 @@
 SUBROUTINE cv_undilute1(len, nd, t, q, qs, gz, p, nk, icb, icbmax, tp, tvp, &
     clw)
-  USE cvthermo_mod_h
+USE cvparam_mod_h
+    USE cvthermo_mod_h
   IMPLICIT NONE
-  include "cvparam.h"
 
   ! inputs:
@@ -363 +361 @@
 
 SUBROUTINE cv_trigger(len, nd, icb, cbmf, tv, tvp, iflag)
-  IMPLICIT NONE
+USE cvparam_mod_h
+    IMPLICIT NONE
 
   ! -------------------------------------------------------------------
@@ -371 +370 @@
   ! -------------------------------------------------------------------
 
-  include "cvparam.h"
 
   ! inputs:
@@ -396 +394 @@
     tp1, tvp1, clw1, iflag, nk, icb, cbmf, plcl, tnk, qnk, gznk, t, q, qs, u, &
     v, gz, h, lv, cpn, p, ph, tv, tp, tvp, clw, dph)
-  USE print_control_mod, ONLY: lunout
+USE cvparam_mod_h
+    USE print_control_mod, ONLY: lunout
   IMPLICIT NONE
 
-  include "cvparam.h"
 
   ! inputs:
@@ -481 +479 @@
 SUBROUTINE cv_undilute2(nloc, ncum, nd, icb, nk, tnk, qnk, gznk, t, q, qs, &
     gz, p, dph, h, tv, lv, inb, inb1, tp, tvp, clw, hp, ep, sigp, frac)
-  USE cvthermo_mod_h
+USE cvparam_mod_h
+    USE cvthermo_mod_h
   IMPLICIT NONE
 
@@ -493 +492 @@
   ! FIND THE LEVEL OF NEUTRAL BUOYANCY
   ! ---------------------------------------------------------------------
-  include "cvparam.h"
 
   ! inputs:
@@ -764 +762 @@
     cpn, iflag, cbmf)
   USE cvthermo_mod_h
+  USE cvparam_mod_h
   IMPLICIT NONE
 
@@ -782 +781 @@
   REAL work(nloc)
 
-  include "cvparam.h"
-
   ! -------------------------------------------------------------------
   ! Compute icbmax.
@@ -846 +843 @@
     h, lv, qnk, hp, tv, tvp, ep, clw, cbmf, m, ment, qent, uent, vent, nent, &
     sij, elij)
-  USE cvthermo_mod_h
+USE cvparam_mod_h
+    USE cvthermo_mod_h
   IMPLICIT NONE
 
-  include "cvparam.h"
 
   ! inputs:
@@ -1097 +1094 @@
 SUBROUTINE cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, h, lv, &
     ep, sigp, clw, m, ment, elij, iflag, mp, qp, up, vp, wt, water, evap)
-  USE cvthermo_mod_h
+USE cvparam_mod_h
+    USE cvthermo_mod_h
   IMPLICIT NONE
 
-  include "cvparam.h"
 
   ! inputs:
@@ -1299 +1296 @@
     ment, qent, uent, vent, nent, elij, tv, tvp, iflag, wd, qprime, tprime, &
     precip, cbmf, ft, fq, fu, fv, ma, qcondc)
-  USE cvthermo_mod_h
+USE cvparam_mod_h
+    USE cvthermo_mod_h
   IMPLICIT NONE
 
-  include "cvparam.h"
 
   ! inputs
@@ -1667 +1664 @@
     fq, fu, fv, ma, qcondc, iflag1, precip1, cbmf1, ft1, fq1, fu1, fv1, ma1, &
     qcondc1)
-  IMPLICIT NONE
-
-  include "cvparam.h"
+USE cvparam_mod_h
+    IMPLICIT NONE
+
 
   ! inputs:

LMDZ6/trunk/libf/phylmdiso/cvparam_mod_h.f90

@@ -1 @@
-link ../phylmd/cvparam.h
+link ../phylmd/cvparam_mod_h.f90