Changeset 4758 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/phys_output_var_mod.F90

Timestamp:

Dec 1, 2023, 10:09:29 PM (6 months ago)

Author:

idelkadi

Message:

• Update of Ecrad in LMDZ version 1.6.1 ​https://github.com/lguez/ecrad.git
• Continuation of work on the implementation of the double call of Ecrad in LMDZ

File:

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

LMDZ6/branches/LMDZ_ECRad/libf/phylmd/phys_output_var_mod.F90

@@ -174 +174 @@
   REAL, SAVE, ALLOCATABLE:: sss(:) ! (klon)
   ! bulk salinity of the surface layer of the ocean, in ppt
-  
   !$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
 
-  !======================================================================
+  !=====================================================taur=================
   SUBROUTINE phys_output_var_init
     use dimphy
@@ -253 +256 @@
     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 +311 @@
     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