Changeset 1625 for LMDZ5/trunk/libf/dyn3dpar/exner_hyb_p.F

Timestamp:

May 9, 2012, 3:14:48 PM (13 years ago)

Author:

lguez

Message:

Created logical variable "pressure_exner". "pressure_exner" replaces
"disvert_type" to choose between calls to "exner_hyb" and
"exner_milieu". If "pressure_exner" is true, pressure inside layers is
computed from Exner function ("exner_hyb"), else it is the mean of
pressure values at interfaces ("exner_milieu"). "disvert_type" now
only chooses between "disvert" and "disvert_noterre". Default value
for "pressure_exner" is true if "disvert_type" equals 1.

File:

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

LMDZ5/trunk/libf/dyn3dpar/exner_hyb_p.F

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