Changeset 1403 for LMDZ4/trunk/libf/phylmd/iostart.F90
- Timestamp:
- Jul 1, 2010, 11:02:53 AM (14 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/phylmd/iostart.F90
r1001 r1403 5 5 INTEGER,SAVE :: nid_restart 6 6 7 INTEGER,SAVE :: idim1,idim2,idim3 7 INTEGER,SAVE :: idim1,idim2,idim3,idim4 8 8 INTEGER,PARAMETER :: length=100 9 9 … … 317 317 ierr = NF90_DEF_DIM (nid_restart, "points_physiques", klon_glo, idim2) 318 318 ierr = NF90_DEF_DIM (nid_restart, "horizon_vertical", klon_glo*klev, idim3) 319 ierr = NF90_DEF_DIM (nid_restart, "horizon_klevp1", klon_glo*klevp1, idim4) 319 320 320 321 ierr = NF90_ENDDEF(nid_restart) … … 386 387 387 388 IF (is_mpi_root .AND. is_omp_root) THEN 388 389 389 390 IF (field_size==1) THEN 390 391 idim=idim2 391 392 ELSE IF (field_size==klev) THEN 392 393 idim=idim3 394 ELSE IF (field_size==klevp1) THEN 395 idim=idim4 393 396 ELSE 394 397 PRINT *, "erreur phyredem : probleme de dimension" … … 467 470 468 471 IF (is_mpi_root .AND. is_omp_root) THEN 469 472 470 473 IF (var_size/=length) THEN 471 474 PRINT *, "erreur phyredem : probleme de dimension"
Note: See TracChangeset
for help on using the changeset viewer.