Changeset 226 for trunk/SRC/ReadWrite/readoldoparestart.pro
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ReadWrite/readoldoparestart.pro
r163 r226 11 11 ; 12 12 ; @param PARAMS 13 ; 14 ; 13 ; 15 14 ; @param NUM 16 ; 17 ; 18 ; @restrictions 15 ; 16 ; @restrictions 19 17 ; bug for etab and etan written on the same record??? 20 18 ; 21 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 19 ; @history 20 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 22 21 ; June 2002 23 ; @version $Id$ 22 ; 23 ; @version 24 ; $Id$ 24 25 ;- 25 26 ;------------------------------------------------------------ … … 44 45 ; 45 46 ; @param PARAMS 46 ; 47 ; 47 ; 48 48 ; @param NUM 49 ; 50 ; 51 ; @historySebastien Masson (smasson\@lodyc.jussieu.fr)49 ; 50 ; @history 51 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 52 52 ; June 2002 53 53 ;- … … 66 66 ; based on the OPA subroutine dtrlec included at the end of the file. 67 67 ; 68 ; @categories 68 ; @categories 69 69 ; For OPA 70 70 ; … … 73 73 ; 74 74 ; @param JPIGLO {in}{required} 75 ; 76 ; 75 ; 77 76 ; @param JPJGLO {in}{required} 78 ; 79 ; 77 ; 80 78 ; @param JPK {in}{required} 81 79 ; dimensions of the opa grid 82 80 ; 83 ; @keyword IBLOC {default=4096L} 81 ; @keyword IBLOC {default=4096L} 84 82 ; Ibloc size 85 ; 83 ; 86 84 ; @keyword JPBYT {default=8L} 87 85 ; Jpbyt size 88 ; 89 ; @keyword NUMREC {default=19L*jpk} 86 ; 87 ; @keyword NUMREC {default=19L*jpk} 90 88 ; Number of records in the file 91 ; 89 ; 92 90 ; @keyword UB 93 ; 94 ; 91 ; 92 ; 95 93 ; @keyword VB 96 ; 97 ; 94 ; 95 ; 98 96 ; @keyword TB 99 ; 100 ; 97 ; 101 98 ; @keyword SB 102 ; 103 ; 99 ; 104 100 ; @keyword ROTB 105 ; 106 ; 101 ; 107 102 ; @keyword HDIVB 108 ; 109 ; 103 ; 110 104 ; @keyword UN 111 ; 112 ; 105 ; 113 106 ; @keyword VN 114 ; 115 ; 107 ; 116 108 ; @keyword TN 117 ; 118 ; 109 ; 119 110 ; @keyword SN 120 ; 121 ; 111 ; 122 112 ; @keyword ROTN 123 ; 124 ; 113 ; 125 114 ; @keyword HDIVN 126 ; 127 ; 115 ; 128 116 ; @keyword GCX 129 ; 130 ; 117 ; 131 118 ; @keyword GCXB 132 ; 133 ; 119 ; 134 120 ; @keyword ETAB 135 ; 136 ; 121 ; 137 122 ; @keyword ETAN 138 ; 139 ; 123 ; 140 124 ; @keyword BSFB 141 ; 142 ; 125 ; 143 126 ; @keyword BSFN 144 ; 145 ; 127 ; 146 128 ; @keyword BSFD 147 ; 148 ; 129 ; 149 130 ; @keyword EN 150 131 ; the variable we want to read. 151 132 ; 152 ; @returns 133 ; @returns 153 134 ; According to the given keywords. 154 ; 155 ; @restrictions 135 ; 136 ; @restrictions 156 137 ; Bug for etab and etan written on the same record??? 157 138 ; 158 ; @history 139 ; @history 159 140 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 160 141 ; June 2002 161 ; 142 ; 162 143 ; @version 163 144 ; $Id$ … … 458 439 ; IF(lwp) THEN 459 440 ; WRITE(numout,*) ' ===>>>> : the previous restart file', 460 ; $ ' did nt used tke scheme'441 ; $ ' did''nt used tke scheme' 461 442 ; WRITE(numout,*) ' ======= =======' 462 443 ; ENDIF
Note: See TracChangeset
for help on using the changeset viewer.