Changeset 402 for branches/GRISLIv3/SOURCES
- Timestamp:
- 03/30/23 15:46:37 (16 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/GRISLIv3/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90
r342 r402 19 19 20 20 use netcdf 21 use geography ! permet d'avoir nx et ny et geoplace22 use runparam ! permet d'avoir tbegin,tend,runname,dirout23 use io_netcdf_grisli24 use module3d_phy25 use tracer_vars ! aurel neem26 use bilan_eau_mod27 21 28 22 implicit none … … 154 148 subroutine init_out_ncdf 155 149 150 use runparam, only: dirsource 151 use io_netcdf_grisli, only: ncdf_type,lect_netcdf_type 152 156 153 implicit none 154 157 155 integer :: err 158 156 integer :: num_file=22 … … 374 372 subroutine testsort_time_ncdf(tsortie) 375 373 374 use runparam, only: itracebug,nt,tbegin,tend 375 use module3d_phy, only: dtmin 376 376 377 implicit none 378 377 379 !< local variables 378 380 double precision :: tsortie … … 488 490 !< 489 491 subroutine init_sortie_ncdf 492 493 use io_netcdf_grisli, only: ncdf_type,write_ncdf_dim 494 use geography, only: nx,ny,nz,nzm 495 use runparam, only: itracebug,dirnameout,runname 490 496 491 497 implicit none … … 654 660 655 661 subroutine sortie_ncdf_cat 662 663 use io_netcdf_grisli, only: write_ncdf_var 664 use geography, only: nx,ny,nz,nzm,dx,dy 665 use runparam, only: itracebug,xmin,ymin,dirsource 666 use module3d_phy, only: s,s0,h,h0,b,socle_cry,sealevel,mk,mk_init,hdot,dhdt,tann,tjuly,t,tpmp, & 667 acc,abl,ghf,phid,bmelt,uxbar,uybar,ux,uy,frotmx,frotmy,tobmx,tobmy, & 668 taushelf,epsxx,epsyy,epsxy,eps,abar,pvi,pvm,betamx,betamy,beta_centre, & 669 ablbord_dtt,ice,front,gr_line_schoof,hwater,hdotwater,kond,bsoc,bm, & 670 pgx,pgy,phiwx,phiwy,flot_marais,neffmx,neffmy,gzmx,gzmy,ilemx,ilemy, & 671 fleuvemx,fleuvemy,flotmx,flotmy,hmx,hmy,frontfacex,frontfacey,sux,suy, & 672 tpmp,ux,uy,uzr,debug_3d,xlong,ylat,time,dtt 673 use tracer_vars, only: xdep_out,ydep_out,tdep_out 674 use bilan_eau_mod,only: tot_water,calv_dtt 675 676 656 677 implicit none 678 657 679 real (kind=kind(0.d0)) :: timetmp !< variable intermediaire 658 680 character(len=20) :: nametmp !< nom intermediaire
Note: See TracChangeset
for help on using the changeset viewer.