Changeset 776 for trunk/LMDZ.COMMON/libf/dyn3d/etat0_netcdf.F90

Timestamp:

Sep 7, 2012, 2:49:58 PM (12 years ago)

Author:

emillour

Message:

Common dynamics: updates to keep up with LMDZ5 Earth (rev 1649)
See file "DOC/chantiers/commit_importants.log" for details.
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d/etat0_netcdf.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/etat0_netcdf.F90

@@ -1 +1 @@
 !
-! $Id: etat0_netcdf.F90 1520 2011-05-23 11:37:09Z emillour $
+! $Id: etat0_netcdf.F90 1625 2012-05-09 13:14:48Z lguez $
 !
 !-------------------------------------------------------------------------------
@@ -251 +251 @@
 !*******************************************************************************
   CALL pression(ip1jmp1, ap, bp, psol, p3d)
-  if (disvert_type.eq.1) then
+  if (pressure_exner) then
     CALL exner_hyb(ip1jmp1, psol, p3d, alpha, beta, pks, pk, y)
-  else ! we assume that we are in the disvert_type==2 case
+  else
     CALL exner_milieu(ip1jmp1,psol,p3d,beta,pks,pk,y)
   endif