/[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 9 by guez, Mon Mar 31 13:58:05 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 24  contains Line 24  contains
24      use advtrac_m, only: tname      use advtrac_m, only: tname
25      use netcdf95, only: nf95_open, nf95_inq_varid, handle_err, NF95_CLOSE      use netcdf95, only: nf95_open, nf95_inq_varid, handle_err, NF95_CLOSE
26      use netcdf, only: NF90_NOWRITE, NF90_GET_VAR, NF90_NOERR      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.9  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21