Changeset 130 for trunk/SRC/ReadWrite/readoldopadistcoast.pro

Timestamp:

07/06/06 16:48:41 (18 years ago)

Author:

pinsard

Message:

improvements of ReadWrite/?*.pro header

File:

• trunk/SRC/ReadWrite/readoldopadistcoast.pro (modified) (5 diffs, 2 props)

trunk/SRC/ReadWrite/readoldopadistcoast.pro

@@ -4 +4 @@
 ;+
 ; @file_comments
-;      read the old binary direct access file that contains the
-;      distance to the coast in OPA.
-;      based on the OPA subroutines dtacof and parctl
+; read the old binary direct access file that contains the
+; distance to the coast in OPA.
+; based on the OPA subroutines dtacof and parctl
 ;
 ; @categories for OPA before NetCDF
-;
 ;
 ; @returns  a structure that contains two elements: tdistcoast (the
@@ -17 +16 @@
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                      June, 2002
+; @version $Id$
 ;-
 ;------------------------------------------------------------
@@ -36 +36 @@
 ; @param jpiglo {in}{required}
 ; @param jpjglo {in}{required}
-; @param jpk {in}{required} 
+; @param jpk {in}{required}
 ; dimensions of the opa grid
 ;
@@ -81 +81 @@
       return, -1
    endif
-; first record: six 64-bit integer to read. 
+; first record: six 64-bit integer to read.
 ; default definition
    iimlu = long64(999)
@@ -89 +89 @@
    readu, numcost, iimlu, ijmlu, ikmlu
    if iimlu NE jpiglo then begin
-      print, 'iimlu = '+strtrim(iimlu, 1)+' differs from jpiglo ='+strtrim(jpiglo, 1) 
+      print, 'iimlu = '+strtrim(iimlu, 1)+' differs from jpiglo ='+strtrim(jpiglo, 1)
       return, -1
    endif
    if ijmlu NE jpjglo then begin
-      print, 'ijmlu = '+strtrim(ijmlu, 1)+' differs from jpjglo ='+strtrim(jpjglo, 1) 
+      print, 'ijmlu = '+strtrim(ijmlu, 1)+' differs from jpjglo ='+strtrim(jpjglo, 1)
       return, -1
    endif
    if ikmlu NE jpk then begin
-      print, 'ikmlu = '+strtrim(ikmlu, 1)+' differs from jpk ='+strtrim(jpk, 1) 
+      print, 'ikmlu = '+strtrim(ikmlu, 1)+' differs from jpk ='+strtrim(jpk, 1)
       return, -1
    endif