/[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 107 by guez, Thu Sep 11 15:09:15 2014 UTC revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC
# Line 16  SUBROUTINE wrgrads(i_f, nl, field, name, Line 16  SUBROUTINE wrgrads(i_f, nl, field, name,
16    
17    ! arguments    ! arguments
18    INTEGER, INTENT(IN):: i_f    INTEGER, INTENT(IN):: i_f
19    integer nl    integer, INTENT(IN):: nl
20    REAL, INTENT(IN):: field(imx*jmx*lmx)    REAL, INTENT(IN):: field(imx*jmx*lmx)
21    CHARACTER(len=*) name, titlevar    CHARACTER(len=*), INTENT(IN):: name, titlevar
22    CHARACTER(len=10) file    CHARACTER(len=10) file
23    
24    ! local    ! local
Legend:
Removed from v.107  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.21