Changeset 449 for branches


Ignore:
Timestamp:
10/12/23 18:36:02 (8 months ago)
Author:
aquiquet
Message:

Cleaning branch: use only statement for netcdf modules

Location:
branches/GRISLIv3/SOURCES
Files:
16 edited

Legend:

Unmodified
Added
Removed

  • branches/GRISLIv3/SOURCES/Draggings_modules/beta_iter_vitbil_mod.f90

    r446 r449  
    1414 
    1515  use geography, only: nx,ny 
    16   use netcdf 
    1716 
    1817 

  • branches/GRISLIv3/SOURCES/Draggings_modules/dragging_beta_iter_vitbil_mod.f90

    r446 r449  
    77module dragging_beta_iter_vitbil_mod 
    88 
    9   use netcdf 
    109  ! pour compilation de steps_time_loop : 
    1110  use beta_iter_vitbil_mod, only:time_iter,time_iter_end,nb_iter_vitbil,beta_iter_vitbil 

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

    r50 r449  
    2727module io_netcdf_grisli 
    2828  !       
    29   use netcdf      
     29  use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr 
    3030  use runparam,only:dirsource  
    3131  !> \interface Read_Ncdf_var 
    … …  
    9595  subroutine lect_netcdf_type 
    9696 
     97    use runparam,only:dirsource 
     98 
    9799    implicit none 
    98100    ! open(22,file='../SOURCES/Fichiers-parametres/netcdf_type.dat') 
    … …  
    111113 
    112114  subroutine Read_Ncdf_var1d_Real(varname,file,tabvar) 
     115 
     116    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     117                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
    113118    !       
    114119    implicit none 
    … …  
    170175 
    171176  subroutine Read_Ncdf_var2d_Real(varname,file,tabvar) 
     177    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     178                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
    172179    !       
    173180    implicit none 
    … …  
    228235 
    229236  subroutine Read_Ncdf_var2d_Real_bis(varname,file,tabvar,strt,cnt) 
     237    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     238                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
     239 
    230240    !       
    231241    implicit none 
    … …  
    279289  !! @return tabvar 
    280290  subroutine Read_Ncdf_var3d_Real(varname,file,tabvar) 
     291    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     292                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
    281293    !       
    282294    implicit none 
    … …  
    335347  !! @return tabvar 
    336348  subroutine Read_Ncdf_var4d_Real(varname,file,tabvar) 
     349    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     350                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
     351 
    337352    !       
    338353    implicit none 
    … …  
    387402  !! @return tabvar 
    388403  subroutine Read_Ncdf_var1d_Int(varname,file,tabvar) 
     404    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     405                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
    389406    !       
    390407    implicit none 
    … …  
    437454  !! @return tabvar 
    438455  subroutine Read_Ncdf_var2d_Int(varname,file,tabvar) 
     456    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     457                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
    439458    !       
    440459    implicit none 
    … …  
    485504  !! @return tabvar 
    486505  subroutine Read_Ncdf_var3d_Int(varname,file,tabvar) 
     506    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     507                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
    487508    !       
    488509    implicit none 
    … …  
    537558 
    538559  subroutine Read_Ncdf_var4d_Int(varname,file,tabvar) 
     560    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     561                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
    539562    !       
    540563    implicit none 
    … …  
    593616 
    594617  subroutine Read_Ncdf_var4d_Real_nt(varname,file,tabvar,time,level)      
     618    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     619                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
    595620    implicit none 
    596621    !        
    … …  
    650675  !! @return tabvar 
    651676  subroutine Read_Ncdf_var4d_Real_t(varname,file,tabvar,time)     
     677    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     678                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
    652679    implicit none 
    653680    !        
    … …  
    701728 
    702729  subroutine Read_Ncdf_var3d_Real_t(varname,file,tabvar,time)    
     730    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     731                     nf90_get_var,nf90_inquire_variable,nf90_inquire_dimension 
    703732    implicit none 
    704733    !        
    … …  
    755784 
    756785  subroutine Write_Ncdf_var1d_Real(varname,dimname,file,tabvar,typevar) 
     786    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid, nf90_double, & 
     787                     nf90_float,nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    757788    !      
    758789    implicit none 
    … …  
    807838 
    808839  subroutine Write_Ncdf_var2d_Real(varname,dimname,file,tabvar,typevar) 
     840    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid, & 
     841                     nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    809842    !       
    810843    !      implicit none 
    … …  
    856889 
    857890  subroutine Write_Ncdf_var3d_Real(varname,dimname,file,tabvar,typevar) 
     891    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_double, & 
     892                     nf90_float,nf90_put_var,nf90_inq_dimid,nf90_redef,nf90_def_var,nf90_enddef 
    858893    !       
    859894    implicit none 
    … …  
    905940 
    906941  subroutine Write_Ncdf_var4d_Real(varname,dimname,file,tabvar,typevar) 
     942    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_double, & 
     943                     nf90_float,nf90_put_var,nf90_def_var,nf90_inq_dimid,nf90_redef,nf90_enddef 
    907944    !       
    908945    implicit none 
    … …  
    961998 
    962999  subroutine Write_Ncdf_var1d_Int(varname,dimname,file,tabvar) 
     1000    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_int, & 
     1001                     nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    9631002    !       
    9641003    implicit none 
    … …  
    9971036 
    9981037  subroutine Write_Ncdf_var2d_Int(varname,dimname,file,tabvar) 
     1038    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_int, & 
     1039                     nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    9991040    !       
    10001041    implicit none 
    … …  
    10361077 
    10371078  subroutine Write_Ncdf_var3d_Int(varname,dimname,file,tabvar) 
     1079    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_int, & 
     1080                     nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    10381081    !       
    10391082    implicit none 
    … …  
    10771120 
    10781121  subroutine Write_Ncdf_var4d_Int(varname,dimname,file,tabvar) 
     1122    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_int, & 
     1123                     nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    10791124    !       
    10801125    implicit none 
    … …  
    11211166  !!@return idef 
    11221167  subroutine Write_Ncdf_var2d_Real_t(varname,dimname,file,tabvar,time,idef,typevar) 
     1168    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_double, & 
     1169                     nf90_float,nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    11231170    !       
    11241171    implicit none 
    … …  
    11851232 
    11861233  subroutine Write_Ncdf_var2d_Int_t(varname,dimname,file,tabvar,time,idef) 
     1234    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_int, & 
     1235                     nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    11871236    !       
    11881237    implicit none 
    … …  
    12461295 
    12471296  subroutine Write_Ncdf_var1d_Real_t(varname,dimname,file,tabvar,time,idef,typevar) 
     1297    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_double, & 
     1298                     nf90_float,nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    12481299    !       
    12491300    implicit none 
    … …  
    13111362 
    13121363  subroutine Write_Ncdf_var1d_Realbis_t(varname,dimname,file,tabvar,time,idef,typevar) 
     1364    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_double, & 
     1365                     nf90_float,nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    13131366    !       
    13141367    implicit none 
    13151368    !        
    13161369    Character(*),intent(in) :: varname,file,typevar 
    1317     Character(*),intent(in) :: dimname                             
     1370    Character(*),intent(in) :: dimname 
    13181371    Integer :: time 
    13191372    Integer,intent(inout) :: idef 
    … …  
    13751428  !!@return idef 
    13761429  subroutine Write_Ncdf_var1d_Int_t(varname,dimname,file,tabvar,time,idef,typevar) 
     1430    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_double, & 
     1431                     nf90_float,nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    13771432    !       
    13781433    implicit none 
    … …  
    14361491  !!@return idef 
    14371492  subroutine Write_Ncdf_var3d_Real_t(varname,dimname,file,tabvar,time,idef,typevar) 
     1493    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_double, & 
     1494                     nf90_float,nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    14381495    !       
    14391496    implicit none 
    … …  
    15011558  !!@return idef 
    15021559  subroutine Write_Ncdf_var4d_Real_t(varname,dimname,file,tabvar,time,idef,typevar) 
     1560    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_double, & 
     1561                     nf90_float,nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    15031562    !       
    15041563    implicit none 
    … …  
    15691628 
    15701629  subroutine Write_Ncdf_var4d_Real_nt(varname,dimname,file,tabvar,time,level,idef,typevar) 
     1630    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid,nf90_double, & 
     1631                     nf90_float,nf90_def_var,nf90_put_var,nf90_inq_dimid,nf90_enddef,nf90_redef 
    15711632    !       
    15721633    implicit none 
    … …  
    16301691 
    16311692  subroutine Read_Ncdf_VarName(filename,tabvarname) 
     1693    use netcdf,only: nf90_open,nf90_write,nf90_noerr,nf90_inquire,nf90_inquire_variable 
    16321694    !       
    16331695    Character(*),intent(in) :: filename 
    … …  
    16621724 
    16631725  subroutine Copy_Ncdf_att_var(varname,filein,fileout) 
     1726    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     1727                     nf90_write,nf90_copy_att,nf90_enddef,nf90_redef 
    16641728    !       
    16651729    Character(*),intent(in) :: filein,fileout 
    … …  
    16671731    Integer :: ncid_in,ncid_out,status,varid_in,varid_out 
    16681732    !      
    1669     !      print *,'filein = ',filein,fileout 
    16701733    status = nf90_open(filein,NF90_NOWRITE,ncid_in) 
    16711734    if (status/=nf90_noerr) then     
    … …  
    16801743    endif 
    16811744    !   
    1682     !      print *,'ici1' 
    16831745    status = nf90_inq_varid(ncid_in,varname,varid_in) 
    16841746    status = nf90_inq_varid(ncid_out,varname,varid_out) 
    … …  
    17151777    status = nf90_close(ncid_in) 
    17161778    status = nf90_close(ncid_out) 
    1717     !      print *,'ici2' 
    17181779    !  
    17191780  end subroutine Copy_Ncdf_att_var 
    … …  
    17291790 
    17301791  subroutine Copy_Ncdf_att_latlon(varname,filein,fileout,min,max) 
     1792    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     1793                     nf90_write,nf90_put_att,nf90_copy_att,nf90_enddef,nf90_redef 
     1794 
    17311795    !       
    17321796    Character(*),intent(in) :: filein,fileout 
    … …  
    17851849 
    17861850  subroutine Read_Ncdf_dim(dimname,file,dimval)    
     1851    use netcdf,only: nf90_open,nf90_close,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     1852                     nf90_inq_dimid,nf90_inquire_dimension 
    17871853    !       
    17881854    implicit none 
    … …  
    18151881 
    18161882  subroutine Write_Ncdf_dim(dimname,file,dimval)    
     1883    use netcdf,only: nf90_open,nf90_close,nf90_write,nf90_noerr,nf90_inq_varid, & 
     1884                     nf90_enddef,nf90_redef,nf90_unlimited,nf90_def_dim 
     1885 
    18171886    !       
    18181887    implicit none 
    … …  
    18491918 
    18501919  Integer function Get_NbDims( varname , filename ) 
     1920    use netcdf,only: nf90_open,nf90_nowrite,nf90_noerr,nf90_inq_varid, & 
     1921                     nf90_inquire_variable 
     1922 
    18511923    ! 
    18521924    Character(*),intent(in) :: varname,filename 
    … …  
    18751947  ! 
    18761948  Logical function Dims_Existence( dimname , filename ) 
     1949    use netcdf,only: nf90_open,nf90_nowrite,nf90_noerr,nf90_inq_dimid 
     1950 
    18771951    ! 
    18781952    Character(*),intent(in) :: dimname,filename 

  • branches/GRISLIv3/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

    r402 r449  
    1818module sorties_ncdf_grisli 
    1919 
    20   use netcdf 
    2120  
    2221  implicit none 
    … …  
    491490  subroutine init_sortie_ncdf 
    492491 
     492    use netcdf, only: nf90_close,nf90_create,nf90_write,nf90_64bit_offset 
    493493    use io_netcdf_grisli, only: ncdf_type,write_ncdf_dim 
    494494    use geography,        only: nx,ny,nz,nzm  
    … …  
    661661  subroutine sortie_ncdf_cat 
    662662 
     663    use netcdf, only: nf90_open,nf90_close,nf90_noerr,nf90_write 
    663664    use io_netcdf_grisli, only: write_ncdf_var 
    664665    use geography,    only: nx,ny,nz,nzm,dx,dy 
    … …  
    14111412 
    14121413  subroutine ncdf_global_attributes (stats,ncdf_id) 
     1414    use netcdf,only: nf90_global,nf90_put_att 
    14131415    !< arguments  
    14141416    integer :: ncdf_id,stats  
    … …  
    14421444  subroutine ncdf_var_info (stats,ncdf_id,name_var, long_name, standard_name, unit, descriptions) 
    14431445 
     1446    use netcdf,only: nf90_put_att,nf90_inq_varid,nf90_redef 
     1447 
     1448 
    14441449    character(len=*) :: name_var         ! nom de variable  
    14451450    ! liste des infos correspondant au variable d'interret  

  • branches/GRISLIv3/SOURCES/bmelt-beckmann-gcm_mod.f90

    r446 r449  
    2525  ! note: the geom. (nx,ny,dx,dy) come from module_geoplace 
    2626  use param_phy_mod,only:ro,rofresh,row 
    27   use netcdf 
    28   use io_netcdf_grisli 
     27  use io_netcdf_grisli,only: read_ncdf_var 
    2928 
    3029  implicit none 

  • branches/GRISLIv3/SOURCES/bmelt-ismip6-param_mod.f90

    r446 r449  
    2121  ! note: the geom. (nx,ny,dx,dy) come from module_geoplace 
    2222  ! note: the densities come from param_phy_mod 
    23   use netcdf 
    24   use io_netcdf_grisli 
     23  use io_netcdf_grisli, only: read_ncdf_var 
    2524 
    2625  implicit none 

  • branches/GRISLIv3/SOURCES/calving_frange_ISMIP_fracture.f90

    r446 r449  
    2222  use param_phy_mod, only: ro,row 
    2323  use bilan_eau_mod, only: calv_dtt 
    24   use netcdf 
    25   use io_netcdf_grisli 
     24  use io_netcdf_grisli, only: read_ncdf_var 
    2625 
    2726  implicit none 

  • branches/GRISLIv3/SOURCES/climat-forcage-insolation_mod.f90

    r446 r449  
    1515use geography, only: nx,ny,dirnameinp,dx 
    1616use param_phy_mod,only: ro 
    17 use netcdf 
    18 use io_netcdf_grisli 
     17use io_netcdf_grisli, only: read_ncdf_var 
    1918        
    2019implicit none 

  • branches/GRISLIv3/SOURCES/climat-forcage-insolation_mod_oneway.f90

    r446 r449  
    1616!use interface_input 
    1717use param_phy_mod,only: ro 
    18 use netcdf 
    19 use io_netcdf_grisli 
     18use io_netcdf_grisli, only: read_ncdf_var 
    2019        
    2120implicit none 

  • branches/GRISLIv3/SOURCES/climat-perturb_mod-0.4.f90

    r446 r449  
    1515use module3d_phy,only: S,S0,Tann,Tjuly,precip,acc,Ylat,num_forc,num_param,num_rep_42,tafor,time,sealevel,sealevel_2d,coefbmshelf 
    1616use geography, only: nx,ny,dirforcage,dirnameinp 
    17 use netcdf 
    18 use io_netcdf_grisli 
     17use io_netcdf_grisli, only: read_ncdf_var 
    1918 
    2019implicit none 

  • branches/GRISLIv3/SOURCES/climat_forcage_mod.f90

    r446 r449  
    99  use geography, only: nx,ny,dirforcage,dirnameinp 
    1010  use param_phy_mod,only:ro 
    11   use netcdf 
    12   use io_netcdf_grisli 
     11  use io_netcdf_grisli, only: read_ncdf_var 
    1312 
    1413 

  • branches/GRISLIv3/SOURCES/climat_transient_GCM_mod.f90

    r446 r449  
    99  use module3d_phy,only: sealevel_2d,S,S0,Tmois,Tann,Tjuly,acc,num_forc,num_param,num_rep_42,coefbmshelf,dt,time 
    1010  use geography, only: nx,ny,dirforcage,dirnameinp 
    11   use param_phy_mod,only:ro 
    12   use netcdf 
    13   use io_netcdf_grisli 
     11  use param_phy_mod, only:ro 
     12  use io_netcdf_grisli, only: read_ncdf_var 
    1413 
    1514  implicit none 

  • branches/GRISLIv3/SOURCES/imposed_regions_rsl.f90

    r446 r449  
    1818 
    1919  use geography, only:nx,ny 
    20   use netcdf 
    2120  use io_netcdf_grisli, only:read_ncdf_var 
    2221 

  • branches/GRISLIv3/SOURCES/lake_rsl_mod.f90

    r410 r449  
    298298    use module3D_phy,only:BSOC,Bsoc0,S,S0,H,H0,sealevel,sealevel_2d,time,dtmin,ice,mk,debug_3d 
    299299    use param_phy_mod,only : ro,row 
    300     use netcdf 
     300    use netcdf,only: nf90_clobber,nf90_create,nf90_close,nf90_def_dim,nf90_def_var,nf90_put_var,nf90_float,nf90_enddef 
    301301     
    302302    implicit none 

  • branches/GRISLIv3/SOURCES/out_cptr_mod.f90

    r447 r449  
    3131  use geography, only: dx,dy,nx,ny,nz,nzm 
    3232  use runparam, only: itracebug,tbegin,num_tracebug 
    33   use netcdf 
    3433  use io_netcdf_grisli, only: ncdf_type,Read_ncdf_dim,Read_ncdf_var,lect_netcdf_type 
    3534  use tracer_vars, only: xdep_out,ydep_out,tdep_out 
    … …  
    384383  use module3D_phy, only: num_file1,s,h,b,bsoc,ibase,bmelt,hwater,ux,uy,uxbar,uybar,t,time 
    385384  use runparam, only: itracebug 
    386   use geography, only: nzm,geoplace 
    387   use netcdf 
    388   use io_netcdf_grisli 
    389   use util_recovery 
    390   use tracer_vars      ! aurel neem 
     385  use geography, only: nx,ny,nz,nzm,geoplace 
     386  use netcdf, only: nf90_64bit_offset,nf90_create,nf90_close,nf90_write 
     387  use io_netcdf_grisli, only: ncdf_type,write_ncdf_var 
     388  use util_recovery,only: logic_out,time_out,testout_recovery 
     389  use tracer_vars,only: xdep,ydep,tdep,xdep_out,ydep_out,tdep_out 
    391390 
    392391  implicit none 
    … …  
    578577     dimnames2d,dimnames3d,dimnames3dT,file) 
    579578 
    580   use netcdf 
    581   use io_netcdf_grisli 
     579  use io_netcdf_grisli, only: write_ncdf_dim 
    582580  implicit none  
    583581  integer,intent(in)             :: nxx               !< dimension along x 

  • branches/GRISLIv3/SOURCES/readinput.f90

    r427 r449  
    99subroutine dat2netcdf(nxx,nyy,numcol,base_name,filename,fil_sortie) 
    1010 
    11   use netcdf 
    12   use io_netcdf_grisli, only:write_ncdf_var 
     11  use netcdf, only: nf90_create,nf90_write,nf90_close 
     12  use io_netcdf_grisli,only: write_ncdf_var 
     13 
    1314  implicit none 
    1415  integer,intent(in)  :: nxx                    !< dimension along x 
    … …  
    110111 
    111112subroutine init_ncdf(nxx,nyy,fil_sortie,dimnames2d) 
    112   use netcdf 
    113113  use io_netcdf_grisli, only: write_ncdf_dim 
    114114  implicit none  
    … …  
    133133 
    134134subroutine lect_ncfile(varname,Tab,filename) 
    135   use netcdf 
    136135  use io_netcdf_grisli, only: read_ncdf_var 
    137136  implicit none  
Note: See TracChangeset for help on using the changeset viewer.