|
Last change
on this file since 2370 was
1717,
checked in by Ehouarn Millour, 12 years ago
|
|
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
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
958 bytes
|
| Line | |
|---|
| 1 | ! |
|---|
| 2 | ! $Header$ |
|---|
| 3 | ! |
|---|
| 4 | INTEGER FUNCTION lnblnk (letter) |
|---|
| 5 | |
|---|
| 6 | C-------------------------------------------------------- |
|---|
| 7 | C Fonction qui determine la longeur d'un string sans les |
|---|
| 8 | C blancs qui suivent. Le critere pour determiner la fin du |
|---|
| 9 | C string est, trois blancs de suite |
|---|
| 10 | C--------------------------------------------------------- |
|---|
| 11 | C ARGUMENTS |
|---|
| 12 | C +++++++++ |
|---|
| 13 | C letter: CHARACTER*xxx (xxx < imax) |
|---|
| 14 | C le string dont on determine la longuer |
|---|
| 15 | C lnblnk: INTEGER |
|---|
| 16 | C le nombre de characteres |
|---|
| 17 | C |
|---|
| 18 | C PARAMETER |
|---|
| 19 | C +++++++++ |
|---|
| 20 | C imax : INTEGER |
|---|
| 21 | C le nombre maximale de character que peut contenir le string |
|---|
| 22 | C a traiter |
|---|
| 23 | |
|---|
| 24 | IMPLICIT NONE |
|---|
| 25 | ! INTEGER i,imax |
|---|
| 26 | ! PARAMETER (imax = 256) |
|---|
| 27 | ! CHARACTER*256 letter |
|---|
| 28 | CHARACTER(len=*) :: letter |
|---|
| 29 | ! i=0 |
|---|
| 30 | |
|---|
| 31 | !10 i=i+1 |
|---|
| 32 | ! IF (letter(i:i+3) . EQ . ' ') GOTO 20 |
|---|
| 33 | ! GOTO 10 |
|---|
| 34 | |
|---|
| 35 | !20 lnblnk=i-1 |
|---|
| 36 | |
|---|
| 37 | lnblnk=len_trim(letter) |
|---|
| 38 | |
|---|
| 39 | RETURN |
|---|
| 40 | END |
|---|
| 41 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
