Changeset 1999 for LMDZ5/branches/testing/libf/dyn3d/dynetat0.F
- Timestamp:
- Mar 20, 2014, 10:57:19 AM (11 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
-
. (modified) (1 prop)
-
libf/dyn3d/dynetat0.F (modified) (18 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1922-1927,1929-1933,1937-1939,1943-1997
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3d/dynetat0.F
r1910 r1999 67 67 write(lunout,*)'dynetat0: Pb d''ouverture du fichier start.nc' 68 68 write(lunout,*)' ierr = ', ierr 69 CALL ABORT 69 CALL ABORT_gcm("dynetat0", "", 1) 70 70 ENDIF 71 71 … … 74 74 IF (ierr .NE. NF_NOERR) THEN 75 75 write(lunout,*)"dynetat0: Le champ <controle> est absent" 76 CALL abort76 CALL ABORT_gcm("dynetat0", "", 1) 77 77 ENDIF 78 78 ierr = nf90_get_var(nid, nvarid, tab_cntrl) 79 79 IF (ierr .NE. NF_NOERR) THEN 80 80 write(lunout,*)"dynetat0: Lecture echoue pour <controle>" 81 CALL abort81 CALL ABORT_gcm("dynetat0", "", 1) 82 82 ENDIF 83 83 … … 154 154 IF (ierr .NE. NF_NOERR) THEN 155 155 write(lunout,*)"dynetat0: Le champ <rlonu> est absent" 156 CALL abort156 CALL ABORT_gcm("dynetat0", "", 1) 157 157 ENDIF 158 158 ierr = nf90_get_var(nid, nvarid, rlonu) 159 159 IF (ierr .NE. NF_NOERR) THEN 160 160 write(lunout,*)"dynetat0: Lecture echouee pour <rlonu>" 161 CALL abort161 CALL ABORT_gcm("dynetat0", "", 1) 162 162 ENDIF 163 163 … … 165 165 IF (ierr .NE. NF_NOERR) THEN 166 166 write(lunout,*)"dynetat0: Le champ <rlatu> est absent" 167 CALL abort167 CALL ABORT_gcm("dynetat0", "", 1) 168 168 ENDIF 169 169 ierr = nf90_get_var(nid, nvarid, rlatu) 170 170 IF (ierr .NE. NF_NOERR) THEN 171 171 write(lunout,*)"dynetat0: Lecture echouee pour <rlatu>" 172 CALL abort172 CALL ABORT_gcm("dynetat0", "", 1) 173 173 ENDIF 174 174 … … 176 176 IF (ierr .NE. NF_NOERR) THEN 177 177 write(lunout,*)"dynetat0: Le champ <rlonv> est absent" 178 CALL abort178 CALL ABORT_gcm("dynetat0", "", 1) 179 179 ENDIF 180 180 ierr = nf90_get_var(nid, nvarid, rlonv) 181 181 IF (ierr .NE. NF_NOERR) THEN 182 182 write(lunout,*)"dynetat0: Lecture echouee pour <rlonv>" 183 CALL abort183 CALL ABORT_gcm("dynetat0", "", 1) 184 184 ENDIF 185 185 … … 187 187 IF (ierr .NE. NF_NOERR) THEN 188 188 write(lunout,*)"dynetat0: Le champ <rlatv> est absent" 189 CALL abort189 CALL ABORT_gcm("dynetat0", "", 1) 190 190 ENDIF 191 191 ierr = nf90_get_var(nid, nvarid, rlatv) 192 192 IF (ierr .NE. NF_NOERR) THEN 193 193 write(lunout,*)"dynetat0: Lecture echouee pour rlatv" 194 CALL abort194 CALL ABORT_gcm("dynetat0", "", 1) 195 195 ENDIF 196 196 … … 198 198 IF (ierr .NE. NF_NOERR) THEN 199 199 write(lunout,*)"dynetat0: Le champ <cu> est absent" 200 CALL abort200 CALL ABORT_gcm("dynetat0", "", 1) 201 201 ENDIF 202 202 ierr = nf90_get_var(nid, nvarid, cu) 203 203 IF (ierr .NE. NF_NOERR) THEN 204 204 write(lunout,*)"dynetat0: Lecture echouee pour <cu>" 205 CALL abort205 CALL ABORT_gcm("dynetat0", "", 1) 206 206 ENDIF 207 207 … … 209 209 IF (ierr .NE. NF_NOERR) THEN 210 210 write(lunout,*)"dynetat0: Le champ <cv> est absent" 211 CALL abort211 CALL ABORT_gcm("dynetat0", "", 1) 212 212 ENDIF 213 213 ierr = nf90_get_var(nid, nvarid, cv) 214 214 IF (ierr .NE. NF_NOERR) THEN 215 215 write(lunout,*)"dynetat0: Lecture echouee pour <cv>" 216 CALL abort216 CALL ABORT_gcm("dynetat0", "", 1) 217 217 ENDIF 218 218 … … 220 220 IF (ierr .NE. NF_NOERR) THEN 221 221 write(lunout,*)"dynetat0: Le champ <aire> est absent" 222 CALL abort222 CALL ABORT_gcm("dynetat0", "", 1) 223 223 ENDIF 224 224 ierr = nf90_get_var(nid, nvarid, aire) 225 225 IF (ierr .NE. NF_NOERR) THEN 226 226 write(lunout,*)"dynetat0: Lecture echouee pour <aire>" 227 CALL abort227 CALL ABORT_gcm("dynetat0", "", 1) 228 228 ENDIF 229 229 … … 231 231 IF (ierr .NE. NF_NOERR) THEN 232 232 write(lunout,*)"dynetat0: Le champ <phisinit> est absent" 233 CALL abort233 CALL ABORT_gcm("dynetat0", "", 1) 234 234 ENDIF 235 235 ierr = nf90_get_var(nid, nvarid, phis) 236 236 IF (ierr .NE. NF_NOERR) THEN 237 237 write(lunout,*)"dynetat0: Lecture echouee pour <phisinit>" 238 CALL abort238 CALL ABORT_gcm("dynetat0", "", 1) 239 239 ENDIF 240 240 … … 246 246 IF (ierr .NE. NF_NOERR) THEN 247 247 write(lunout,*)"dynetat0: Le champ <Time> est absent" 248 CALL abort248 CALL ABORT_gcm("dynetat0", "", 1) 249 249 ENDIF 250 250 ENDIF … … 252 252 IF (ierr .NE. NF_NOERR) THEN 253 253 write(lunout,*)"dynetat0: Lecture echouee <temps>" 254 CALL abort254 CALL ABORT_gcm("dynetat0", "", 1) 255 255 ENDIF 256 256 … … 258 258 IF (ierr .NE. NF_NOERR) THEN 259 259 write(lunout,*)"dynetat0: Le champ <ucov> est absent" 260 CALL abort260 CALL ABORT_gcm("dynetat0", "", 1) 261 261 ENDIF 262 262 ierr = nf90_get_var(nid, nvarid, ucov) 263 263 IF (ierr .NE. NF_NOERR) THEN 264 264 write(lunout,*)"dynetat0: Lecture echouee pour <ucov>" 265 CALL abort265 CALL ABORT_gcm("dynetat0", "", 1) 266 266 ENDIF 267 267 … … 269 269 IF (ierr .NE. NF_NOERR) THEN 270 270 write(lunout,*)"dynetat0: Le champ <vcov> est absent" 271 CALL abort271 CALL ABORT_gcm("dynetat0", "", 1) 272 272 ENDIF 273 273 ierr = nf90_get_var(nid, nvarid, vcov) 274 274 IF (ierr .NE. NF_NOERR) THEN 275 275 write(lunout,*)"dynetat0: Lecture echouee pour <vcov>" 276 CALL abort276 CALL ABORT_gcm("dynetat0", "", 1) 277 277 ENDIF 278 278 … … 280 280 IF (ierr .NE. NF_NOERR) THEN 281 281 write(lunout,*)"dynetat0: Le champ <teta> est absent" 282 CALL abort282 CALL ABORT_gcm("dynetat0", "", 1) 283 283 ENDIF 284 284 ierr = nf90_get_var(nid, nvarid, teta) 285 285 IF (ierr .NE. NF_NOERR) THEN 286 286 write(lunout,*)"dynetat0: Lecture echouee pour <teta>" 287 CALL abort287 CALL ABORT_gcm("dynetat0", "", 1) 288 288 ENDIF 289 289 … … 301 301 IF (ierr .NE. NF_NOERR) THEN 302 302 write(lunout,*)"dynetat0: Lecture echouee pour "//tname(iq) 303 CALL abort303 CALL ABORT_gcm("dynetat0", "", 1) 304 304 ENDIF 305 305 ENDIF … … 310 310 IF (ierr .NE. NF_NOERR) THEN 311 311 write(lunout,*)"dynetat0: Le champ <masse> est absent" 312 CALL abort312 CALL ABORT_gcm("dynetat0", "", 1) 313 313 ENDIF 314 314 ierr = nf90_get_var(nid, nvarid, masse) 315 315 IF (ierr .NE. NF_NOERR) THEN 316 316 write(lunout,*)"dynetat0: Lecture echouee pour <masse>" 317 CALL abort317 CALL ABORT_gcm("dynetat0", "", 1) 318 318 ENDIF 319 319 … … 321 321 IF (ierr .NE. NF_NOERR) THEN 322 322 write(lunout,*)"dynetat0: Le champ <ps> est absent" 323 CALL abort323 CALL ABORT_gcm("dynetat0", "", 1) 324 324 ENDIF 325 325 ierr = nf90_get_var(nid, nvarid, ps) 326 326 IF (ierr .NE. NF_NOERR) THEN 327 327 write(lunout,*)"dynetat0: Lecture echouee pour <ps>" 328 CALL abort328 CALL ABORT_gcm("dynetat0", "", 1) 329 329 ENDIF 330 330
Note: See TracChangeset
for help on using the changeset viewer.
