Changeset 2408 for LMDZ5/branches/testing/libf/phylmd/thermcell.F90

Timestamp:

Dec 14, 2015, 11:43:09 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2298:2396 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/thermcell.F90 (modified) (3 diffs)

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

@@ -34 +34 @@
   ! -------------
 
-  include "dimensions.h"
-  ! ccc#include "dimphy.h"
   include "YOMCST.h"
 
@@ -766 +764 @@
       IF (fracd(ig,l)<0.1) THEN
         abort_message = 'fracd trop petit'
-        CALL abort_gcm(modname, abort_message, 1)
+        CALL abort_physic(modname, abort_message, 1)
 
       ELSE
@@ -998 +996 @@
   IMPLICIT NONE
 
-  include "dimensions.h"
-  ! ccc#include "dimphy.h"
   include "YOMCST.h"