Changeset 5953 for LMDZ6/trunk

Timestamp:

Dec 18, 2025, 6:54:06 PM (3 weeks ago)

Author:

yann meurdesoif

Message:

Desactivate call of ecumev6_flux, coare30_flux_cnrm, and coare_cp
need to be refactored to work properly.
YM

File:

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

LMDZ6/trunk/libf/phylmd/cdrag_mod.f90

@@ -206 +206 @@
   LOGICAL               :: LPWG
   real, dimension(1) :: z0m_1d, z_0h_1d, sqrt_zdu2_1d, zgeop1_rg_1d  ! Pour COARE CNRM
-                                                                     ! convert scalar to 1D for call
+  CHARACTER(len=80) :: abort_message
+  CHARACTER(len=20) :: modname = 'pbl_surface_newfrac'                                                                     ! convert scalar to 1D for call
 
 
@@ -339 +340 @@
          ENDIF
 !         call ini_csts
-!$gpum nocall 
-          call ecumev6_flux( knon, 1, z_0m,t1(i),tsurf(i),&
-             q1(i),qsurf(i),sqrt(zdu2),zgeop1(i)/RG,PSSS,zgeop1(i)/RG,&
-             psol(i),pat1(i), OPRECIP, OPWEBB,&
-             PSFTH,PFSTQ,PUSTAR,PCD,PCDN,&
-             PCH,PCE,PRI,PRESA,prain,&
-             z_0h,OPERTFLUX,coeffs)
-
+!!$gpum nocall 
+!ym : bricolage à la petite semaine, ne peut pas marcher sauf en 1D, et encore, incorrecte syntaxiquement (SCALAR<->ARRAY)
+!ym desactivated
+!          call ecumev6_flux( i, knon, 1, z_0m,t1(i),tsurf(i),&
+!             q1(i),qsurf(i),sqrt(zdu2),zgeop1(i)/RG,PSSS,zgeop1(i)/RG,&
+!             psol(i),pat1(i), OPRECIP, OPWEBB,&
+!             PSFTH,PFSTQ,PUSTAR,PCD,PCDN,&
+!             PCH,PCE,PRI,PRESA,prain,&
+!             z_0h,OPERTFLUX,coeffs)
+         abort_message="cannot call ecumev6_flux, routine mut be refactored"
+         CALL abort_physic(modname,abort_message,1)
          cdmm(i) = coeffs(1)
          cdhh(i) = coeffs(2)
@@ -365 +369 @@
            zgeop1_rg_1d=zgeop1(i)/RG
 
-!$gpum nocall
-           call coare30_flux_cnrm(1, z0m_1d,t1(i),tsurf(i), q1(i),  &
-               sqrt_zdu2_1d,zgeop1_rg_1d,zgeop1_rg_1d,psol(i),qsurf(i),PQSAT, &
-               PSFTH,PFSTQ,PUSTAR,PCD,PCDN,PCH,PCE,PRI, &
-               PRESA,prain,pat1(i),z_0h_1d, LPRECIP, LPWG, coeffs)
-
+!!$gpum nocall 
+!ym : bricolage à la petite semaine, ne peut pas marcher sauf en 1D, et encore, incorrecte syntaxiquement (SCALAR<->ARRAY)
+!ym desactivated
+!           call coare30_flux_cnrm(1, z0m_1d,t1(i),tsurf(i), q1(i),  &
+!               sqrt_zdu2_1d,zgeop1_rg_1d,zgeop1_rg_1d,psol(i),qsurf(i),PQSAT, &
+!               PSFTH,PFSTQ,PUSTAR,PCD,PCDN,PCH,PCE,PRI, &
+!               PRESA,prain,pat1(i),z_0h_1d, LPRECIP, LPWG, coeffs)
+         abort_message="cannot call coare30_flux_cnrm, routine mut be refactored"
+         CALL abort_physic(modname,abort_message,1)
          cdmm(i) = coeffs(1)
          cdhh(i) = coeffs(2)
@@ -384 +391 @@
          write(*,*) "debug size",size(coeffs)
 
-!$gpum nocall
-         call coare_cp(sqrt(zdu2),t1(i)-tsurf(i),q1(i)-qsurf(i),&
-               t1(i),q1(i),&
-               zgeop1(i)/RG,zgeop1(i)/RG,zgeop1(i)/RG,&
-               psol(i), pblh(i),&
-               nit_bulk,&
-               coeffs,z_0m,z_0h)
+!!$gpum nocall 
+!ym : bricolage à la petite semaine, ne peut pas marcher sauf en 1D, et encore, incorrecte syntaxiquement (SCALAR<->ARRAY)
+!ym desactivated
+!ym         call coare_cp(sqrt(zdu2),t1(i)-tsurf(i),q1(i)-qsurf(i),&
+!ym               t1(i),q1(i),&
+!ym               zgeop1(i)/RG,zgeop1(i)/RG,zgeop1(i)/RG,&
+!ym               psol(i), pblh(i),&
+!ym               nit_bulk,&
+!ym               coeffs,z_0m,z_0h)
+         abort_message="cannot call coare_cp, routine mut be refactored"
+         CALL abort_physic(modname,abort_message,1)
+
          cdmm(i) = coeffs(1)
          cdhh(i) = coeffs(3)