Changeset 3899

Timestamp:

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

Author:

slebonnois

Message:

SL Venus: cleanup dummy argument in clmain

Location:

trunk/LMDZ.VENUS/libf/phyvenus

Files:

• clmain.F (modified) (2 diffs)
• interface_surf.F90 (modified) (3 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) 
 
 

trunk/LMDZ.VENUS/libf/phyvenus/interface_surf.F90

@@ -44 +44 @@
       & tsurf, pkh1, p1lay, radsol, &
       & fluxsens, dflux_s, &              
-      & tsol_rad, tsurf_new, alb_new)
+      & tsurf_new, alb_new)
 
       use write_field_phy
@@ -94 +94 @@
 ! output:
 !   fluxsens     flux de chaleur sensible
-!   tsol_rad     
 !   tsurf_new    temperature au sol
 !   alb_new      albedo
@@ -131 +130 @@
 ! Parametres de sortie
   real, dimension(klon), intent(OUT):: fluxsens
-  real, dimension(klon), intent(OUT):: tsol_rad, tsurf_new, alb_new
+  real, dimension(klon), intent(OUT):: tsurf_new, alb_new
   real, dimension(klon), intent(OUT):: dflux_s