/[lmdze]/trunk/libf/dyn3d/gcm.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/gcm.f90

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

revision 4 by guez, Wed Feb 27 13:16:39 2008 UTC revision 5 by guez, Mon Mar 3 16:32:04 2008 UTC
# Line 204  PROGRAM gcm Line 204  PROGRAM gcm
204    print *, "day_ini = ", day_ini    print *, "day_ini = ", day_ini
205    print *, "day_end = ", day_end    print *, "day_end = ", day_end
206    
207    CALL dynredem0("restart.nc", day_end, phis, nqmx)    CALL dynredem0("restart.nc", day_end, phis)
208    CALL inithist(day_ref, annee_ref, zdtvr, nqmx, histid, histvid, &    CALL inithist(day_ref, annee_ref, zdtvr, nqmx, histid, histvid, &
209         infile="dyn_hist.nc", t_ops = iecri * daysec, t_wrt = iecri * daysec)         infile="dyn_hist.nc", t_ops = iecri * daysec, t_wrt = iecri * daysec)
210    CALL initdynav(day_ref, annee_ref, zdtvr, nqmx, histaveid, &    CALL initdynav(day_ref, annee_ref, zdtvr, nqmx, histaveid, &
Legend:
Removed from v.4  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.21