Changeset 2258 for LMDZ5/branches/testing/libf/phylmd/clcdrag.F90

Timestamp:

Apr 13, 2015, 10:21:09 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes 2216:2237 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/clcdrag.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/clcdrag.F90

@@ -61 +61 @@
   REAL, DIMENSION(klon) :: zgeop1       ! geopotentiel au 1er niveau du modele
   LOGICAL, PARAMETER    :: zxli=.FALSE. ! calcul des cdrags selon Laurent Li
+
+  CHARACTER (LEN=80) :: abort_message
+  CHARACTER (LEN=20) :: modname = 'clcdrag'
+
+
 !
 ! Fonctions thermodynamiques et fonctions d'instabilite
@@ -66 +71 @@
   fsta(x) = 1.0 / (1.0+10.0*x*(1+8.0*x))
   fins(x) = SQRT(1.0-18.0*x)
+
+  abort_message='obsolete, remplace par cdrag, use at you own risk'
+  CALL abort_gcm(modname,abort_message,1)
+
+
 
 ! ================================================================= c