Changeset 1717 for LMDZ4/branches/LMDZ4_AR5/libf/bibio/lnblnk.F

Timestamp:

Jan 25, 2013, 9:26:03 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Added "arch" files for Ada (using dynamic libraries for NetCDF, you must have
export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/smplocal/pub/NetCDF/4.1.3/lib:/smplocal/pub/HDF5/1.8.9/seq/lib
in your .bashrc or .bash_login or in your job to run).
Also updated some sources so that gcm bench runs in "debug" mode (note that all these changes are minor and have already been implemented in LMDZ5 trunk).
EM

File:

• LMDZ4/branches/LMDZ4_AR5/libf/bibio/lnblnk.F (modified) (1 diff)

LMDZ4/branches/LMDZ4_AR5/libf/bibio/lnblnk.F

@@ -23 +23 @@
 
       IMPLICIT NONE
-      INTEGER i,imax
-      PARAMETER (imax = 256)
-      CHARACTER*256 letter
+!      INTEGER i,imax
+!      PARAMETER (imax = 256)
+!      CHARACTER*256 letter
+      CHARACTER(len=*) :: letter
+!      i=0
 
-      i=0
+!10    i=i+1
+!      IF (letter(i:i+3) . EQ . '   ') GOTO 20
+!      GOTO 10
 
-10    i=i+1
-      IF (letter(i:i+3) . EQ . '   ') GOTO 20
-      GOTO 10
+!20    lnblnk=i-1
 
-20    lnblnk=i-1
+      lnblnk=len_trim(letter)
 
       RETURN