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

Diff of /trunk/dyn3d/wrgrads.f

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

revision 104 by guez, Tue Jul 15 13:43:24 2014 UTC revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 18  SUBROUTINE wrgrads(i_f, nl, field, name, Line 18  SUBROUTINE wrgrads(i_f, nl, field, name,
18    INTEGER, INTENT(IN):: i_f    INTEGER, INTENT(IN):: i_f
19    integer nl    integer nl
20    REAL, INTENT(IN):: field(imx*jmx*lmx)    REAL, INTENT(IN):: field(imx*jmx*lmx)
21    CHARACTER *10 name, file    CHARACTER(len=10) name, file
22    CHARACTER *10 titlevar    CHARACTER(len=10) titlevar
23    
24    ! local    ! local
25    
Legend:
Removed from v.104  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21