Changeset 2408 for LMDZ5/branches/testing/libf/phylmd/cv30_routines.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/cv30_routines.F90 (modified) (2 diffs)

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

@@ -733 +733 @@
     iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, buoybase, t, q, qs, u, &
     v, gz, th, tra, h, lv, cpn, p, ph, tv, tp, tvp, clw, sig, w0)
+  USE print_control_mod, ONLY: lunout
   IMPLICIT NONE
 
   include "cv30param.h"
-  include 'iniprint.h'
 
   ! inputs:
@@ -813 +813 @@
     WRITE (lunout, *) 'strange! nn not equal to ncum: ', nn, ncum
     abort_message = ''
-    CALL abort_gcm(modname, abort_message, 1)
+    CALL abort_physic(modname, abort_message, 1)
   END IF