Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume_6A.f90

    r5434 r5512  
    216216
    217217   ztemp(:)=zpspsk(:,l)*ztla(:,l-1)
    218    call thermcell_qsat(ngrid,active,pplev(:,l),ztemp,zqta(:,l-1),zqsat(:))
     218   call thermcell_qsat(ngrid, 1, active,pplev(:,l),ztemp,zqta(:,l-1),zqsat(:))
    219219    do ig=1,ngrid
    220220!       print*,'active',active(ig),ig,l
    … …  
    556556
    557557   ztemp(:)=zpspsk(:,l)*ztla(:,l)
    558    call thermcell_qsat(ngrid,activetmp,pplev(:,l),ztemp,zqta(:,l),zqsatth(:,l))
     558   call thermcell_qsat(ngrid, 1, activetmp,pplev(:,l),ztemp,zqta(:,l),zqsatth(:,l))
    559559   do ig=1,ngrid
    560560      if (activetmp(ig)) then
    … …  
    917917
    918918   ztemp(:)=zpspsk(:,l)*ztla(:,l-1)
    919    call thermcell_qsat(ngrid,active,pplev(:,l),ztemp,zqta(:,l-1),zqsat(:))
     919   call thermcell_qsat(ngrid, 1, active,pplev(:,l),ztemp,zqta(:,l-1),zqsat(:))
    920920
    921921    do ig=1,ngrid
    … …  
    10051005
    10061006   ztemp(:)=zpspsk(:,l)*ztla(:,l)
    1007    call thermcell_qsat(ngrid,activetmp,pplev(:,l),ztemp,zqta(:,l),zqsatth(:,l))
     1007   call thermcell_qsat(ngrid, 1, activetmp,pplev(:,l),ztemp,zqta(:,l),zqsatth(:,l))
    10081008
    10091009   do ig=1,ngrid
Note: See TracChangeset for help on using the changeset viewer.