Ignore:
Timestamp:
02/23/16 15:30:13 (8 years ago)
Author:
dumas
Message:

Merge branche iLOVECLIM sur rev 51

Location:
branches/iLoveclim
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/iLoveclim

  • branches/iLoveclim/SOURCES/Netcdf-routines/io_netcdf_GRISLI.f90

    r32 r52  
    191191    !      
    192192    status = nf90_inq_varid(ncid,varname,varid) 
     193    if (status/=nf90_noerr) then 
     194       write(*,*)"pb de nom de variable :", varname, file 
     195       stop 
     196    endif 
    193197    status=nf90_inquire_variable(ncid,varid,dimids=dimIDS) 
    194198    status=nf90_inquire_dimension(ncid,dimIDS(1),len=dim1) 
    … …  
    249253    !       
    250254    status = nf90_inq_varid(ncid,varname,varid) 
     255    if (status/=nf90_noerr) then 
     256       write(*,*)"pb de nom de variable :", varname, file 
     257       stop 
     258    endif 
    251259    status=nf90_inquire_variable(ncid,varid,dimids=dimIDS) 
    252260    !                 
    … …  
    294302    !      
    295303    status = nf90_inq_varid(ncid,varname,varid) 
     304    if (status/=nf90_noerr) then 
     305       write(*,*)"pb de nom de variable :", varname, file 
     306       stop 
     307    endif 
    296308    status=nf90_inquire_variable(ncid,varid,dimids=dimIDS) 
    297309    status=nf90_inquire_dimension(ncid,dimIDS(1),len=dim1) 
    … …  
    346358    !      
    347359    status = nf90_inq_varid(ncid,varname,varid) 
     360    if (status/=nf90_noerr) then 
     361       write(*,*)"pb de nom de variable :", varname, file 
     362       stop 
     363    endif 
    348364    status=nf90_inquire_variable(ncid,varid,dimids=dimIDS) 
    349365    status=nf90_inquire_dimension(ncid,dimIDS(1),len=dim1) 
    … …  
    394410    !      
    395411    status = nf90_inq_varid(ncid,varname,varid) 
     412    if (status/=nf90_noerr) then 
     413       write(*,*)"pb de nom de variable :", varname, file 
     414       stop 
     415    endif 
    396416    status=nf90_inquire_variable(ncid,varid,dimids=dimID) 
    397417    status=nf90_inquire_dimension(ncid,dimID(1),len=dim1)           
    … …  
    438458    !      
    439459    status = nf90_inq_varid(ncid,varname,varid) 
     460    if (status/=nf90_noerr) then 
     461       write(*,*)"pb de nom de variable :", varname, file 
     462       stop 
     463    endif 
    440464    status=nf90_inquire_variable(ncid,varid,dimids=dimIDS) 
    441465    status=nf90_inquire_dimension(ncid,dimIDS(1),len=dim1) 
    … …  
    484508    !      
    485509    status = nf90_inq_varid(ncid,varname,varid) 
     510    if (status/=nf90_noerr) then 
     511       write(*,*)"pb de nom de variable :", varname, file 
     512       stop 
     513    endif 
    486514    status=nf90_inquire_variable(ncid,varid,dimids=dimIDS) 
    487515    status=nf90_inquire_dimension(ncid,dimIDS(1),len=dim1) 
    … …  
    532560    !      
    533561    status = nf90_inq_varid(ncid,varname,varid) 
     562    if (status/=nf90_noerr) then 
     563       write(*,*)"pb de nom de variable :", varname, file 
     564       stop 
     565    endif 
    534566    status=nf90_inquire_variable(ncid,varid,dimids=dimIDS) 
    535567    status=nf90_inquire_dimension(ncid,dimIDS(1),len=dim1) 
    … …  
    584616    !      
    585617    status = nf90_inq_varid(ncid,varname,varid) 
    586     !         
     618    if (status/=nf90_noerr) then 
     619       write(*,*)"pb de nom de variable :", varname, file 
     620       stop 
     621    endif         
    587622    status=nf90_inquire_variable(ncid,varid,dimids=dimIDS) 
    588623    status=nf90_inquire_dimension(ncid,dimIDS(1),len=dim1) 
    … …  
    638673    !      
    639674    status = nf90_inq_varid(ncid,varname,varid) 
    640     !         
     675    if (status/=nf90_noerr) then 
     676       write(*,*)"pb de nom de variable :", varname, file 
     677       stop 
     678    endif         
    641679    status=nf90_inquire_variable(ncid,varid,dimids=dimIDS) 
    642680    status=nf90_inquire_dimension(ncid,dimIDS(1),len=dim1) 
Note: See TracChangeset for help on using the changeset viewer.