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

Diff of /trunk/dyn3d/guide.f

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

revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC
# Line 23  CONTAINS Line 23  CONTAINS
23    
24      ! Author: F.Hourdin      ! Author: F.Hourdin
25    
26      USE dimens_m, ONLY : jjm, llm      USE comconst, ONLY : cpp, daysec, dtvr, kappa
     USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1  
     USE comconst, ONLY : cpp, daysec, dtvr, kappa, pi  
27      USE comvert, ONLY : ap, bp, preff, presnivs      USE comvert, ONLY : ap, bp, preff, presnivs
28      USE conf_gcm_m, ONLY : day_step, iperiod      USE conf_gcm_m, ONLY : day_step, iperiod
29      USE comgeom, ONLY : aire, rlatu, rlonv      USE comgeom, ONLY : aire, rlatu, rlonv
30      USE serre, ONLY : clat, clon      USE dimens_m, ONLY : jjm, llm
     USE q_sat_m, ONLY : q_sat  
31      USE exner_hyb_m, ONLY : exner_hyb      USE exner_hyb_m, ONLY : exner_hyb
32      USE inigrads_m, ONLY : inigrads      USE inigrads_m, ONLY : inigrads
33      use netcdf, only: nf90_nowrite, nf90_open, nf90_close      use netcdf, only: nf90_nowrite, nf90_open, nf90_close
34        use nr_util, only: pi
35        USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1
36        USE q_sat_m, ONLY : q_sat
37        USE serre, ONLY : clat, clon
38      use tau2alpha_m, only: tau2alpha      use tau2alpha_m, only: tau2alpha
39    
40      INCLUDE 'netcdf.inc'      INCLUDE 'netcdf.inc'
Legend:
Removed from v.37  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21