New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6625 for branches/UKMO/dev_r5518_v3.4_asm_nemovar_community/NEMOGCM/TOOLS/REBUILD_NEMO – NEMO

Ignore:
Timestamp:
2016-05-26T11:08:07+02:00 (8 years ago)
Author:
kingr
Message:

Rolled back to r6613

Location:
branches/UKMO/dev_r5518_v3.4_asm_nemovar_community/NEMOGCM/TOOLS/REBUILD_NEMO
Files:
1 deleted
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_v3.4_asm_nemovar_community/NEMOGCM/TOOLS/REBUILD_NEMO/src/rebuild_nemo.f90

    r6617 r6625  
    200200      WRITE(numerr,*) 'Attribute DOMAIN_number_total is : ', ndomain_file 
    201201      WRITE(numerr,*) 'Number of files specified in namelist is: ', ndomain 
    202       STOP 9 
     202      STOP 
    203203   ENDIF 
    204204   
    … …  
    268268      WRITE(numerr,*) 'Attribute DOMAIN_local_sizes is : ', local_sizes 
    269269      WRITE(numerr,*) 'Dimensions to be rebuilt are of size : ', outdimlens(rebuild_dims(1)), outdimlens(rebuild_dims(2))  
    270       STOP 9 
     270      STOP 
    271271   ENDIF 
    272272 
    … …  
    384384            SELECT CASE( xtype ) 
    385385               CASE( NF90_BYTE ) 
    386                   globaldata_0d_i1 = 0 
    387386                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_0d_i1 ) ) 
    388387               CASE( NF90_SHORT ) 
    389                   globaldata_0d_i2 = 0 
    390388                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_0d_i2 ) ) 
    391389               CASE( NF90_INT ) 
    392                   globaldata_0d_i4 = 0 
    393390                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_0d_i4 ) ) 
    394391               CASE( NF90_FLOAT ) 
    395                   globaldata_0d_sp = 0. 
    396392                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_0d_sp ) ) 
    397393               CASE( NF90_DOUBLE ) 
    398                   globaldata_0d_dp = 0. 
    399394                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_0d_dp ) ) 
    400395               CASE DEFAULT 
    401396                  WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    402                   STOP 9 
     397                  STOP 
    403398            END SELECT 
    404399 
    … …  
    408403               CASE( NF90_BYTE ) 
    409404                  ALLOCATE(globaldata_1d_i1(indimlens(dimids(1)))) 
    410                   globaldata_1d_i1(:) = 0 
    411405                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_1d_i1 ) ) 
    412406               CASE( NF90_SHORT ) 
    413407                  ALLOCATE(globaldata_1d_i2(indimlens(dimids(1)))) 
    414                   globaldata_1d_i2(:) = 0 
    415408                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_1d_i2 ) ) 
    416409               CASE( NF90_INT ) 
    417410                  ALLOCATE(globaldata_1d_i4(indimlens(dimids(1)))) 
    418                   globaldata_1d_i4(:) = 0 
    419411                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_1d_i4 ) ) 
    420412               CASE( NF90_FLOAT ) 
    421413                  ALLOCATE(globaldata_1d_sp(indimlens(dimids(1)))) 
    422                   globaldata_1d_sp(:) = 0. 
    423414                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_1d_sp ) ) 
    424415               CASE( NF90_DOUBLE ) 
    425416                  ALLOCATE(globaldata_1d_dp(indimlens(dimids(1)))) 
    426                   globaldata_1d_dp(:) = 0. 
    427417                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_1d_dp ) ) 
    428418               CASE DEFAULT 
    429419                  WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    430                   STOP 9 
     420                  STOP 
    431421            END SELECT 
    432422 
    … …  
    436426               CASE( NF90_BYTE ) 
    437427                  ALLOCATE(globaldata_2d_i1(indimlens(dimids(1)),indimlens(dimids(2)))) 
    438                   globaldata_2d_i1(:,:) = 0 
    439428                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_2d_i1 ) ) 
    440429               CASE( NF90_SHORT ) 
    441430                  ALLOCATE(globaldata_2d_i2(indimlens(dimids(1)),indimlens(dimids(2)))) 
    442                   globaldata_2d_i2(:,:) = 0 
    443431                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_2d_i2 ) ) 
    444432               CASE( NF90_INT ) 
    445433                  ALLOCATE(globaldata_2d_i4(indimlens(dimids(1)),indimlens(dimids(2)))) 
    446                   globaldata_2d_i4(:,:) = 0 
    447434                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_2d_i4 ) ) 
    448435               CASE( NF90_FLOAT ) 
    449436                  ALLOCATE(globaldata_2d_sp(indimlens(dimids(1)),indimlens(dimids(2)))) 
    450                   globaldata_2d_sp(:,:) = 0. 
    451437                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_2d_sp ) ) 
    452438               CASE( NF90_DOUBLE ) 
    453439                  ALLOCATE(globaldata_2d_dp(indimlens(dimids(1)),indimlens(dimids(2)))) 
    454                   globaldata_2d_dp(:,:) = 0. 
    455440                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_2d_dp ) ) 
    456441               CASE DEFAULT 
    457442                  WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    458                   STOP 9 
     443                  STOP 
    459444            END SELECT 
    460445 
    … …  
    465450                  ALLOCATE(globaldata_3d_i1(indimlens(dimids(1)),indimlens(dimids(2)),       & 
    466451                     &                      indimlens(dimids(3)))) 
    467                   globaldata_3d_i1(:,:,:) = 0 
    468452                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_3d_i1 ) ) 
    469453               CASE( NF90_SHORT ) 
    470454                  ALLOCATE(globaldata_3d_i2(indimlens(dimids(1)),indimlens(dimids(2)),       & 
    471455                     &                      indimlens(dimids(3)))) 
    472                   globaldata_3d_i2(:,:,:) = 0 
    473456                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_3d_i2 ) ) 
    474457               CASE( NF90_INT ) 
    475458                  ALLOCATE(globaldata_3d_i4(indimlens(dimids(1)),indimlens(dimids(2)),       & 
    476459                     &                      indimlens(dimids(3)))) 
    477                   globaldata_3d_i4(:,:,:) = 0 
    478460                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_3d_i4 ) ) 
    479461               CASE( NF90_FLOAT ) 
    480462                  ALLOCATE(globaldata_3d_sp(indimlens(dimids(1)),indimlens(dimids(2)),       & 
    481463                     &                      indimlens(dimids(3)))) 
    482                   globaldata_3d_sp(:,:,:) = 0. 
    483464                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_3d_sp ) ) 
    484465               CASE( NF90_DOUBLE ) 
    485466                  ALLOCATE(globaldata_3d_dp(indimlens(dimids(1)),indimlens(dimids(2)),       & 
    486467                     &                      indimlens(dimids(3)))) 
    487                   globaldata_3d_dp(:,:,:) = 0. 
    488468                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_3d_dp ) ) 
    489469               CASE DEFAULT 
    490470                  WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    491                   STOP 9 
     471                  STOP 
    492472            END SELECT 
    493473 
    … …  
    498478                  ALLOCATE(globaldata_4d_i1(indimlens(dimids(1)),indimlens(dimids(2)),       & 
    499479                     &                      indimlens(dimids(3)),ntchunk)) 
    500                   globaldata_4d_i1(:,:,:,:) = 0 
    501480                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_4d_i1, start=(/1,1,1,nt/) ) ) 
    502481               CASE( NF90_SHORT ) 
    503482                  ALLOCATE(globaldata_4d_i2(indimlens(dimids(1)),indimlens(dimids(2)),       & 
    504483                     &                      indimlens(dimids(3)),ntchunk)) 
    505                   globaldata_4d_i2(:,:,:,:) = 0 
    506484                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_4d_i2, start=(/1,1,1,nt/) ) ) 
    507485               CASE( NF90_INT ) 
    508486                  ALLOCATE(globaldata_4d_i4(indimlens(dimids(1)),indimlens(dimids(2)),       & 
    509487                     &                      indimlens(dimids(3)),ntchunk)) 
    510                   globaldata_4d_i4(:,:,:,:) = 0 
    511488                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_4d_i4, start=(/1,1,1,nt/) ) ) 
    512489               CASE( NF90_FLOAT ) 
    513490                  ALLOCATE(globaldata_4d_sp(indimlens(dimids(1)),indimlens(dimids(2)),       & 
    514491                     &                      indimlens(dimids(3)),ntchunk)) 
    515                   globaldata_4d_sp(:,:,:,:) = 0. 
    516492                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_4d_sp, start=(/1,1,1,nt/) ) ) 
    517493               CASE( NF90_DOUBLE ) 
    518494                  ALLOCATE(globaldata_4d_dp(indimlens(dimids(1)),indimlens(dimids(2)),       & 
    519495                     &                      indimlens(dimids(3)),ntchunk)) 
    520                   globaldata_4d_dp(:,:,:,:) = 0. 
    521496                  CALL check_nf90( nf90_get_var( ncid, jv, globaldata_4d_dp, start=(/1,1,1,nt/) ) ) 
    522497               CASE DEFAULT 
    523498                  WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    524                   STOP 9 
     499                  STOP 
    525500            END SELECT 
    526501 
    … …  
    542517               CASE( NF90_BYTE ) 
    543518                  ALLOCATE(globaldata_1d_i1(outdimlens(dimids(1)))) 
    544                   globaldata_1d_i1(:) = 0 
    545519               CASE( NF90_SHORT ) 
    546520                  ALLOCATE(globaldata_1d_i2(outdimlens(dimids(1)))) 
    547                   globaldata_1d_i2(:) = 0 
    548521               CASE( NF90_INT ) 
    549522                  ALLOCATE(globaldata_1d_i4(outdimlens(dimids(1)))) 
    550                   globaldata_1d_i4(:) = 0 
    551523               CASE( NF90_FLOAT ) 
    552524                  ALLOCATE(globaldata_1d_sp(outdimlens(dimids(1)))) 
    553                   globaldata_1d_sp(:) = 0. 
    554525               CASE( NF90_DOUBLE ) 
    555526                  ALLOCATE(globaldata_1d_dp(outdimlens(dimids(1)))) 
    556                   globaldata_1d_dp(:) = 0. 
    557527               CASE DEFAULT 
    558528                  WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    559                   STOP 9 
     529                  STOP 
    560530            END SELECT 
    561531 
    … …  
    565535               CASE( NF90_BYTE ) 
    566536                  ALLOCATE(globaldata_2d_i1(outdimlens(dimids(1)),outdimlens(dimids(2)))) 
    567                   globaldata_2d_i1(:,:) = 0 
    568537               CASE( NF90_SHORT ) 
    569538                  ALLOCATE(globaldata_2d_i2(outdimlens(dimids(1)),outdimlens(dimids(2)))) 
    570                   globaldata_2d_i2(:,:) = 0 
    571539               CASE( NF90_INT ) 
    572540                  ALLOCATE(globaldata_2d_i4(outdimlens(dimids(1)),outdimlens(dimids(2)))) 
    573                   globaldata_2d_i4(:,:) = 0 
    574541               CASE( NF90_FLOAT ) 
    575542                  ALLOCATE(globaldata_2d_sp(outdimlens(dimids(1)),outdimlens(dimids(2)))) 
    576                   globaldata_2d_sp(:,:) = 0. 
    577543               CASE( NF90_DOUBLE ) 
    578544                  ALLOCATE(globaldata_2d_dp(outdimlens(dimids(1)),outdimlens(dimids(2)))) 
    579                   globaldata_2d_dp(:,:) = 0. 
    580545               CASE DEFAULT 
    581546                  WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    582                   STOP 9 
     547                  STOP 
    583548            END SELECT 
    584549 
    … …  
    589554                  ALLOCATE(globaldata_3d_i1(outdimlens(dimids(1)),outdimlens(dimids(2)),     & 
    590555                     &                      outdimlens(dimids(3)))) 
    591                   globaldata_3d_i1(:,:,:) = 0 
    592556               CASE( NF90_SHORT ) 
    593557                  ALLOCATE(globaldata_3d_i2(outdimlens(dimids(1)),outdimlens(dimids(2)),     & 
    594558                     &                      outdimlens(dimids(3)))) 
    595                   globaldata_3d_i2(:,:,:) = 0 
    596559               CASE( NF90_INT ) 
    597560                  ALLOCATE(globaldata_3d_i4(outdimlens(dimids(1)),outdimlens(dimids(2)),     & 
    598561                     &                      outdimlens(dimids(3)))) 
    599                   globaldata_3d_i4(:,:,:) = 0 
    600562               CASE( NF90_FLOAT ) 
    601563                  ALLOCATE(globaldata_3d_sp(outdimlens(dimids(1)),outdimlens(dimids(2)),     & 
    602564                     &                      outdimlens(dimids(3)))) 
    603                   globaldata_3d_sp(:,:,:) = 0. 
    604565               CASE( NF90_DOUBLE ) 
    605566                  ALLOCATE(globaldata_3d_dp(outdimlens(dimids(1)),outdimlens(dimids(2)),     & 
    606567                     &                      outdimlens(dimids(3)))) 
    607                   globaldata_3d_dp(:,:,:) = 0. 
    608568               CASE DEFAULT 
    609569                  WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    610                   STOP 9 
     570                  STOP 
    611571            END SELECT 
    612572 
    … …  
    617577                  ALLOCATE(globaldata_4d_i1(outdimlens(dimids(1)),outdimlens(dimids(2)),     & 
    618578                     &                      outdimlens(dimids(3)),ntchunk)) 
    619                    globaldata_4d_i1(:,:,:,:) = 0 
    620579               CASE( NF90_SHORT ) 
    621580                  ALLOCATE(globaldata_4d_i2(outdimlens(dimids(1)),outdimlens(dimids(2)),     & 
    622581                     &                      outdimlens(dimids(3)),ntchunk)) 
    623                   globaldata_4d_i2(:,:,:,:) = 0 
    624582               CASE( NF90_INT ) 
    625583                  ALLOCATE(globaldata_4d_i4(outdimlens(dimids(1)),outdimlens(dimids(2)),     & 
    626584                     &                      outdimlens(dimids(3)),ntchunk)) 
    627                   globaldata_4d_i4(:,:,:,:) = 0 
    628585               CASE( NF90_FLOAT ) 
    629586                  ALLOCATE(globaldata_4d_sp(outdimlens(dimids(1)),outdimlens(dimids(2)),     & 
    630587                     &                      outdimlens(dimids(3)),ntchunk)) 
    631                   globaldata_4d_sp(:,:,:,:) = 0. 
    632588               CASE( NF90_DOUBLE ) 
    633589                  ALLOCATE(globaldata_4d_dp(outdimlens(dimids(1)),outdimlens(dimids(2)),     & 
    634590                     &                      outdimlens(dimids(3)),ntchunk)) 
    635                   globaldata_4d_dp(:,:,:,:) = 0. 
    636591               CASE DEFAULT 
    637592                  WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    638                   STOP 9 
     593                  STOP 
    639594            END SELECT 
    640595         ELSE 
    641596            WRITE(numerr,*) 'ERROR! : A netcdf variable has more than 4 dimensions which is not taken into account' 
    642             STOP 9 
     597            STOP 
    643598         ENDIF 
    644599 
    … …  
    1012967            IF( nthreads == 1 .AND. istop /= nf90_noerr )  THEN 
    1013968               WRITE(numerr,*) '*** NEMO rebuild failed! ***' 
    1014                STOP 9 
     969               STOP 
    1015970            ENDIF 
    1016971         
    … …  
    1021976         IF( istop /= nf90_noerr )  THEN 
    1022977            WRITE(numerr,*) '*** NEMO rebuild failed! ***' 
    1023             STOP 9 
     978            STOP 
    1024979         ENDIF 
    1025980 
    … …  
    10951050            CASE DEFAULT    
    10961051               WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    1097                STOP 9 
     1052               STOP 
    10981053         END SELECT      
    10991054                       
    … …  
    11181073            CASE DEFAULT    
    11191074               WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    1120                STOP 9 
     1075               STOP 
    11211076         END SELECT      
    11221077     
    … …  
    11411096            CASE DEFAULT    
    11421097               WRITE(numerr,*) 'Unknown nf90 type: ', xtype 
    1143                STOP 9 
     1098               STOP 
    11441099         END SELECT      
    11451100     
    … …  
    11911146            WRITE(numerr,*) "*** NEMO rebuild failed ***" 
    11921147            WRITE(numerr,*) 
    1193             STOP 9 
     1148            STOP 
    11941149         ENDIF 
    11951150      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.