Changeset 5106 for LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_coefils.f90

Timestamp:

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

File:

• LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_coefils.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/filtrez/coefils.h) (1 diff)

LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_coefils.f90

@@ +1 @@
+! $Id $
+! replacement for coefils.h
+MODULE lmdz_coefils
+  IMPLICIT NONE; PRIVATE
+  INCLUDE "dimensions.h"
+  PUBLIC jfiltnu, jfiltsu, jfiltnv, jfiltsv, sddu, sddv, unsddu, unsddv, coefilu, coefilv, &
+          modfrstu, modfrstv, eignfnu, eignfnv, coefilu2, coefilv2
 
-! $Id $
-
-      COMMON/coefils/jfiltnu,jfiltsu,jfiltnv,jfiltsv,sddu(iim),sddv(iim)&
-     & ,unsddu(iim),unsddv(iim),coefilu(iim,jjm),coefilv(iim,jjm),      &
-     & modfrstu(jjm),modfrstv(jjm),eignfnu(iim,iim),eignfnv(iim,iim)    &
-     & ,coefilu2(iim,jjm),coefilv2(iim,jjm)
-!c
-      INTEGER jfiltnu ! index of the last lat line filtered in NH (U grid)
-      INTEGER jfiltsu ! index of the first lat line filtered in SH (U grid)
-      INTEGER jfiltnv ! index of the last lat line filtered in NH (V grid)
-      INTEGER jfiltsv ! index of the first lat line filtered in SH (V grid)
-      INTEGER modfrstu ! number of retained (ie: unfiltered) modes on U grid
-      INTEGER modfrstv ! number of retained (ie: unfiltered) modes on V grid
-      REAL    sddu,sddv,unsddu,unsddv,coefilu,coefilv,eignfnu,eignfnv
-      REAL    coefilu2,coefilv2
+  INTEGER :: jfiltnu ! index of the last lat line filtered in NH (U grid)
+  INTEGER :: jfiltsu ! index of the first lat line filtered in SH (U grid)
+  INTEGER :: jfiltnv ! index of the last lat line filtered in NH (V grid)
+  INTEGER :: jfiltsv ! index of the first lat line filtered in SH (V grid)
+  INTEGER, DIMENSION(jjm) :: modfrstu ! number of retained (ie: unfiltered) modes on U grid
+  INTEGER, DIMENSION(jjm) :: modfrstv ! number of retained (ie: unfiltered) modes on V grid
+  REAL, DIMENSION(iim) :: sddu, sddv, unsddu, unsddv
+  REAL, DIMENSION(iim, jjm) :: coefilu, coefilv, coefilu2, coefilv2
+  REAL, DIMENSION(iim, iim) :: eignfnu, eignfnv
+END MODULE lmdz_coefils