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

Timestamp:

Jul 23, 2024, 10:21:18 PM (13 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/dyn3d

Files:

• bilan_dyn.F90 (modified) (1 diff)
• caladvtrac.F90 (modified) (1 diff)
• covnat.F90 (modified) (1 diff)
• dteta1.F90 (modified) (1 diff)
• dudv1.F90 (modified) (1 diff)
• dudv2.F90 (modified) (1 diff)
• gcm.F90 (modified) (1 diff)
• iniacademic.F90 (modified) (1 diff)
• iniinterp_horiz.F90 (modified) (1 diff)
• interp_horiz.F90 (modified) (1 diff)
• vlspltqs.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.F90

@@ -1 +1 @@
 ! $Id$
 
-SUBROUTINE bilan_dyn (ntrac, dt_app, dt_cum, &
+SUBROUTINE bilan_dyn(ntrac, dt_app, dt_cum, &
         ps, masse, pk, flux_u, flux_v, teta, phi, ucov, vcov, trac)
 

LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90

@@ -10 +10 @@
   USE control_mod, ONLY: iapp_tracvl, planet_type
   USE comconst_mod, ONLY: dtvr
+  USE lmdz_filtreg, ONLY: filtreg
 
   IMPLICIT NONE

LMDZ6/branches/Amaury_dev/libf/dyn3d/covnat.F90

@@ -1 +1 @@
 ! $Header$
 
-SUBROUTINE covnat (klevel, ucov, vcov, unat, vnat)
+SUBROUTINE covnat(klevel, ucov, vcov, unat, vnat)
   IMPLICIT NONE
 

LMDZ6/branches/Amaury_dev/libf/dyn3d/dteta1.F90

@@ -1 +1 @@
 ! $Header$
 
-SUBROUTINE dteta1 (teta, pbaru, pbarv, dteta)
+SUBROUTINE dteta1(teta, pbaru, pbarv, dteta)
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
 

LMDZ6/branches/Amaury_dev/libf/dyn3d/dudv1.F90

@@ -1 +1 @@
 ! $Header$
 
-SUBROUTINE dudv1 (vorpot, pbaru, pbarv, du, dv)
+SUBROUTINE dudv1(vorpot, pbaru, pbarv, du, dv)
   IMPLICIT NONE
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d/dudv2.F90

@@ -1 +1 @@
 ! $Header$
 
-SUBROUTINE dudv2 (teta, pkf, bern, du, dv)
+SUBROUTINE dudv2(teta, pkf, bern, du, dv)
 
   IMPLICIT NONE

LMDZ6/branches/Amaury_dev/libf/dyn3d/gcm.F90

@@ -7 +7 @@
 
   USE IOIPSL
-
-
-! ug Pour les sorties XIOS
-  USE wxios
-
-  USE filtreg_mod
+  USE wxios  ! ug Pour les sorties XIOS
+
+  USE lmdz_filtreg, ONLY: inifilr
   USE infotrac, ONLY: nqtot, init_infotrac
   USE control_mod

LMDZ6/branches/Amaury_dev/libf/dyn3d/iniacademic.F90

@@ -4 +4 @@
 SUBROUTINE iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
 
-  USE filtreg_mod, ONLY: inifilr
+  USE lmdz_filtreg, ONLY: inifilr
   USE infotrac,    ONLY: nqtot, niso, iqIsoPha, tracers, getKey, isoName
   USE control_mod, ONLY: day_step,planet_type

LMDZ6/branches/Amaury_dev/libf/dyn3d/iniinterp_horiz.F90

@@ -2 +2 @@
 ! $Header$
 !
-SUBROUTINE iniinterp_horiz (imo, jmo, imn, jmn, kllm, &
+SUBROUTINE iniinterp_horiz(imo, jmo, imn, jmn, kllm, &
         rlonuo, rlatvo, rlonun, rlatvn, &
         ktotal, iik, jjk, jk, ik, intersec, airen)

LMDZ6/branches/Amaury_dev/libf/dyn3d/interp_horiz.F90

@@ -2 +2 @@
 ! $Id$
 !
-SUBROUTINE interp_horiz (varo, varn, imo, jmo, imn, jmn, lm, &
+SUBROUTINE interp_horiz(varo, varn, imo, jmo, imn, jmn, lm, &
         rlonuo, rlatvo, rlonun, rlatvn)
 

LMDZ6/branches/Amaury_dev/libf/dyn3d/vlspltqs.F90

@@ -2 +2 @@
 ! $Id$
 !
-SUBROUTINE vlspltqs (q, pente_max, masse, w, pbaru, pbarv, pdt, &
+SUBROUTINE vlspltqs(q, pente_max, masse, w, pbaru, pbarv, pdt, &
         p, pk, teta, iq)
   USE infotrac, ONLY: nqtot, tracers