Changeset 5282 for LMDZ6/trunk/libf/dynphy_lonlat/phydev/iniphysiq_mod.f90

Timestamp:

Oct 28, 2024, 1:11:48 PM (6 hours ago)

Author:

abarral

Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phydev/iniphysiq_mod.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phydev/iniphysiq_mod.f90

@@ -11 +11 @@
                      rlatu,rlatv,rlonu,rlonv,aire,cu,cv, &
                      prad,pg,pr,pcpp,iflag_phys)
+  USE iniprint_mod_h
   USE dimphy, ONLY: init_dimphy
   USE inigeomphy_mod, ONLY: inigeomphy
@@ -22 +23 @@
   !
   !=======================================================================
-  !   Initialisation of the physical constants and some positional and 
+  !   Initialisation of the physical constants and some positional and
   !   geometrical arrays for the physics
   !=======================================================================
- 
- 
-  include "iniprint.h"
+
+
 
   REAL,INTENT(IN) :: prad ! radius of the planet (m)