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

Diff of /trunk/dyn3d/dynetat0.f

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

revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC revision 18 by guez, Thu Aug 7 12:29:13 2008 UTC
# Line 21  contains Line 21  contains
21      use serre, only: clon, clat, grossismy, grossismx      use serre, only: clon, clat, grossismy, grossismx
22      use temps, only: day_ref, day_ini, itau_dyn, annee_ref      use temps, only: day_ref, day_ini, itau_dyn, annee_ref
23      use ener, only: etot0, ang0, ptot0, stot0, ztot0      use ener, only: etot0, ang0, ptot0, stot0, ztot0
24      use advtrac_m, only: tname      use iniadvtrac_m, only: tname
25      use netcdf95, only: nf95_open, NF90_NOWRITE, nf95_inq_varid, &      use netcdf95, only: nf95_open, nf95_inq_varid, handle_err, NF95_CLOSE
26           NF90_GET_VAR, handle_err, NF90_NOERR, NF95_CLOSE      use netcdf, only: NF90_NOWRITE, NF90_GET_VAR, NF90_NOERR
27      use nrutil, only: assert      use numer_rec, only: assert
28    
29      !   Arguments:      !   Arguments:
30      REAL, intent(out):: vcov(: , :), ucov(:, :), teta(:, :)      REAL, intent(out):: vcov(: , :), ucov(:, :), teta(:, :)
31      REAL, intent(out):: q(:, :, :), masse(:, :)      REAL, intent(out):: q(:, :, :), masse(:, :)
32      REAL, intent(out):: ps(:), phis(:, :)      REAL, intent(out):: ps(:) ! in Pa
33        REAL, intent(out):: phis(:, :)
34      REAL, intent(out):: time      REAL, intent(out):: time
35    
36      !   Variables      !   Variables
Legend:
Removed from v.7  
changed lines
  Added in v.18
  ViewVC Help
Powered by ViewVC 1.1.21