Changeset 5820 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Sep 17, 2025, 2:50:16 PM (2 months ago)

Author:

rkazeroni

Message:

For GPU porting of ratqs_main routine:

• Add "horizontal" comment to specify possible names of horizontal variables
• Move computation of maxval into an initialization routine as this cannot be GPU ported
• Fix wrong dimensionality of wake_s in the argument declaration
• Change problematic variable initializations at declaration (SAVE attribute implied) by either adding a PARAMETER attribute or moving the initialization

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -99 +99 @@
     USE lmdz_blowing_snow_ini, ONLY : blowing_snow_ini , qbst_bs
     USE lmdz_lscp_ini, ONLY : lscp_ini
-    USE lmdz_ratqs_main, ONLY : ratqs_main
+    USE lmdz_ratqs_main, ONLY : ratqs_main, ratqs_main_first
     USE lmdz_ratqs_ini, ONLY : ratqs_ini
     USE lmdz_cloud_optics_prop_ini, ONLY : cloud_optics_prop_ini
@@ -3931 +3931 @@
     ENDDO
 
+    CALL ratqs_main_first(klon, cell_area)
     CALL ratqs_main(klon,klev,nbsrf,prt_level,lunout,        &
          iflag_ratqs,iflag_con,iflag_cld_th,pdtphys,  &