Changeset 2040 for LMDZ5/trunk/libf/phylmd/lmdz1d.F90

Timestamp:

May 9, 2014, 12:50:34 PM (10 years ago)

Author:

Ehouarn Millour

Message:

Added a "strato_custom" mode in disvert (for development purposes).
This is triggered by setting "vert_sampling=strato_custom" in a def file.

More work is needed to clean disvert (and merge it with disvert_noterre).
DC+EM

File:

• LMDZ5/trunk/libf/phylmd/lmdz1d.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/lmdz1d.F90

@@ -488 +488 @@
         print *,'On utilise disvert0'
       ELSE
-        call disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig,          &
-     &                 scaleheight)
+        call disvert()
         print *,'On utilise disvert'
 !       Nouvelle version disvert permettant d imposer ap,bp (modif L.Guez) MPL 18092012