Changeset 5202 for LMDZ6/branches/cirrus/libf/phylmd/cdrag_mod.F90

Timestamp:

Sep 20, 2024, 12:32:04 PM (8 weeks ago)

Author:

Laurent Fairhead

Message:

Updating cirrus branch to trunk revision 5171

Location:

LMDZ6/branches/cirrus

Files:

• . (modified) (1 prop)
• libf/phylmd/cdrag_mod.F90 (modified) (2 diffs)

LMDZ6/branches/cirrus/libf/phylmd/cdrag_mod.F90

@@ -23 +23 @@
 
   USE dimphy
+  USE coare_cp_mod, ONLY: coare_cp
+  USE coare30_flux_cnrm_mod, ONLY: coare30_flux_cnrm
   USE indice_sol_mod
   USE print_control_mod, ONLY: lunout, prt_level
@@ -341 +343 @@
          LPWG    = .false.
          call ini_csts
-         call coare30_flux_cnrm(z_0m,t1(i),tsurf(i), q1(i),  &
-             sqrt(zdu2),zgeop1(i)/RG,zgeop1(i)/RG,psol(i),qsurf(i),PQSAT, &
-             PSFTH,PFSTQ,PUSTAR,PCD,PCDN,PCH,PCE,PRI, &
-             PRESA,prain,pat1(i),z_0h, LPRECIP, LPWG, coeffs) 
+         block
+           real, dimension(1) :: z0m_1d, z_0h_1d, sqrt_zdu2_1d, zgeop1_rg_1d  ! convert scalar to 1D for call
+           z0m_1d = z0m
+           z_0h_1d = z0h
+           sqrt_zdu2_1d = sqrt(zdu2)
+           zgeop1_rg_1d=zgeop1(i)/RG
+           call coare30_flux_cnrm(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)
+
+         end block
          cdmm(i) = coeffs(1)
          cdhh(i) = coeffs(2)