Changeset 6087 for LMDZ6/trunk/libf/phylmd/macv2sp.f90

Timestamp:

Mar 4, 2026, 12:19:59 AM (9 days ago)

Author:

fhourdin

Message:

Correction bug axe des temps aérosols SP

File:

• LMDZ6/trunk/libf/phylmd/macv2sp.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/macv2sp.f90

@@ -14 +14 @@
   !
   USE mo_simple_plumes, ONLY: sp_aop_profile
-  USE phys_cal_mod, ONLY : year_cur, day_cur, year_len
+  USE phys_cal_mod, ONLY : year_cur, year_len, days_elapsed
   USE dimphy
   USE aero_mod
@@ -80 +80 @@
   !--fractional year
   !
-  year_fr = FLOAT(year_cur) + (FLOAT(day_cur)-0.5) / FLOAT(year_len)
+  ! Adriana Sima et FH : Version bugguée :
+  ! year_fr = FLOAT(year_cur) + (FLOAT(day_cur)-0.5) / FLOAT(year_len)
+  year_fr=year_cur+days_elapsed/float(year_len)
+
   IF (year_fr.LT.1850.0.OR.year_fr.GE.2021.0) THEN
      CALL abort_physic ('macv2sp','year not supported by plume model',1)