Changeset 6083 for LMDZ6


Ignore:
Timestamp:
Feb 26, 2026, 10:03:45 AM (25 hours ago)
Author:
rkazeroni
Message:

Revert temporary changes for GPU-Morphosis (revs 5979, 5981) no longer needed

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r6078 r6083  
    208208  CHARACTER(len=80) :: abort_message
    209209  CHARACTER(len=20) :: modname = 'pbl_surface_newfrac'                                                                     ! convert scalar to 1D for call
    210   INTEGER :: fake ! for gpum
    211   fake=lunout
    212210
    213211

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

    r5981 r6083  
    224224!****************************************************************************************
    225225   
    226     CALL calc_coef_wd(knon, yKcoefhq, ygamaq, delp, q, &
     226    CALL calc_coef(knon, yKcoefhq, ygamaq, delp, q, &
    227227         yCcoef_Q, yDcoef_Q, yAcoef_Q, yBcoef_Q)
    228228
    … …  
    242242    ENDDO
    243243
    244     CALL calc_coef_wd(knon, yKcoefhq, ygamah, delp, yh_old, &
     244    CALL calc_coef(knon, yKcoefhq, ygamah, delp, yh_old, &
    245245         yCcoef_H, yDcoef_H, yAcoef_H, yBcoef_H)
    246246 
    … …  
    313313!****************************************************************************************
    314314!
    315   SUBROUTINE calc_coef_wd(knon, Kcoef, gama, delp, X, Ccoef, Dcoef, Acoef, Bcoef)
     315  SUBROUTINE calc_coef(knon, Kcoef, gama, delp, X, Ccoef, Dcoef, Acoef, Bcoef)
    316316!$gpum horizontal knon
    317317!
    … …  
    376376    END DO
    377377
    378   END SUBROUTINE calc_coef_wd
     378  END SUBROUTINE calc_coef
    379379!
    380380!****************************************************************************************
Note: See TracChangeset for help on using the changeset viewer.