Changeset 5292 for LMDZ6/trunk/libf/dyn3d_common

Timestamp:

Oct 28, 2024, 4:58:32 PM (9 months ago)

Author:

abarral

Message:

Move academic.h chem.h chem_spla.h to module

File:

• LMDZ6/trunk/libf/dyn3d_common/academic_mod_h.f90 (moved) (moved from LMDZ6/trunk/libf/dyn3d_common/academic.h) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/academic_mod_h.f90

@@ -1 @@
-!
-! $Id$
-!
-      common/academic/tetarappel,knewt_t,kfrict,knewt_g,clat4
-      real :: tetarappel(ip1jmp1,llm)
-      real :: knewt_t(llm)
-      real :: kfrict(llm)
-      real :: knewt_g
-      real :: clat4(ip1jmp1)
+! Replaces academic.h
+
+MODULE academic_mod_h
+  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+  USE paramet_mod_h
+  IMPLICIT NONE; PRIVATE
+
+  PUBLIC tetarappel, knewt_t, kfrict, knewt_g, clat4
+
+  REAL :: tetarappel(ip1jmp1, llm)
+  REAL :: knewt_t(llm)
+  REAL :: kfrict(llm)
+  REAL :: knewt_g
+  REAL :: clat4(ip1jmp1)
+
+END MODULE academic_mod_h