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 |