Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/bernoui.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/bernoui.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/bernoui.f90 (revision 5106) @@ -2,5 +2,6 @@ ! $Header$ -SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern) +SUBROUTINE bernoui(ngrid,nlay,pphi,pecin,pbern) + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/convmas.F90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/convmas.F90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/convmas.F90 (revision 5106) @@ -1,3 +1,3 @@ -SUBROUTINE convmas (pbaru, pbarv, convm) +SUBROUTINE convmas(pbaru, pbarv, convm) !------------------------------------------------------------------------------- @@ -5,4 +5,5 @@ !------------------------------------------------------------------------------- ! Purpose: Compute mass flux convergence at p levels. + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE include "dimensions.h" Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/covcont.F90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/covcont.F90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/covcont.F90 (revision 5106) @@ -1,3 +1,3 @@ -SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont ) +SUBROUTINE covcont(klevel,ucov, vcov, ucont, vcont ) !------------------------------------------------------------------------------- Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divergf.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divergf.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divergf.f90 (revision 5106) @@ -11,4 +11,5 @@ ! x et y etant des composantes covariantes ... ! ********************************************************************* + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE ! Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divgrad.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divgrad.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divgrad.f90 (revision 5106) @@ -2,5 +2,6 @@ ! $Header$ -SUBROUTINE divgrad (klevel,h, lh, divgra ) +SUBROUTINE divgrad(klevel,h, lh, divgra ) + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE ! Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divgrad2.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divgrad2.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divgrad2.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE divgrad2 ( klevel, h, deltapres, lh, divgra ) +SUBROUTINE divgrad2( klevel, h, deltapres, lh, divgra ) ! ! P. Le Van Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/enercin.F90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/enercin.F90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/enercin.F90 (revision 5106) @@ -1,3 +1,3 @@ -SUBROUTINE enercin ( vcov, ucov, vcont, ucont, ecin ) +SUBROUTINE enercin( vcov, ucov, vcont, ucont, ecin ) !------------------------------------------------------------------------------- Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.F90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.F90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.F90 (revision 5106) @@ -5,5 +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,4 +35,5 @@ USE comconst_mod, ONLY: jmp1, cpp, kappa, r USE comvert_mod, ONLY: preff + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_milieu_m.F90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_milieu_m.F90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_milieu_m.F90 (revision 5106) @@ -5,5 +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,4 +32,5 @@ USE comconst_mod, ONLY: jmp1, cpp, kappa, r USE comvert_mod, ONLY: preff + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/extrapol.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/extrapol.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/extrapol.f90 (revision 5106) @@ -4,5 +4,5 @@ ! ! -SUBROUTINE extrapol (pfild, kxlon, kylat, pmask, & +SUBROUTINE extrapol(pfild, kxlon, kylat, pmask, & norsud, ldper, knbor, pwork) IMPLICIT none Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/flumass.F90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/flumass.F90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/flumass.F90 (revision 5106) @@ -1,3 +1,3 @@ -SUBROUTINE flumass (massebx,masseby, vcont, ucont, pbaru, pbarv ) +SUBROUTINE flumass(massebx,masseby, vcont, ucont, pbaru, pbarv ) !------------------------------------------------------------------------------- Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fxy.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fxy.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fxy.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $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) Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fxysinus.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fxysinus.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fxysinus.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $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) Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/geopot.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/geopot.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/geopot.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE geopot (ngrid, teta, pk, pks, phis, phi ) +SUBROUTINE geopot(ngrid, teta, pk, pks, phis, phi ) IMPLICIT NONE Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv.f90 (revision 5106) @@ -17,4 +17,5 @@ ! ! + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE ! Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv2.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv2.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv2.f90 (revision 5106) @@ -16,4 +16,5 @@ ! ! + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE ! Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inidissip.F90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inidissip.F90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inidissip.F90 (revision 5106) @@ -2,5 +2,5 @@ ! $Id$ -SUBROUTINE inidissip ( lstardis,nitergdiv,nitergrot,niterh , & +SUBROUTINE inidissip( lstardis,nitergdiv,nitergrot,niterh , & tetagdiv,tetagrot,tetatemp, vert_prof_dissip) !======================================================================= @@ -15,4 +15,5 @@ dtdiss, dtvr, rad USE comvert_mod, ONLY: preff, presnivs + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE laplacien ( klevel, teta, divgra ) +SUBROUTINE laplacien( klevel, teta, divgra ) ! ! P. Le Van @@ -12,4 +12,5 @@ ! divgra est un argument de sortie pour le s-prog ! + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE ! Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_gam.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_gam.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_gam.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE laplacien_gam ( klevel, cuvsga, cvusga, unsaigam , & +SUBROUTINE laplacien_gam( klevel, cuvsga, cvusga, unsaigam , & unsapolnga, unsapolsga, teta, divgra ) Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_rot.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_rot.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_rot.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE laplacien_rot ( klevel, rotin, rotout,ghx,ghy ) +SUBROUTINE laplacien_rot( klevel, rotin, rotout,ghx,ghy ) ! ! P. Le Van @@ -13,4 +13,5 @@ ! rotout est un argument de sortie pour le s-prog ! + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE ! Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_rotgam.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_rotgam.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_rotgam.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE laplacien_rotgam ( klevel, rotin, rotout ) +SUBROUTINE laplacien_rotgam( klevel, rotin, rotout ) ! ! P. Le Van Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgrad.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgrad.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgrad.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE nxgrad (klevel, rot, x, y ) +SUBROUTINE nxgrad(klevel, rot, x, y ) ! ! P. Le Van Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgradst.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgradst.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgradst.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE nxgradst (klevel,rot, x, y ) +SUBROUTINE nxgradst(klevel,rot, x, y ) ! IMPLICIT NONE Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgraro2.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgraro2.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgraro2.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ - SUBROUTINE nxgraro2 (klevel,xcov, ycov, lr, grx, gry ) + SUBROUTINE nxgraro2(klevel,xcov, ycov, lr, grx, gry ) ! ! P.Le Van . @@ -15,4 +15,5 @@ ! ! + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE ! Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgrarot.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgrarot.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/nxgrarot.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE nxgrarot (klevel,xcov, ycov, lr, grx, gry ) +SUBROUTINE nxgrarot(klevel,xcov, ycov, lr, grx, gry ) ! *********************************************************** ! @@ -16,4 +16,5 @@ ! ! + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE ! Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pbar.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pbar.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pbar.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE pbar ( pext, pbarx, pbary, pbarxy ) +SUBROUTINE pbar( pext, pbarx, pbary, pbarxy ) IMPLICIT NONE Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pentes_ini.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pentes_ini.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pentes_ini.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $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 Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ppm3d.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ppm3d.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ppm3d.f90 (revision 5106) @@ -1744,5 +1744,5 @@ 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) ! Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/prather.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/prather.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/prather.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE prather (q,w,masse,pbaru,pbarv,nt,dt) +SUBROUTINE prather(q,w,masse,pbaru,pbarv,nt,dt) USE comconst_mod, ONLY: pi Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/psextbar.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/psextbar.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/psextbar.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE psextbar ( ps, psexbarxy ) +SUBROUTINE psextbar( ps, psexbarxy ) IMPLICIT NONE Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotat.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotat.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotat.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE rotat (klevel, x, y, rot ) +SUBROUTINE rotat(klevel, x, y, rot ) ! ! Auteur : P.Le Van Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotat_nfil.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotat_nfil.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotat_nfil.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE rotat_nfil (klevel, x, y, rot ) +SUBROUTINE rotat_nfil(klevel, x, y, rot ) ! ! Auteur : P.Le Van Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotatf.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotatf.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotatf.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE rotatf (klevel, x, y, rot ) +SUBROUTINE rotatf(klevel, x, y, rot ) ! ! Auteur : P.Le Van @@ -14,4 +14,5 @@ ! rot est un argument de sortie pour le s-prog ! + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE ! Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotatst.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotatst.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotatst.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE rotatst (klevel,x, y, rot ) +SUBROUTINE rotatst(klevel,x, y, rot ) ! ! P. Le Van Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90 (revision 5106) @@ -12,4 +12,5 @@ etot0,ptot0,ztot0,stot0,ang0, & rmsdpdt,rmsv + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/test_period.f90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/test_period.f90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/test_period.f90 (revision 5106) @@ -2,5 +2,5 @@ ! $Header$ -SUBROUTINE test_period ( ucov, vcov, teta, q, p, phis ) +SUBROUTINE test_period( ucov, vcov, teta, q, p, phis ) ! ! Auteur : P. Le Van Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/tourpot.F90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/tourpot.F90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/tourpot.F90 (revision 5106) @@ -1,3 +1,3 @@ -SUBROUTINE tourpot ( vcov, ucov, massebxy, vorpot ) +SUBROUTINE tourpot( vcov, ucov, massebxy, vorpot ) !------------------------------------------------------------------------------- @@ -5,4 +5,5 @@ !------------------------------------------------------------------------------- ! Purpose: Compute potential vorticity. + USE lmdz_filtreg, ONLY: filtreg IMPLICIT NONE include "dimensions.h" Index: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/vitvert.F90 =================================================================== --- LMDZ6/branches/Amaury_dev/libf/dyn3d_common/vitvert.F90 (revision 5105) +++ LMDZ6/branches/Amaury_dev/libf/dyn3d_common/vitvert.F90 (revision 5106) @@ -1,3 +1,3 @@ -SUBROUTINE vitvert (convm, w) +SUBROUTINE vitvert(convm, w) !-------------------------------------------------------------------------------