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

Diff of /trunk/dyn3d/conf_gcm.f

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

revision 101 by guez, Tue May 13 17:23:16 2014 UTC revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC
# Line 113  contains Line 113  contains
113           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &
114           ierr = 1)           ierr = 1)
115    
116        if (ok_guide .and. mod(day_step, 4 * iperiod) /= 0) call &
117             abort_gcm(modname = "conf_gcm", &
118             message = 'ok_guide day_step iperiod', ierr = 1)
119    
120      IF (grossismx < 1.) THEN      IF (grossismx < 1.) THEN
121         PRINT *, 'Error: grossismx < 1'         PRINT *, 'Error: grossismx < 1'
122         STOP 1         STOP 1
Legend:
Removed from v.101  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21