Changeset 1665 for LMDZ5/branches/testing/libf/dyn3dpar/exner_milieu_p.F

Timestamp:

Oct 9, 2012, 3:35:26 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1628

http://lmdz.lmd.jussieu.fr/utilisateurs/distribution-du-modele/versions-intermediaires

---

Testing release based on r1628

Location:

LMDZ5/branches/testing

Files:

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

LMDZ5/branches/testing/libf/dyn3dpar/exner_milieu_p.F

@@ -56 +56 @@
       ! Sanity check
       if (firstcall) then
-        ! check that vertical discretization is compatible
-        ! with this routine
-        if (disvert_type.ne.2) then
-          call abort_gcm(modname,
-     &     "this routine should only be called if disvert_type==2",42)
-        endif
-        
         ! sanity checks for Shallow Water case (1 vertical layer)
         if (llm.eq.1) then