Changeset 5512 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jan 28, 2025, 7:07:51 PM (9 days ago)

Author:

yann meurdesoif

Message:

Implement GPU automatic port for :

• Thermics
• acama_gwd_rando
• flott_gwd_rando

YM

File:

• LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -928 +928 @@
       ALLOCATE(dv_gwd_rando(klon,klev),dv_gwd_front(klon,klev))
       ALLOCATE(east_gwstress(klon,klev),west_gwstress(klon,klev))
-      east_gwstress(:,:)=0 !ym missing init
-      west_gwstress(:,:)=0 !ym missing init
+      east_gwstress(:,:)=0. !ym missing init
+      west_gwstress(:,:)=0. !ym missing init
       ALLOCATE(d_t_hin(klon,klev))
       ALLOCATE(d_q_ch4(klon,klev))