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

Timestamp:

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

Files:

• bernoui.f90 (modified) (1 diff)
• convmas.F90 (modified) (2 diffs)
• covcont.F90 (modified) (1 diff)
• divergf.f90 (modified) (1 diff)
• divgrad.f90 (modified) (1 diff)
• divgrad2.f90 (modified) (1 diff)
• enercin.F90 (modified) (1 diff)
• exner_hyb_m.F90 (modified) (2 diffs)
• exner_milieu_m.F90 (modified) (2 diffs)
• extrapol.f90 (modified) (1 diff)
• flumass.F90 (modified) (1 diff)
• fxy.f90 (modified) (1 diff)
• fxysinus.f90 (modified) (1 diff)
• geopot.f90 (modified) (1 diff)
• gradiv.f90 (modified) (1 diff)
• gradiv2.f90 (modified) (1 diff)
• inidissip.F90 (modified) (2 diffs)
• laplacien.f90 (modified) (2 diffs)
• laplacien_gam.f90 (modified) (1 diff)
• laplacien_rot.f90 (modified) (2 diffs)
• laplacien_rotgam.f90 (modified) (1 diff)
• nxgrad.f90 (modified) (1 diff)
• nxgradst.f90 (modified) (1 diff)
• nxgraro2.f90 (modified) (2 diffs)
• nxgrarot.f90 (modified) (2 diffs)
• pbar.f90 (modified) (1 diff)
• pentes_ini.f90 (modified) (1 diff)
• ppm3d.f90 (modified) (1 diff)
• prather.f90 (modified) (1 diff)
• psextbar.f90 (modified) (1 diff)
• rotat.f90 (modified) (1 diff)
• rotat_nfil.f90 (modified) (1 diff)
• rotatf.f90 (modified) (2 diffs)
• rotatst.f90 (modified) (1 diff)
• sortvarc.f90 (modified) (1 diff)
• test_period.f90 (modified) (1 diff)
• tourpot.F90 (modified) (2 diffs)
• vitvert.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/bernoui.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
+SUBROUTINE bernoui(ngrid,nlay,pphi,pecin,pbern)
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
 

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/convmas.F90

@@ -1 @@
-SUBROUTINE convmas (pbaru, pbarv, convm)
+SUBROUTINE convmas(pbaru, pbarv, convm)
 
 !-------------------------------------------------------------------------------
@@ -5 +5 @@
 !-------------------------------------------------------------------------------
 ! Purpose: Compute mass flux convergence at p levels.
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   include "dimensions.h"

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/covcont.F90

@@ -1 @@
-SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont )
+SUBROUTINE covcont(klevel,ucov, vcov, ucont, vcont )
 
 !-------------------------------------------------------------------------------

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divergf.f90

@@ -11 +11 @@
   !          x et y  etant des composantes covariantes   ...
   !  *********************************************************************
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divgrad.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE divgrad (klevel,h, lh, divgra )
+SUBROUTINE divgrad(klevel,h, lh, divgra )
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divgrad2.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE divgrad2 ( klevel, h, deltapres, lh, divgra )
+SUBROUTINE divgrad2( klevel, h, deltapres, lh, divgra )
   !
   ! P. Le Van

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/enercin.F90

@@ -1 @@
-SUBROUTINE enercin ( vcov, ucov, vcont, ucont, ecin )
+SUBROUTINE enercin( vcov, ucov, vcont, ucont, ecin )
 
 !-------------------------------------------------------------------------------

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.F90

@@ -5 +5 @@
 contains
 
-  SUBROUTINE  exner_hyb ( ngrid, ps, p, pks, pk, pkf )
+  SUBROUTINE exner_hyb( ngrid, ps, p, pks, pk, pkf )
 
     !     Auteurs :  P.Le Van  , Fr. Hourdin  .
@@ -35 +35 @@
     USE comconst_mod, ONLY: jmp1, cpp, kappa, r
     USE comvert_mod, ONLY: preff
+    USE lmdz_filtreg, ONLY: filtreg
     
     IMPLICIT NONE

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_milieu_m.F90

@@ -5 +5 @@
 contains
 
-  SUBROUTINE  exner_milieu ( ngrid, ps, p, pks, pk, pkf )
+  SUBROUTINE exner_milieu( ngrid, ps, p, pks, pk, pkf )
 
     !     Auteurs :  F. Forget , Y. Wanherdrick
@@ -32 +32 @@
     USE comconst_mod, ONLY: jmp1, cpp, kappa, r
     USE comvert_mod, ONLY: preff
+    USE lmdz_filtreg, ONLY: filtreg
     
     IMPLICIT NONE

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/extrapol.f90

@@ -4 +4 @@
 !
 !
-SUBROUTINE extrapol (pfild, kxlon, kylat, pmask, &
+SUBROUTINE extrapol(pfild, kxlon, kylat, pmask, &
         norsud, ldper, knbor, pwork)
   IMPLICIT none

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/flumass.F90

@@ -1 @@
-SUBROUTINE flumass (massebx,masseby, vcont, ucont, pbaru, pbarv )
+SUBROUTINE flumass(massebx,masseby, vcont, ucont, pbaru, pbarv )
 
 !-------------------------------------------------------------------------------

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fxy.f90

@@ -2 +2 @@
 ! $Id$
 
-SUBROUTINE fxy (rlatu,yprimu,rlatv,yprimv,rlatu1,yprimu1, &
+SUBROUTINE fxy(rlatu,yprimu,rlatv,yprimv,rlatu1,yprimu1, &
         rlatu2,yprimu2, &
         rlonu,xprimu,rlonv,xprimv,rlonm025,xprimm025,rlonp025,xprimp025)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fxysinus.f90

@@ -2 +2 @@
 ! $Id$
 
-SUBROUTINE fxysinus (rlatu,yprimu,rlatv,yprimv,rlatu1,yprimu1, &
+SUBROUTINE fxysinus(rlatu,yprimu,rlatv,yprimv,rlatu1,yprimu1, &
         rlatu2,yprimu2, &
         rlonu,xprimu,rlonv,xprimv,rlonm025,xprimm025,rlonp025,xprimp025)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/geopot.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE geopot (ngrid, teta, pk, pks, phis, phi )
+SUBROUTINE geopot(ngrid, teta, pk, pks, phis, phi )
   IMPLICIT NONE
 

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv.f90

@@ -17 +17 @@
   !
   !
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv2.f90

@@ -16 +16 @@
   !
   !
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inidissip.F90

@@ -2 +2 @@
 ! $Id$
 
-SUBROUTINE inidissip ( lstardis,nitergdiv,nitergrot,niterh  , &
+SUBROUTINE inidissip( lstardis,nitergdiv,nitergrot,niterh  , &
      tetagdiv,tetagrot,tetatemp, vert_prof_dissip)
   !=======================================================================
@@ -15 +15 @@
                           dtdiss, dtvr, rad
   USE comvert_mod, ONLY: preff, presnivs
+  USE lmdz_filtreg, ONLY: filtreg
 
   IMPLICIT NONE

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE laplacien ( klevel, teta, divgra )
+SUBROUTINE laplacien( klevel, teta, divgra )
   !
   ! P. Le Van
@@ -12 +12 @@
   !  divgra     est  un argument  de sortie pour le s-prog
   !
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_gam.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE laplacien_gam ( klevel, cuvsga, cvusga, unsaigam , &
+SUBROUTINE laplacien_gam( klevel, cuvsga, cvusga, unsaigam , &
         unsapolnga, unsapolsga, teta, divgra )
 

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_rot.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE laplacien_rot ( klevel, rotin, rotout,ghx,ghy )
+SUBROUTINE laplacien_rot( klevel, rotin, rotout,ghx,ghy )
   !
   !    P. Le Van
@@ -13 +13 @@
   !  rotout           est  un argument  de sortie pour le s-prog
   !
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_rotgam.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE laplacien_rotgam ( klevel, rotin, rotout )
+SUBROUTINE laplacien_rotgam( klevel, rotin, rotout )
   !
   ! P. Le Van

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgrad.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE nxgrad (klevel, rot, x, y )
+SUBROUTINE nxgrad(klevel, rot, x, y )
   !
   ! P. Le Van

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgradst.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE nxgradst (klevel,rot, x, y )
+SUBROUTINE nxgradst(klevel,rot, x, y )
   !
   IMPLICIT NONE

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgraro2.f90

@@ -2 +2 @@
 ! $Header$
 
- SUBROUTINE nxgraro2 (klevel,xcov, ycov, lr, grx, gry )
+ SUBROUTINE nxgraro2(klevel,xcov, ycov, lr, grx, gry )
   !
   !  P.Le Van .
@@ -15 +15 @@
   !
   !
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgrarot.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE nxgrarot (klevel,xcov, ycov, lr, grx, gry )
+SUBROUTINE nxgrarot(klevel,xcov, ycov, lr, grx, gry )
   !   ***********************************************************
   !
@@ -16 +16 @@
   !
   !
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pbar.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE pbar ( pext, pbarx, pbary, pbarxy )
+SUBROUTINE pbar( pext, pbarx, pbary, pbarxy )
   IMPLICIT NONE
 

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pentes_ini.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE pentes_ini (q,w,masse,pbaru,pbarv,mode)
+SUBROUTINE pentes_ini(q,w,masse,pbaru,pbarv,mode)
 
   USE comconst_mod, ONLY: pi, dtvr

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ppm3d.f90

@@ -1744 +1744 @@
 end subroutine cosc
 !
-SUBROUTINE qckxyz (Q,qtmp,IMR,JNP,NLAY,j1,j2,cosp,acosp, &
+SUBROUTINE qckxyz(Q,qtmp,IMR,JNP,NLAY,j1,j2,cosp,acosp, &
         cross,IC,NSTEP)
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/prather.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE prather (q,w,masse,pbaru,pbarv,nt,dt)
+SUBROUTINE prather(q,w,masse,pbaru,pbarv,nt,dt)
 
   USE comconst_mod, ONLY: pi

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/psextbar.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE psextbar ( ps, psexbarxy )
+SUBROUTINE psextbar( ps, psexbarxy )
   IMPLICIT NONE
 

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotat.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE rotat (klevel, x, y, rot )
+SUBROUTINE rotat(klevel, x, y, rot )
   !
   ! Auteur : P.Le Van

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotat_nfil.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE rotat_nfil (klevel, x, y, rot )
+SUBROUTINE rotat_nfil(klevel, x, y, rot )
   !
   !    Auteur :   P.Le Van

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotatf.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE rotatf (klevel, x, y, rot )
+SUBROUTINE rotatf(klevel, x, y, rot )
   !
   ! Auteur : P.Le Van
@@ -14 +14 @@
   !        rot          est  un argument  de sortie pour le s-prog
   !
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotatst.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE rotatst (klevel,x, y, rot )
+SUBROUTINE rotatst(klevel,x, y, rot )
   !
   !  P. Le Van

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90

@@ -12 +12 @@
         etot0,ptot0,ztot0,stot0,ang0, &
         rmsdpdt,rmsv
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
 

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/test_period.f90

@@ -2 +2 @@
 ! $Header$
 
-SUBROUTINE test_period ( ucov, vcov, teta, q, p, phis )
+SUBROUTINE test_period( ucov, vcov, teta, q, p, phis )
   !
   ! Auteur : P. Le Van

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/tourpot.F90

@@ -1 @@
-SUBROUTINE tourpot ( vcov, ucov, massebxy, vorpot )
+SUBROUTINE tourpot( vcov, ucov, massebxy, vorpot )
 
 !-------------------------------------------------------------------------------
@@ -5 +5 @@
 !-------------------------------------------------------------------------------
 ! Purpose: Compute potential vorticity.
+  USE lmdz_filtreg, ONLY: filtreg
   IMPLICIT NONE
   include "dimensions.h"

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/vitvert.F90

@@ -1 @@
-SUBROUTINE vitvert (convm, w)
+SUBROUTINE vitvert(convm, w)
 
 !-------------------------------------------------------------------------------