Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/dyn3d/tetaleveli1j1.F90

Timestamp:

Jul 26, 2024, 5:56:37 PM (3 months ago)

Author:

abarral

Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/tetaleveli1j1.F90 (modified) (2 diffs)

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

@@ -6 +6 @@
 
   ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
-  IMPLICIT none
+  IMPLICIT NONE
 
-  include "dimensions.h"
+  INCLUDE "dimensions.h"
 
   !================================================================
@@ -43 +43 @@
   ! REAL ptop, pbot, aist(klon), aisb(klon)
   !
-  include "paramet.h"
+  INCLUDE "paramet.h"
   !
   INTEGER :: lt(ip1jmp1), lb(ip1jmp1)