Changeset 2040 for LMDZ5/trunk/libf/dyn3d_common/iniconst.F90

Timestamp:

May 9, 2014, 12:50:34 PM (11 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/dyn3d_common/iniconst.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d_common/iniconst.F90

@@ -73 +73 @@
   if (disvert_type==1) then
      ! standard case for Earth (automatic generation of levels)
-     call disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig, scaleheight)
+     call disvert()
   else if (disvert_type==2) then
      ! standard case for planets (levels generated using z2sig.def file)