/[lmdze]/trunk/bibio/initfluxsto.f
ViewVC logotype

Diff of /trunk/bibio/initfluxsto.f

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

revision 107 by guez, Thu Sep 4 10:05:52 2014 UTC revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC
# Line 52  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 52  SUBROUTINE initfluxsto(tstep, t_ops, t_w
52    
53    !   Variables locales                                                      !   Variables locales                                                  
54    REAL zjulian    REAL zjulian
55    CHARACTER*3 str    CHARACTER(len=3) str
56    CHARACTER*10 ctrac    CHARACTER(len=10) ctrac
57    INTEGER iq    INTEGER iq
58    REAL rlong(iip1, jjp1), rlat(iip1, jjp1)    REAL rlong(iip1, jjp1), rlat(iip1, jjp1)
59    INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid    INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid
Legend:
Removed from v.107  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.21