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

Diff of /trunk/dyn3d/gcm.f

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

revision 139 by guez, Tue May 26 17:46:03 2015 UTC revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 112  PROGRAM gcm Line 112  PROGRAM gcm
112    ENDIF    ENDIF
113    
114    ! Initialisation des entr\'ees-sorties :    ! Initialisation des entr\'ees-sorties :
115    CALL dynredem0("restart.nc", day_ini + nday, phis)    CALL dynredem0(day_ini + nday, phis)
116    CALL inithist(dtvr, nqmx, t_ops = iecri * daysec, t_wrt = iecri * daysec)    CALL inithist(dtvr, nqmx, t_ops = iecri * daysec, t_wrt = iecri * daysec)
117    CALL initdynav(dtvr, nqmx, t_ops = iperiod * dtvr, t_wrt = periodav * daysec)    CALL initdynav(dtvr, nqmx, t_ops = iperiod * dtvr, t_wrt = periodav * daysec)
118    call init_dynzon(dt_app = dtvr * iperiod)    call init_dynzon(dt_app = dtvr * iperiod)
Legend:
Removed from v.139  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21