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

Timestamp:

Jul 26, 2023, 10:59:36 PM (14 months ago)

Author:

evignon

Message:

modifications en vue de la reprise de l'atelier tke a la rentree

File:

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

LMDZ6/trunk/libf/phylmd/call_atke_mod.F90

@@ -55 +55 @@
 
 call atke_compute_km_kh(ngrid,nlay,dtime,&
-                        wind_u,wind_v,temp,play,pinterf, &
+                        wind_u,wind_v,temp,play,pinterf, cdrag_uv,&
                         tke,Km_out,Kh_out)
 
+
+                               
 if (iflag_num_atke .EQ. 1) then
-
+   !! In this case, we make an explicit prediction of the wind shear to calculate the tke in a
+   !! forward backward way
    !! pay attention that the treatment of the TKE
    !! has to be adapted when solving the TKE with a prognostic equation
@@ -71 +74 @@
 
    call atke_compute_km_kh(ngrid,nlay,dtime,&
-                        wind_u_predict,wind_v_predict,temp,play,pinterf, &
+                        wind_u_predict,wind_v_predict,temp,play,pinterf,cdrag_uv, &
                         tke,Km_out,Kh_out)
 
 end if
+
+
+
+
+
 
 end subroutine call_atke