/[lmdze]/trunk/dyn3d/dynredem0.f
ViewVC logotype

Diff of /trunk/dyn3d/dynredem0.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 83 by guez, Thu Mar 6 15:12:00 2014 UTC revision 92 by guez, Wed Mar 26 18:16:05 2014 UTC
# Line 10  CONTAINS Line 10  CONTAINS
10      ! Ecriture du fichier de redémarrage au format NetCDF (initialisation)      ! Ecriture du fichier de redémarrage au format NetCDF (initialisation)
11    
12      USE comconst, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad      USE comconst, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
     USE disvert_m, ONLY: ap, bp, pa, preff, presnivs  
13      USE comgeom, ONLY: aire_2d, cu_2d, cv_2d, rlatu, rlatv, rlonu, rlonv      USE comgeom, ONLY: aire_2d, cu_2d, cv_2d, rlatu, rlatv, rlonu, rlonv
14        use conf_gcm_m, ONLY: fxyhypb, ysinus
15      USE dimens_m, ONLY: iim, jjm, llm, nqmx      USE dimens_m, ONLY: iim, jjm, llm, nqmx
16        USE disvert_m, ONLY: ap, bp, pa, preff, presnivs
17      USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0      USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0
     USE calendar, ONLY: ju2ymds, ymds2ju  
18      USE iniadvtrac_m, ONLY: tname, ttext      USE iniadvtrac_m, ONLY: tname, ttext
19      use conf_gcm_m, ONLY: fxyhypb, ysinus      USE ju2ymds_m, ONLY: ju2ymds
20        USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_global, nf90_unlimited
21      USE netcdf95, ONLY: nf95_close, nf95_create, nf95_def_dim, nf95_def_var, &      USE netcdf95, ONLY: nf95_close, nf95_create, nf95_def_dim, nf95_def_var, &
22           nf95_enddef, nf95_inq_varid, nf95_put_att, nf95_put_var           nf95_enddef, nf95_inq_varid, nf95_put_att, nf95_put_var
     USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_global, nf90_unlimited  
23      USE paramet_m, ONLY: iip1, jjp1, llmp1      USE paramet_m, ONLY: iip1, jjp1, llmp1
24      USE serre, ONLY: clat, clon, dzoomx, dzoomy, grossismx, grossismy, taux, &      USE serre, ONLY: clat, clon, dzoomx, dzoomy, grossismx, grossismy, taux, &
25           tauy           tauy
26      USE temps, ONLY: annee_ref, day_ref      USE temps, ONLY: annee_ref, day_ref
27        use ymds2ju_m, only: ymds2ju
28    
29      CHARACTER(len=*), INTENT(IN):: fichnom      CHARACTER(len=*), INTENT(IN):: fichnom
30      INTEGER, INTENT(IN):: iday_end      INTEGER, INTENT(IN):: iday_end
Legend:
Removed from v.83  
changed lines
  Added in v.92
  ViewVC Help
Powered by ViewVC 1.1.21