Changeset 5512 for LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume.f90

Timestamp:

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

Author:

yann meurdesoif

Message:

Implement GPU automatic port for :

• Thermics
• acama_gwd_rando
• flott_gwd_rando

YM

File:

• LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume.f90

@@ -218 +218 @@
 
    ztemp(:)=zpspsk(:,l)*ztla(:,l-1)
-   call thermcell_qsat(ngrid,active,pplev(:,l),ztemp,zqta(:,l-1),zqsat(:))
+   call thermcell_qsat(ngrid, 1, active,pplev(:,l),ztemp,zqta(:,l-1),zqsat(:))
     do ig=1,ngrid 
 !       print*,'active',active(ig),ig,l
@@ -351 +351 @@
 
    ztemp(:)=zpspsk(:,l)*ztla(:,l)
-   call thermcell_qsat(ngrid,activetmp,pplev(:,l),ztemp,zqta(:,l),zqsatth(:,l))
+   call thermcell_qsat(ngrid, 1, activetmp,pplev(:,l),ztemp,zqta(:,l),zqsatth(:,l))
    do ig=1,ngrid
       if (activetmp(ig)) then