Changeset 4478 for LMDZ6/trunk/libf/phylmd/screenc_mod.F90

Timestamp:

Mar 27, 2023, 4:25:12 PM (15 months ago)

Author:

evignon

Message:

commission sur le melange turbulent et les cdrag suite au dernier atelier tke

File:

• LMDZ6/trunk/libf/phylmd/screenc_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/screenc_mod.F90

@@ -70 +70 @@
 ! Variables locales  
       INTEGER :: i 
-      REAL, dimension(klon) :: cdram, cdrah, cdran, zri1, gref,ycdragm
+      REAL, dimension(klon) :: cdram, cdrah, cdran, zri1, gref,ycdragm,zri_zero
 !
 !------------------------------------------------------------------------- 
@@ -89 +89 @@
                     speed, temp, q_zref, gref, &
                     psol, ts, qsurf, z0m, z0h, &
+                    zri_zero,0,                &
                     cdram, cdrah, zri1, pref)
       DO i = 1, knon
@@ -177 +178 @@
 ! Richardson at reference level 
 !
-      CALL cdragn_ri1 (knon, nsrf, &
+      CALL cdrag(knon, nsrf, &
                     speed, temp, q_zref, gref, &
                     psol, ts, qsurf, z0m, z0h, &