Parent Directory | Revision Log | Patch
revision 98 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |