Changeset 5106 for LMDZ6/branches/Amaury_dev/libf/dyn3d/dteta1.F90

Timestamp:

Jul 23, 2024, 10:21:18 PM (4 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/dyn3d/dteta1.F90 (modified) (1 diff)

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