Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/phys_output_var_mod.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (7 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_output_var_mod.f90 (modified) (4 diffs)

LMDZ6/branches/contrails/libf/phylmd/phys_output_var_mod.f90

@@ -105 +105 @@
   INTEGER, DIMENSION(nfiles), SAVE :: nnhorim
   INTEGER, DIMENSION(nfiles), SAVE :: nhorim, nvertm
+  INTEGER, DIMENSION(nfiles), SAVE :: ncanaux  !FC
+  !$OMP THREADPRIVATE(ncanaux)
   INTEGER, DIMENSION(nfiles), SAVE :: nvertap, nvertbp, nvertAlt
   REAL, DIMENSION(nfiles), SAVE                :: zoutm
@@ -179 +181 @@
   !$OMP THREADPRIVATE(cloud_cover_sw, cloud_cover_sw_s2)
 
+  ! Direct-beam shortwave into a horizontal plane
+  REAL, SAVE, ALLOCATABLE :: ZFLUX_DIR(:,:), ZFLUX_DIR_CLEAR(:,:), &
+         &     ZFLUX_DIR_s2(:,:), ZFLUX_DIR_CLEAR_s2(:,:)
+  !$OMP THREADPRIVATE(ZFLUX_DIR, ZFLUX_DIR_CLEAR, ZFLUX_DIR_s2, ZFLUX_DIR_CLEAR_s2)
+  REAL, SAVE, ALLOCATABLE :: ZFLUX_DIR_SUN(:), ZFLUX_DIR_SUN_s2(:)
+  !$OMP THREADPRIVATE(ZFLUX_DIR_SUN, ZFLUX_DIR_SUN_s2)
+
 CONTAINS
 
@@ -252 +261 @@
     ALLOCATE(icc3dstra(klon, klev))
 
-    ! cloud_cover_sw, cloud_cover_sw_s2 from Ecrad
+! cloud_cover_sw, cloud_cover_sw_s2 from Ecrad
     ALLOCATE(cloud_cover_sw(klon))
     ALLOCATE(cloud_cover_sw_s2(klon))
+    ALLOCATE(ZFLUX_DIR(klon,klev+1))
+    ALLOCATE(ZFLUX_DIR_CLEAR(klon,klev+1))
+    ALLOCATE(ZFLUX_DIR_s2(klon,klev+1))
+    ALLOCATE(ZFLUX_DIR_CLEAR_s2(klon,klev+1))
+    ALLOCATE(ZFLUX_DIR_SUN(klon))
+    ALLOCATE(ZFLUX_DIR_SUN_s2(klon))
 
   END SUBROUTINE phys_output_var_init
@@ -308 +323 @@
     !AI cloud_cover_sw, cloud_cover_sw_s2 from Ecrad
     DEALLOCATE(cloud_cover_sw, cloud_cover_sw_s2)
+    DEALLOCATE(ZFLUX_DIR, ZFLUX_DIR_CLEAR, ZFLUX_DIR_s2, ZFLUX_DIR_CLEAR_s2)
+    DEALLOCATE(ZFLUX_DIR_SUN, ZFLUX_DIR_SUN_s2)
 
   END SUBROUTINE phys_output_var_end