Changeset 5828 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

Sep 23, 2025, 4:32:02 PM (2 months ago)

Author:

rkazeroni

Message:

For GPU porting of call_cloud_optics_prop routine:

• Add "horizontal" comment to specify possible names of horizontal variables
• Put routine into module (speeds up source-to-source transformation)
• Move declaration of variable with SAVE attribute outside of the compute routine to the module
• Record event with a 2D "first" array instead of a scalar to enable GPU porting
• Perform reduction on this "first" array and print (once) outside of the compute routine since this cannot be done on GPU in the current form

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -52 +52 @@
     USE netcdf95, only: nf95_close
     USE netcdf, only: nf90_fill_real     ! IM for NMC files
+    USE nuage_mod, ONLY: nuage, diagcld1, diagcld2
     USE open_climoz_m, only: open_climoz ! ozone climatology from a file
     USE orografi_mod, ONLY: drag_noro, lift_noro, sugwd
@@ -930 +931 @@
     EXTERNAL conema3  ! convect4.3
     EXTERNAL hgardfou  ! verifier les temperatures
-    EXTERNAL nuage     ! calculer les proprietes radiatives
+    ! EXTERNAL nuage     ! calculer les proprietes radiatives
     !C      EXTERNAL o3cm      ! initialiser l'ozone
     EXTERNAL orbite    ! calculer l'orbite terrestre
@@ -2027 +2028 @@
           ENDIF
        ENDIF   
-       CALL cloud_optics_prop_ini(klon, prt_level, lunout, flag_aerosol, &
+       CALL cloud_optics_prop_ini(klon, klev, prt_level, lunout, flag_aerosol, &
                                   & ok_cdnc, bl95_b0, &
                                   & bl95_b1, latitude_deg, rpi, rg, rd, &