Changeset 5106 for LMDZ6/branches/Amaury_dev/libf/misc

Timestamp:

Jul 23, 2024, 10:21:18 PM (17 months ago)

Author:

abarral

Message:

Turn coefils.h into lmdz_coefils.f90
Put filtreg.F90 inside lmdz_filtreg.F90
Turn mod_filtreg_p.F90 into lmdz_filtreg_p.F90
Delete obsolete parafilt.h*
(lint) remove spaces between routine name and args

Location:

LMDZ6/branches/Amaury_dev/libf/misc

Files:

• chfev.f90 (modified) (1 diff)
• i1mach.f90 (modified) (1 diff)
• j4save.f90 (modified) (1 diff)
• lmdz_inca_wrappers.F90 (modified) (1 diff)
• pchdf.f90 (modified) (1 diff)
• pchfe.f90 (modified) (1 diff)
• pchsp.f90 (modified) (1 diff)
• xercnt.f90 (modified) (1 diff)
• xerhlt.f90 (modified) (1 diff)
• xermsg.f90 (modified) (1 diff)
• xerprn.f90 (modified) (1 diff)
• xersve.f90 (modified) (1 diff)
• xgetua.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/misc/chfev.f90

@@ -1 +1 @@
 !DECK CHFEV
-SUBROUTINE CHFEV (X1, X2, F1, F2, D1, D2, NE, XE, FE, NEXT, IERR)
+SUBROUTINE CHFEV(X1, X2, F1, F2, D1, D2, NE, XE, FE, NEXT, IERR)
   !***BEGIN PROLOGUE  CHFEV
   !***PURPOSE  Evaluate a cubic polynomial given in Hermite form at an

LMDZ6/branches/Amaury_dev/libf/misc/i1mach.f90

@@ -1 +1 @@
 !DECK I1MACH
-INTEGER FUNCTION I1MACH (I)
+INTEGER FUNCTION I1MACH(I)
   IMPLICIT NONE
   !***BEGIN PROLOGUE  I1MACH

LMDZ6/branches/Amaury_dev/libf/misc/j4save.f90

@@ -1 +1 @@
 !DECK J4SAVE
-FUNCTION J4SAVE (IWHICH, IVALUE, ISET)
+FUNCTION J4SAVE(IWHICH, IVALUE, ISET)
   IMPLICIT NONE
   !***BEGIN PROLOGUE  J4SAVE

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_inca_wrappers.F90

@@ -314 +314 @@
 END SUBROUTINE INIT_INCA_DIM_REG
 
-SUBROUTINE AEROSOL_METEO_CALC (&
+SUBROUTINE AEROSOL_METEO_CALC(&
         calday, delt, pmid, pfull, t_seri, &
         flxrcv, flxscv, flxrst, flxsst, pctsrf, &

LMDZ6/branches/Amaury_dev/libf/misc/pchdf.f90

@@ -1 +1 @@
 !DECK PCHDF
-REAL FUNCTION PCHDF (K, X, S, IERR)
+REAL FUNCTION PCHDF(K, X, S, IERR)
   !***BEGIN PROLOGUE  PCHDF
   !***SUBSIDIARY

LMDZ6/branches/Amaury_dev/libf/misc/pchfe.f90

@@ -1 +1 @@
 !DECK PCHFE
-SUBROUTINE PCHFE (N, X, F, D, INCFD, SKIP, NE, XE, FE, IERR)
+SUBROUTINE PCHFE(N, X, F, D, INCFD, SKIP, NE, XE, FE, IERR)
   !***BEGIN PROLOGUE  PCHFE
   !***PURPOSE  Evaluate a piecewise cubic Hermite function at an array of

LMDZ6/branches/Amaury_dev/libf/misc/pchsp.f90

@@ -1 +1 @@
 !DECK PCHSP
-SUBROUTINE PCHSP (IC, VC, N, X, F, D, INCFD, WK, NWK, IERR)
+SUBROUTINE PCHSP(IC, VC, N, X, F, D, INCFD, WK, NWK, IERR)
   !***BEGIN PROLOGUE  PCHSP
   !***PURPOSE  Set derivatives needed to determine the Hermite represen-

LMDZ6/branches/Amaury_dev/libf/misc/xercnt.f90

@@ -1 +1 @@
 !DECK XERCNT
-SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
+SUBROUTINE XERCNT(LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
   IMPLICIT NONE
   !***BEGIN PROLOGUE  XERCNT

LMDZ6/branches/Amaury_dev/libf/misc/xerhlt.f90

@@ -1 +1 @@
 !DECK XERHLT
-SUBROUTINE XERHLT (MESSG)
+SUBROUTINE XERHLT(MESSG)
   !***BEGIN PROLOGUE  XERHLT
   !***SUBSIDIARY

LMDZ6/branches/Amaury_dev/libf/misc/xermsg.f90

@@ -1 +1 @@
 !DECK XERMSG
-SUBROUTINE XERMSG (LIBRAR, SUBROU, MESSG, NERR, LEVEL)
+SUBROUTINE XERMSG(LIBRAR, SUBROU, MESSG, NERR, LEVEL)
   IMPLICIT NONE
   !***BEGIN PROLOGUE  XERMSG

LMDZ6/branches/Amaury_dev/libf/misc/xerprn.f90

@@ -1 +1 @@
 !DECK XERPRN
-SUBROUTINE XERPRN (PREFIX, NPREF, MESSG, NWRAP)
+SUBROUTINE XERPRN(PREFIX, NPREF, MESSG, NWRAP)
   IMPLICIT NONE
   !***BEGIN PROLOGUE  XERPRN

LMDZ6/branches/Amaury_dev/libf/misc/xersve.f90

@@ -1 +1 @@
 !DECK XERSVE
-SUBROUTINE XERSVE (LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL, &
+SUBROUTINE XERSVE(LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL, &
         ICOUNT)
   IMPLICIT NONE

LMDZ6/branches/Amaury_dev/libf/misc/xgetua.f90

@@ -1 +1 @@
 !DECK XGETUA
-SUBROUTINE XGETUA (IUNITA, N)
+SUBROUTINE XGETUA(IUNITA, N)
   IMPLICIT NONE
   !***BEGIN PROLOGUE  XGETUA