Changeset 2002 for trunk/LMDZ.TITAN/libf

Timestamp:

Sep 23, 2018, 11:23:20 AM (6 years ago)

Author:

jvatant

Message:

Add horizontal wind diagnostic
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90 (modified) (3 diffs)

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

@@ -332 +332 @@
 !$OMP THREADPRIVATE(ztprevious,zuprevious)
 
+      real zhorizwind(ngrid,nlayer) ! Horizontal Wind ( sqrt(u**+v*v))
+
       real vmr(ngrid,nlayer)                        ! volume mixing ratio
       real time_phys
@@ -1311 +1313 @@
       endif
 
+      ! Horizotal wind
+      zhorizwind(:,:) = sqrt( zu(:,:)*zu(:,:) + zv(:,:)*zv(:,:) )
+
       ! Dynamical heating diagnostic.
       do ig=1,ngrid
@@ -1604 +1609 @@
       CALL send_xios_field("dudif",zdudif)
       CALL send_xios_field("dudyn",zdudyn)
+
+      CALL send_xios_field("horizwind",zhorizwind)
 
       ! Heating diagnostics.