Changeset 4735

Timestamp:

Oct 23, 2023, 11:10:25 PM (7 months ago)

Author:

oboucher

Message:

rain_f should be intent IN only as it is not modified in pbl_surface

File:

• LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -348 +348 @@
     REAL, DIMENSION(klon),        INTENT(IN)        :: rugoro  ! rugosity length
     REAL, DIMENSION(klon),        INTENT(IN)        :: rmu0    ! cosine of solar zenith angle
-    REAL, DIMENSION(klon),        INTENT(INOUT)     :: rain_f  ! rain fall
+    REAL, DIMENSION(klon),        INTENT(IN)        :: rain_f  ! rain fall
     REAL, DIMENSION(klon),        INTENT(IN)        :: snow_f  ! snow fall
     REAL, DIMENSION(klon),        INTENT(IN)        :: bs_f  ! blowing snow fall