Changeset 1521 for LMDZ5/trunk/libf/dyn3dpar/exner_milieu_p.F

Timestamp:

May 23, 2011, 6:26:21 PM (14 years ago)

Author:

Ehouarn Millour

Message:

Fix silly bug on wrong sanity check (shame on me).
EM

File:

• LMDZ5/trunk/libf/dyn3dpar/exner_milieu_p.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/exner_milieu_p.F

@@ -58 +58 @@
         ! check that vertical discretization is compatible
         ! with this routine
-        if (disvert_type.ne.1) then
+        if (disvert_type.ne.2) then
           call abort_gcm(modname,
-     &     "this routine should only be called if disvert_type==1",42)
+     &     "this routine should only be called if disvert_type==2",42)
         endif