Changeset 5137 for LMDZ6/branches/Amaury_dev/libf/phylmd/iniradia.F90

Timestamp:

Jul 28, 2024, 10:25:12 PM (3 months ago)

Author:

abarral

Message:

Put gradsdef.h, tracstoke.h, clesphys.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/iniradia.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/iniradia.F90

@@ -1 +1 @@
 SUBROUTINE iniradia(klon, klev, pres)
+USE lmdz_clesphys
 
   IMPLICIT NONE
@@ -19 +20 @@
   REAL pres(klev+1)
 
-  include "clesphys.h"
-
   ! CALL suphel     ! initialiser constantes et parametres phys.
   ! PRINT*,'Physiq: apres suphel '