SUBROUTINE call_param_replay(ngrid,nlay) INTEGER,INTENT(IN) :: ngrid,nlay stop 'In call_param_replay : You should run replay_equip.sh before runing replay[13]d' RETURN END