- Timestamp:
- 2011-10-28T10:55:06+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_UKMET3_rebuild/NEMOGCM/TOOLS/REBUILD_NEMO/src/rebuild_nemo.f90
r2898 r3019 237 237 ENDIF 238 238 ELSE ! l_findDims = false 239 IF( TRIM(dimname) == TRIM(dims(1))) dimlen = global_sizes(1) 240 IF( TRIM(dimname) == TRIM(dims(2))) dimlen = global_sizes(2) 239 IF( TRIM(dimname) == TRIM(dims(1))) THEN 240 dimlen = global_sizes(1) 241 rebuild_dims(1) = idim 242 ENDIF 243 IF( rbdims > 1 .AND. TRIM(dimname) == TRIM(dims(2))) THEN 244 dimlen = global_sizes(2) 245 rebuild_dims(2) = idim 246 ENDIF 241 247 ENDIF 242 248 … … 565 571 !$OMP PARALLEL DO DEFAULT(NONE) & 566 572 !$OMP& PRIVATE(ifile,ncid,xtype,start_pos,local_sizes,InMin,InMax,natts, & 567 !$OMP& ndims,attid,attname,dimids,i ndimlens,idim,dimname,dimlen,unlimitedDimId,&573 !$OMP& ndims,attid,attname,dimids,idim,dimname,dimlen,unlimitedDimId, & 568 574 !$OMP& halo_start,halo_end,idomain,jdomain,rdomain,di,dj,dr, & 569 575 !$OMP& localdata_1d_i2,localdata_1d_i4,localdata_1d_sp,localdata_1d_dp, & … … 572 578 !$OMP& localdata_4d_i2,localdata_4d_i4,localdata_4d_sp,localdata_4d_dp, & 573 579 !$OMP& localdata_1d_i1,localdata_2d_i1,localdata_3d_i1,localdata_4d_i1) & 574 !$OMP& SHARED(jv,nvars,varname,filenames,ValMin,ValMax, outdimlens,rbdims,&580 !$OMP& SHARED(jv,nvars,varname,filenames,ValMin,ValMax,indimlens,outdimlens,rbdims, & 575 581 !$OMP& ndomain,outid,chunksize,istop,l_valid,nthreads,inncids,rebuild_dims, & 576 582 !$OMP& globaldata_1d_i2,globaldata_1d_i4,globaldata_1d_sp,globaldata_1d_dp, & … … 590 596 CALL check_nf90( nf90_inquire_variable( ncid, jv, varname, xtype, ndims, dimids, natts ), istop ) 591 597 CALL check_nf90( nf90_inquire( ncid, unlimitedDimId = unlimitedDimId ), istop ) 592 DO idim = 1, ndims593 CALL check_nf90( nf90_inquire_dimension( ncid, idim, dimname, dimlen ), istop )594 indimlens(idim) = dimlen595 END DO596 598 !$OMP END CRITICAL 597 599 … … 934 936 935 937 IF( nthreads == 1 .AND. istop /= nf90_noerr ) THEN 936 WRITE(numerr,*) '*** NEMO rebuild failed with ', istop,' ERRORS! ***'938 WRITE(numerr,*) '*** NEMO rebuild failed! ***' 937 939 STOP 938 940 ENDIF … … 943 945 !3.6 Abort if any of the OMP threads failed 944 946 IF( istop /= nf90_noerr ) THEN 945 WRITE(numerr,*) '*** NEMO rebuild failed with ', istop,' ERRORS! ***'947 WRITE(numerr,*) '*** NEMO rebuild failed! ***' 946 948 STOP 947 949 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.