Changeset 5981 for LMDZ6/trunk

Timestamp:

Dec 19, 2025, 2:46:21 PM (12 days ago)

Author:

yann meurdesoif

Message:

Fix to help gpumorphosis to parse correctly.
Subroutine with same name in different module confuse gpum.
=> to restore later when fixed.
merge of commit r5930
YM

File:

• LMDZ6/trunk/libf/phylmd/climb_hq_mod.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/climb_hq_mod.f90

@@ -224 +224 @@
 !****************************************************************************************
     
-    CALL calc_coef(knon, yKcoefhq, ygamaq, delp, q, &
+    CALL calc_coef_wd(knon, yKcoefhq, ygamaq, delp, q, &
          yCcoef_Q, yDcoef_Q, yAcoef_Q, yBcoef_Q)
 
@@ -242 +242 @@
     ENDDO
 
-    CALL calc_coef(knon, yKcoefhq, ygamah, delp, yh_old, &
+    CALL calc_coef_wd(knon, yKcoefhq, ygamah, delp, yh_old, &
          yCcoef_H, yDcoef_H, yAcoef_H, yBcoef_H)
  
@@ -313 +313 @@
 !****************************************************************************************
 !
-  SUBROUTINE calc_coef(knon, Kcoef, gama, delp, X, Ccoef, Dcoef, Acoef, Bcoef)
+  SUBROUTINE calc_coef_wd(knon, Kcoef, gama, delp, X, Ccoef, Dcoef, Acoef, Bcoef)
 !$gpum horizontal knon
 !
@@ -376 +376 @@
     END DO
 
-  END SUBROUTINE calc_coef
+  END SUBROUTINE calc_coef_wd
 !
 !****************************************************************************************