/[lmdze]/trunk/dyn3d/Guide/conf_guide.f
ViewVC logotype

Diff of /trunk/dyn3d/Guide/conf_guide.f

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

revision 140 by guez, Fri Jun 5 18:58:06 2015 UTC revision 171 by guez, Tue Sep 29 19:48:59 2015 UTC
# Line 68  contains Line 68  contains
68    
69      ok_guide = any((/guide_u, guide_v, guide_t, guide_q/))      ok_guide = any((/guide_u, guide_v, guide_t, guide_q/))
70      if (ok_guide .and. mod(day_step, 4 * iperiod) /= 0) call &      if (ok_guide .and. mod(day_step, 4 * iperiod) /= 0) call &
71           abort_gcm(modname = "conf_guide", &           abort_gcm("conf_guide", 'ok_guide day_step iperiod')
          message = 'ok_guide day_step iperiod', ierr = 1)  
72    
73      if (ok_guide .and. online) then      if (ok_guide .and. online) then
74         factt = dtvr * iperiod / daysec         factt = dtvr * iperiod / daysec
Legend:
Removed from v.140  
changed lines
  Added in v.171
  ViewVC Help
Powered by ViewVC 1.1.21