Changeset 1356 for trunk/LMDZ.TITAN/libf/phytitan/drag_noro.F

Timestamp:

Oct 8, 2014, 9:26:28 AM (10 years ago)

Author:

slebonnois

Message:

SL: update to newstart/start2archive tools in Venus+Titan / additional diagnostics in radiative fluxes for Titan

File:

• trunk/LMDZ.TITAN/libf/phytitan/drag_noro.F (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/drag_noro.F

@@ -30 +30 @@
 c paprs---input-R-Pressure in semi layers    (Pa)
 c pplay---input-R-Pressure model-layers      (Pa)
-c pgeop---input-R-Geopotential model layers      (m)
+c pgeop---input-R-Geopotential model layers (reference ground)
 c pn2-----input-R-Brunt-Vaisala freq.^2 at 1/2 layers
 c t-------input-R-temperature (K)
@@ -66 +66 @@
 c ================
 c
-c zgeom-----R: Altitude of layer above ground
+c zgeom-----R: Altitude (m) of layer above ground (from top to bottom)
 c pt, pu, pv --R: t u v from top to bottom
 c pdtdt, pdudt, pdvdt --R: t u v tendencies (from top to bottom) 
@@ -137 +137 @@
       DO k = klev, 1, -1
       DO i = 1, klon
-         zgeom(i,k) = pgeop(i,klev-k+1)
+         zgeom(i,k) = pgeop(i,klev-k+1)/RG
          zn2(i,k)   = pn2(i,klev-k+1)
       ENDDO