Changeset 1778 in lmdz_wrf

Timestamp:

Feb 21, 2018, 4:27:46 PM (7 years ago)

Author:

lfita

Message:

Extrapolation of 'wz100' between layers

File:

• trunk/tools/module_ForDiagnosticsVars.f90 (modified) (1 diff)

trunk/tools/module_ForDiagnosticsVars.f90

@@ -1060 +1060 @@
     IF (z(1) < newz ) THEN
       DO inear = 1,d1-2
-        zaground = z(inear+2)
+        ! L. Fita, CIMA. Feb. 2018
+        !! Choose between extra/inter-polate. Maybe better interpolate?
+        ! Here we extrapolate from two closest lower levels
+        !zaground = z(inear+2)
+        zaground = z(inear+1)
         !PRINT *, inear, z(inear), newz, z(inear+1), z(inear+2)
         IF ( zaground >= newz) EXIT