Changeset 4631 for LMDZ6/trunk/libf/phylmd/call_atke_mod.F90

Timestamp:

Jul 18, 2023, 11:36:49 AM (12 months ago)

Author:

evignon

Message:

commission pour l'atelier TKE avec introduction d'une resolution pronostique
de lequation de la tke

File:

• LMDZ6/trunk/libf/phylmd/call_atke_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/call_atke_mod.F90

@@ -54 +54 @@
 
 
-call atke_compute_km_kh(ngrid,nlay, &
+call atke_compute_km_kh(ngrid,nlay,dtime,&
                         wind_u,wind_v,temp,play,pinterf, &
                         tke,Km_out,Kh_out)
@@ -70 +70 @@
 
 
-   call atke_compute_km_kh(ngrid,nlay, &
+   call atke_compute_km_kh(ngrid,nlay,dtime,&
                         wind_u_predict,wind_v_predict,temp,play,pinterf, &
                         tke,Km_out,Kh_out)