Changeset 4077 for trunk/LMDZ.GENERIC/libf/phygeneric/inifis_mod.F90

Timestamp:

Feb 18, 2026, 10:28:23 AM (3 weeks ago)

Author:

mturbet

Message:

renaming and merging of radiative routines in phygeneric

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/inifis_mod.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/inifis_mod.F90

@@ -12 +12 @@
   use radinc_h, only: ini_radinc_h, naerkind
   use radcommon_h, only: ini_radcommon_h
-  use radii_mod, only: radfixed, Nmix_co2
+  use aerosol_radius, only: radfixed, Nmix_co2
   use datafile_mod, only: datadir
   use comdiurn_h, only: sinlat, coslat, sinlon, coslon
@@ -27 +27 @@
   use ioipsl_getin_p_mod, only : getin_p
   use mod_phys_lmdz_para, only : is_parallel, is_master, bcast
-  use newton_cooling_hotJ, only: planetary_suffix
+  use rad_netwon_cooling_hot_jupiter, only: planetary_suffix
 
 !=======================================================================
@@ -80 +80 @@
   CHARACTER(len=20) :: rname="inifis" ! routine name, for messages
  
-  EXTERNAL iniorbit,orbite
+  EXTERNAL ephemeris_orbit_init,ephemeris_orbit
   EXTERNAL SSUM
   REAL SSUM