Changeset 776 for trunk/LMDZ.COMMON/libf/dyn3d/ce0l.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/ce0l.F90 (modified) (1 diff)

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

@@ -28 +28 @@
   IMPLICIT NONE
 #ifndef CPP_EARTH
-  WRITE(*,*)'limit_netcdf: Earth-specific program, needs Earth physics'
+#include "iniprint.h"
+  WRITE(lunout,*)'limit_netcdf: Earth-specific program, needs Earth physics'
 #else
 !-------------------------------------------------------------------------------