Changeset 2291 for trunk/LMDZ.TITAN/libf/phytitan/turbdiff.F90

Timestamp:

Apr 17, 2020, 4:58:05 PM (5 years ago)

Author:

mlefevre

Message:

MESOSCALE. Implementation of mesoscale architecture for Titan physics. See MESOSCALE flags.

File:

• trunk/LMDZ.TITAN/libf/phytitan/turbdiff.F90 (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/turbdiff.F90

@@ -10 +10 @@
       use comcstfi_mod, only: rcp, g, r, cpp
       use callkeys_mod, only: tracer,nosurf
+      use turb_mod, only : ustar
 
       implicit none
@@ -327 +328 @@
          zcdh(ig) = zcdh_true(ig)*sqrt(zu2)
          zkh(ig,1)= zcdh(ig)
+         ustar(ig)= sqrt(zcdv_true(ig))*sqrt(zu2)
       ENDDO