Changeset 3899 for trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

Timestamp:

Aug 20, 2025, 9:10:36 AM (5 days ago)

Author:

slebonnois

Message:

SL Venus: cleanup dummy argument in clmain

File:

• trunk/LMDZ.VENUS/libf/phyvenus/clmain.F (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

@@ -566 +566 @@
 ! Parametres de sortie
       real fluxsens(klon)
-      real tsol_rad(klon), tsurf_new(klon), alb_new(klon)
+      real tsurf_new(klon), alb_new(klon)
 
       character (len = 20) :: modname = 'Debut clqh'
@@ -741 +741 @@
      e ts, pkh1, p1lay, radsol,
      s fluxsens, dflux_s,              
-     s tsol_rad, tsurf_new, alb_new) 
+     s tsurf_new, alb_new)