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

Timestamp:

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

Author:

pinsard

Message:

improvements of ReadWrite/?*.pro header

File:

• trunk/SRC/ReadWrite/readoldoparestart.pro (modified) (11 diffs, 2 props)

trunk/SRC/ReadWrite/readoldoparestart.pro

@@ -10 +10 @@
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                      June 2002
+; @version $Id$
 ;-
 ;------------------------------------------------------------
@@ -21 +22 @@
 ;
    offset=params.reclen*params.jpk*(num-1L)
-   a=assoc(unit,dblarr(params.jpiglo,params.jpjglo,/nozero),offset) 
+   a=assoc(unit,dblarr(params.jpiglo,params.jpjglo,/nozero),offset)
    return, a[0]
 end
@@ -38 +39 @@
 
 ;+
-; @file_comments read the old restart files of OPA (before NetCDF)
-;      based on the OPA subroutine dtrlec included at the end of the
-;      file.
+; @file_comments
+; read the old restart files of OPA (before NetCDF)
+; based on the OPA subroutine dtrlec included at the end of the file.
+;
 ; @categories for OPA before NetCDF
-; @param filename {in}{required} with the whole path if necessary
+;
+; @param filename {in}{required}
+; with the whole path if necessary
+;
 ; @param jpiglo {in}{required}
 ; @param jpjglo {in}{required}
 ; @param jpk {in}{required}
 ; dimensions of the opa grid
+;
 ; @keyword IBLOC {default=4096L} ibloc size
 ; @keyword JPBYT {default=8L} jpbyt size
@@ -70 +76 @@
 ; @keyword BSFD
 ; @keyword EN
-; the variable we want to read. 
+; the variable we want to read.
 ;
 ; @returns according to the given keywords.
@@ -77 +83 @@
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                      June 2002
+; @version $Id$
 ;-
 
@@ -111 +118 @@
       return
    endif
-; first record: six 64-bit integer to read. 
+; first record: six 64-bit integer to read.
 ; default definition
    ino1 = long64(9999)
@@ -190 +197 @@
 
 ;CDIR$ LIST
-;      SUBROUTINE dtrlec 
-;CCC--------------------------------------------------------------------- 
+;      SUBROUTINE dtrlec
+;CCC---------------------------------------------------------------------
 ;CCC
 ;CCC                       ROUTINE dtrlec
@@ -206 +213 @@
 ;CC      after control with the present run, we read :
 ;CC      - prognostic variables on the second record
-;CC      - elliptic solver arrays 
+;CC      - elliptic solver arrays
 ;CC     - barotropic stream function arrays (default option)
 ;CC       or free surface arrays ("key_freesurf_cstvol" defined)
 ;CC      - tke arrays ("key_zdftke" defined)
-;CC      for this last three records,  the previous characteristics 
-;CC      could be different with those used in the present run. 
+;CC      for this last three records,  the previous characteristics
+;CC      could be different with those used in the present run.
 ;CC
 ;CC   Input :
@@ -225 +232 @@
 ;CC            /comnow/          : present fields (now)
 ;CC            /combsf/          : barotropic stream function
-;CC            /comspg/          : surface pressure 
+;CC            /comspg/          : surface pressure
 ;CC            /comsol/          : diagonal preconditioned conjugate
 ;CC
@@ -273 +280 @@
 ;#endif
 ;C FETI method
-;      IF (nsolv .EQ. 3) THEN 
+;      IF (nsolv .EQ. 3) THEN
 ;          isor0=2
 ;          ipcg0=2
-;      ENDIF 
+;      ENDIF
 ;C
 ;      IF(lwp) THEN
@@ -283 +290 @@
 ;          WRITE(numout,*) ' '
 ;          WRITE(numout,*) ' the present run :'
-;          WRITE(numout,*) '   job number : ', no 
+;          WRITE(numout,*) '   job number : ', no
 ;          WRITE(numout,*) '   with nit000 : ', nit000
 ;          WRITE(numout,*) '   with pcg option ipcg0 : ', ipcg0