Changeset 4773 for LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90

Timestamp:

Dec 14, 2023, 11:00:52 PM (6 months ago)

Author:

idelkadi

Message:

• Update of Ecrad in LMDZ The same organization of the Ecrad offline version is retained in order to facilitate the updating of Ecrad in LMDZ and the comparison between online and offline results. version 1.6.1 of Ecrad (​https://github.com/lguez/ecrad.git)

• Implementation of the double call of Ecrad in LMDZ

File:

• LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -177 +177 @@
   !$OMP THREADPRIVATE(tkt, tks, taur, sss)
 
+  !AI. cloud_cover_sw, cloud_cover_sw_s2 from Ecrad (1rt and 2 call)
+  REAL, SAVE, ALLOCATABLE:: cloud_cover_sw(:), cloud_cover_sw_s2(:)
+  !$OMP THREADPRIVATE(cloud_cover_sw, cloud_cover_sw_s2)
+
 CONTAINS
 
@@ -253 +257 @@
     ALLOCATE(icc3dstra(klon, klev))
 
+    ! cloud_cover_sw, cloud_cover_sw_s2 from Ecrad
+    ALLOCATE(cloud_cover_sw(klon))
+    ALLOCATE(cloud_cover_sw_s2(klon))
+
   END SUBROUTINE phys_output_var_init
 
@@ -304 +312 @@
     DEALLOCATE(icc3dstra)
 
+    !AI cloud_cover_sw, cloud_cover_sw_s2 from Ecrad
+    DEALLOCATE(cloud_cover_sw, cloud_cover_sw_s2)
+
   END SUBROUTINE phys_output_var_end