Changeset 5657 for LMDZ6

Timestamp:

May 15, 2025, 8:25:32 PM (6 weeks ago)

Author:

idelkadi

Message:

Correction following the last update (Variables declared under the CPP ECRAD key)

File:

• LMDZ6/trunk/libf/phylmd/radlwsw_m.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/radlwsw_m.F90 ¶

@@ -309 +309 @@
 
     REAL(KIND=8) cloud_cover_sw(klon)
+    REAL(KIND=8), dimension(klon,klev+1) :: ZFLUX_DIR_i, &           ! Direct compt of surf flux into horizontal plane
+                                            ZFLUX_DIR_CLEAR_i        ! CS Direct
+    REAL(KIND=8), dimension(klon,klev+1) :: ZFLUX_DIR, &           ! Direct compt of surf flux into horizontal plane
+                                            ZFLUX_DIR_CLEAR        ! CS Direct
+    REAL(KIND=8), dimension(klon)        :: ZFLUX_DIR_INTO_SUN
 
 !!!!!!! Declarations specifiques pour ECRAD !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -335 +340 @@
          ZAEROSOL(KLON,KLEV,naero_spc) !
     ! Interm
-    REAL(KIND=8), dimension(klon,klev+1) :: ZFLUX_DIR_i, &           ! Direct compt of surf flux into horizontal plane
-                                             ZFLUX_DIR_CLEAR_i        ! CS Direct
-    ! OUTPUTS
-    REAL(KIND=8), dimension(klon,klev+1) :: ZFLUX_DIR, &           ! Direct compt of surf flux into horizontal plane
-                                                         ZFLUX_DIR_CLEAR        ! CS Direct 
-    REAL(KIND=8), dimension(klon)        ::  ZFLUX_DIR_INTO_SUN, &  ! 
-                                                 ZFLUX_UV, &            ! UV flux
+    REAL(KIND=8), dimension(klon)                ZFLUX_UV, &            ! UV flux
                                                  ZFLUX_PAR, &           ! photosynthetically active radiation similarly
                                                  ZFLUX_PAR_CLEAR, &     ! CS photosynthetically